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

jasmine126

按照AUTOCAD VBA的学习资料，我把二维的改成三维的之后出现如图错误，哪位大大能帮忙指正一下 非常感谢
* y6 f* L1 z6 R- x( \3 d
改过后程序为：
* @6 X" V" Z( U& V
: u, z- K7 K% g! bPublic Sub move()
, `$ r/ ^, i& @$ N  v3 c' k4 iDim p0(2) As Variant       '起点坐标
% ^& c6 B1 C" _5 t9 yDim p1(2) As Variant       '终点坐标
Dim pc(2) As Variant       '移动时起点坐标
0 A; o' p! O! YDim pe(2) As Variant       '移动时终点坐标
# h; W5 x$ o0 PDim movx As Variant     'x轴增量
3 T6 I8 W! C  d6 E; i$ C& K. h* iDim movy As Variant     'y轴增量
9 _" G% l7 U) E" uDim movz As Variant     'z轴增量
Dim getobj As Object    '移动对象
Dim movtimes As Integer '移动次数
6 y! k, L& U- u$ m" WThisDrawing.Utility.GetEntity getobj, po, "请选择移动对象"
p0(2) = ThisDrawing.Utility.GetPoint(, "起点:")
3 Z8 o. e; d$ Fp1(2) = ThisDrawing.Utility.GetPoint(p0, "终点:")
; }5 d/ Y) ^+ u% fpe(2) = p0(2)
pc(2) = p0(2)
" }% D( Z4 `) Emovtimes = 30
movx = (p1(0) - p0(0)) / movtimes
3 G6 X  C9 i4 c9 S5 g# gmovy = (p1(1) - p0(1)) / movtimes
movz = (p1(2) - p0(2)) / movtimes
5 t+ u& m0 Z5 r% `( S2 ~For i = 1 To movtimes
, |$ t! `8 ~. `6 U3 |  pe(0) = pc(0) + movx
9 l' J$ `0 R, @3 K  v% P# `8 F  pe(1) = pc(1) + movy
  pe(2) = pc(2) + movz
( Z, I$ x( K/ l( Y' u+ b; n  getobj.move pc, pe    '移动一段
6 i0 u, x: c6 X( ^# @  getobj.Update         '更新对象
6 A! K1 Z+ w6 d2 RNext
End Sub


" k" M$ n7 x/ ~程序编译执行都没有错误，但是在选择完移动对象，选择起点的时候就报错（如图）
& E$ x: i* z9 t+ V
[ 本帖最后由 jasmine126 于 2008-10-31 15:17 编辑 ]

woaishuijia

简单改写了你的程序，自己对照一下都有哪些部分不一样
# }+ F* R' ^$ [2 B- o7 J

1. Sub Move()
   
2.     Dim P0 As Variant       '起点坐标
   
3.     Dim P1 As Variant       '终点坐标
     i: i- n6 j& j5 x- A3 t/ I
4.     Dim Pc(2) As Double     '移动时基点坐标
   8 B! M$ w; ?2 u" Q. j! N5 n9 Q: `
5.     Dim Pe(2) As Double     '移动时第二点坐标
   ( v' e, C7 \. v" e) s; |$ d( J
6.     Dim MovX As Double      'x轴增量
   3 g9 x/ ]& O: ?! E7 v
7.     Dim MovY As Double      'y轴增量
   ; r: r" ?9 i8 r) Z% ?. w( G/ b6 c
8.     Dim MovZ As Double      'z轴增量
   1 k1 g5 Q6 G. J) G+ u: r/ ~
9.     Dim GetObj As Object    '移动对象
   0 _2 E* P+ k) a) l/ J# `8 s
10.     Dim MovTimes As Integer '移动次数
    
11.     ThisDrawing.Utility.GetEntity GetObj, P0, "请选择移动对象"
    
12.     P0 = ThisDrawing.Utility.GetPoint(, "起点:" )
    
13.     P1 = ThisDrawing.Utility.GetPoint(P0, "终点:" )
    / f! q% ]1 D- d
14.     MovTimes = 30
    % z) W8 @) D/ ~4 p' G) O9 J
15.     MovX = (P1(0) - P0(0)) / MovTimes
    
16.     MovY = (P1(1) - P0(1)) / MovTimes
    
17.     MovZ = (P1(2) - P0(2)) / MovTimes
    
18.     Pe(0) = Pc(0) + MovX
    
19.     Pe(1) = Pc(1) + MovY
    
20.     Pe(2) = Pc(2) + MovZ
    ; \3 F7 ~- x, I
21.     For I = 1 To MovTimes
      V+ V4 z; h: g: p
22.       GetObj.Move Pc, Pe    '移动一段
    ' V5 G4 ^# B" C. U( N
23.       GetObj.Update         '更新对象
    2 D. Q" b9 m/ j8 f2 V
24.     Next
    5 b& b' A" y( n8 n+ y: w
25. End Sub

复制代码

qinrongshan

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