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

lijun337

我想在AUTOCAD利用VBA快速画图，指标图，每天的数据指标直观图。

构思是这样的：今天输入一个数据值A点：（0，12。45，0）（12。45米就是报上来的原始记录数据）与前天的点连接起来，第二天报上B点：（0，13。27，0））（13。27米就是第二天报上来的原始记录数据），再与A点连接起来！
. W, v- y7 i4 {7 W) A& \) r


9 L( ?. a7 v5 b  q, m三个TEXT文本框（月、日、今天报上来的数据）输入月日和报上来的数据后，直接在图上显示出来，第二天再如此继续下去。
- E/ L) u1 m3 `


但是，VBA如何读取昨天的数据并与今天新报上来的数据连接起来呢？

wenwengg

将LASTPOINT坐标值保存到USERR1-3
Type: 3D-point
' `' `6 g$ F8 C5 sSaved in: Not-saved
. T! @2 H. I% o4 b6 S* AInitial value: 0.0000,0.0000,0.0000
/ J# d3 w8 C* o$ j5 J' N
3 r7 I) ?& _9 {, q8 q  eStores the last point specified, expressed as UCS coordinates for the current space.

" O, b- v' _% @2 sYou can reference the last point by entering the at symbol (@) at a point prompt.


2 ~/ z( |7 F1 v) W- F'Type: Integer
'Saved in: Drawing
" @% V: M9 F/ |/ V" D5 x: l+ a* v'Initial value: 0

7 P. |# |4 j' k/ i% G. ]# g& U* c8 P'Provides storage and retrieval of integer values.
! H2 h6 ?5 r9 T* I. n
'There are five system variables: USERI1, USERI2, USERI3, USERI4, and USERI5.

'Type: Real
'Saved in: Drawing
'Initial value: 0.0000

& q" g& p, x7 [1 k'Provides storage and retrieval of real numbers.

) J; g, J; |2 X9 v! @  t'There are five system variables: USERR1, USERR2, USERR3, USERR4, and USERR5.

/ D5 x! _5 p6 m1 T[ 本帖最后由 wenwengg 于 2010-4-21 15:50 编辑 ]

SCPHBSZ

这个是不是二次开发啊？ARX？