AUTOCAD 运用VBA使三维运动的问题

jasmine126

按照AUTOCAD VBA的学习资料，我把二维的改成三维的之后出现如图错误，哪位大大能帮忙指正一下 非常感谢
- _% k) B  m" ^% v+ }
改过后程序为：
5 r0 |6 c* A! o3 k' h. {. f* n
, y- h( F1 }" F* HPublic Sub move()
: O7 z6 P5 W# @% X% |( ~9 cDim p0(2) As Variant       '起点坐标
% h/ W7 ^4 I+ k3 w+ WDim p1(2) As Variant       '终点坐标
Dim pc(2) As Variant       '移动时起点坐标
) Q9 k& ~% ]* U) p! cDim pe(2) As Variant       '移动时终点坐标
5 L' G. K. ^  E9 F. YDim movx As Variant     'x轴增量
( J/ T' S7 {& Q7 `1 N. N. sDim movy As Variant     'y轴增量
Dim movz As Variant     'z轴增量
8 s' U+ I; E# l$ ]( B( e2 hDim getobj As Object    '移动对象
( G4 \9 k3 }; B  h% D# s$ u% bDim movtimes As Integer '移动次数
1 m3 h  T3 Q0 c& ]ThisDrawing.Utility.GetEntity getobj, po, "请选择移动对象"
4 E, y+ M# Q) i' L% h! G; C: z0 Mp0(2) = ThisDrawing.Utility.GetPoint(, "起点:")
p1(2) = ThisDrawing.Utility.GetPoint(p0, "终点:")
1 Z; ~, r& T" b. ]* j. Ype(2) = p0(2)
4 t$ i  W/ ~: |% P4 xpc(2) = p0(2)
movtimes = 30
movx = (p1(0) - p0(0)) / movtimes
movy = (p1(1) - p0(1)) / movtimes
movz = (p1(2) - p0(2)) / movtimes
For i = 1 To movtimes
1 a+ T' V9 f# T  pe(0) = pc(0) + movx
  pe(1) = pc(1) + movy
! F! \1 P1 o7 F, ]4 }1 v% S  pe(2) = pc(2) + movz
  getobj.move pc, pe    '移动一段
  getobj.Update         '更新对象
Next
0 R% @$ z" ?7 V/ e# J0 B) ?/ TEnd Sub
/ w; o: j$ ]4 V7 l
- A+ Y: t8 T/ C5 _3 N6 b9 J' o
程序编译执行都没有错误，但是在选择完移动对象，选择起点的时候就报错（如图）
- K' _$ l% ~# t0 z2 }1 P6 f
[ 本帖最后由 jasmine126 于 2008-10-31 15:17 编辑 ]

woaishuijia

简单改写了你的程序，自己对照一下都有哪些部分不一样

1. Sub Move()
   5 k  T* }1 b2 l* a# c9 C- y
2.     Dim P0 As Variant       '起点坐标
   
3.     Dim P1 As Variant       '终点坐标
   
4.     Dim Pc(2) As Double     '移动时基点坐标
   
5.     Dim Pe(2) As Double     '移动时第二点坐标
   
6.     Dim MovX As Double      'x轴增量
     s( L0 X4 i7 t# |" W% Q  I
7.     Dim MovY As Double      'y轴增量
   1 j7 N9 O  D! H7 a* T8 s
8.     Dim MovZ As Double      'z轴增量
   
9.     Dim GetObj As Object    '移动对象
   
10.     Dim MovTimes As Integer '移动次数
    
11.     ThisDrawing.Utility.GetEntity GetObj, P0, "请选择移动对象"
    $ P7 u8 b# C  u" p5 N* s7 Z
12.     P0 = ThisDrawing.Utility.GetPoint(, "起点:" )
    ' R* T$ T+ Z9 v, V. J9 d
13.     P1 = ThisDrawing.Utility.GetPoint(P0, "终点:" )
    5 f5 k; P4 s6 R6 h  ~* W
14.     MovTimes = 30
    & R' c% ~4 r4 }. P: O# `
15.     MovX = (P1(0) - P0(0)) / MovTimes
    
16.     MovY = (P1(1) - P0(1)) / MovTimes
    - L$ c+ X; v# A
17.     MovZ = (P1(2) - P0(2)) / MovTimes
    9 Y& I/ W$ b$ R$ m3 e  `! A
18.     Pe(0) = Pc(0) + MovX
    1 I& G- q, p& S0 o  x" J; T
19.     Pe(1) = Pc(1) + MovY
    
20.     Pe(2) = Pc(2) + MovZ
    
21.     For I = 1 To MovTimes
    8 D) d6 W+ G3 d/ W
22.       GetObj.Move Pc, Pe    '移动一段
    - t4 n! f$ c! \, D# J+ F
23.       GetObj.Update         '更新对象
      a9 F9 B5 C/ f) @5 Q0 S
24.     Next
    2 Y  A) b) I$ f- ?: G
25. End Sub

复制代码

qinrongshan

很有意思！！看懂一点了！！就是没能顺畅的写出来！！