CAD设计论坛

 找回密码
 立即注册
论坛新手常用操作帮助系统等待验证的用户请看获取社区币方法的说明新注册会员必读(必修)
查看: 1353|回复: 2

[求助] VBA如何读取昨天的数据并与今天新报上来的数据连接起来呢

[复制链接]
发表于 2010-4-21 13:28 | 显示全部楼层 |阅读模式
我想在AUTOCAD利用VBA快速画图,指标图,每天的数据指标直观图。
/ n9 K5 w6 w0 c% }" [  h: O2 H; f- y# f+ ?1 Q' f* J
构思是这样的:今天输入一个数据值A点:(0,12。45,0)(12。45米就是报上来的原始记录数据)与前天的点连接起来,第二天报上B点:(0,13。27,0))(13。27米就是第二天报上来的原始记录数据),再与A点连接起来!
1 ]& [  o3 e* {7 b* _- S4 N' Y# M- A, G

- @( _4 L5 W$ [( Q7 @' p# @' K( Y  e  j) \6 A
三个TEXT文本框(月、日、今天报上来的数据)输入月日和报上来的数据后,直接在图上显示出来,第二天再如此继续下去。
  G$ Q  E( g' `1 B2 K- w) r, H. G8 O6 p% \# f* z

. G7 X+ [- d. ?& C2 p) H. s$ Y* q0 [5 \; ?) ]4 U3 @
但是,VBA如何读取昨天的数据并与今天新报上来的数据连接起来呢?
发表于 2010-4-21 15:04 | 显示全部楼层
将LASTPOINT坐标值保存到USERR1-3
  E3 |+ p' ~1 H2 mType: 3D-point 0 x  A; A7 \0 v/ z3 I
Saved in: Not-saved - v* m. |1 W0 O9 E5 f& F3 n
Initial value: 0.0000,0.0000,0.0000
' i5 F3 k7 D' g; S! K9 t# u3 x) l3 k% g9 Y0 O9 j, z
Stores the last point specified, expressed as UCS coordinates for the current space.
  Z3 {- T( s' p7 q! `4 x2 C3 A3 i. U: b- J3 c$ s- ^! Y4 E0 K' O! E
You can reference the last point by entering the at symbol (@) at a point prompt.$ v3 O' S* C% L- J1 D' Q4 E. H+ _
" Z+ D9 @1 u' ^9 K) ~
+ a, J. p2 n. N
'Type: Integer5 t/ Z5 \  X. D# W; A" j! ~
'Saved in: Drawing
7 n5 K6 F7 O1 d$ M# J( m4 K'Initial value: 0
3 ^7 O$ @6 z8 U; E3 O+ s/ ]. Y2 _# G8 U, j/ S
'Provides storage and retrieval of integer values.
" c9 S& |, a. o! c# g* I; e6 b2 g1 g
'There are five system variables: USERI1, USERI2, USERI3, USERI4, and USERI5.& T% c3 a0 l/ r: W
# U/ Z% U1 Y9 p
'Type: Real& ^- ~+ S2 }1 B4 y
'Saved in: Drawing8 G  @. ~' K' h, t) H
'Initial value: 0.0000
  R) g5 q6 j1 p( L7 E: W2 Y. @  Y/ {, g1 l" I) u8 c5 F0 t' s
'Provides storage and retrieval of real numbers.3 @8 J( U7 \" s0 K7 z* B

! ^9 |# e) B! J$ b'There are five system variables: USERR1, USERR2, USERR3, USERR4, and USERR5.
& a$ g' n( J0 d9 _6 W7 m  e, i  x% a' A
[ 本帖最后由 wenwengg 于 2010-4-21 15:50 编辑 ]
发表于 2010-4-24 10:17 | 显示全部楼层
这个是不是二次开发啊?ARX?
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

关于|免责|隐私|版权|广告|联系|手机版|CAD设计论坛

GMT+8, 2026-11-11 07:36

CAD设计论坛,为工程师增加动力。

© 2005-2026 askcad.com. All rights reserved.

快速回复 返回顶部 返回列表