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

jasmine126

按照AUTOCAD VBA的学习资料，我把二维的改成三维的之后出现如图错误，哪位大大能帮忙指正一下 非常感谢

改过后程序为：
, s- l& [& x' A
Public Sub move()
7 z% b; x0 f* e- hDim p0(2) As Variant       '起点坐标
* I% m3 h- F( y: l5 RDim p1(2) As Variant       '终点坐标
; ^* o( A1 ~/ F% ?8 \! RDim pc(2) As Variant       '移动时起点坐标
Dim pe(2) As Variant       '移动时终点坐标
Dim movx As Variant     'x轴增量
Dim movy As Variant     'y轴增量
Dim movz As Variant     'z轴增量
( p$ H0 d5 K; G& QDim getobj As Object    '移动对象
Dim movtimes As Integer '移动次数
ThisDrawing.Utility.GetEntity getobj, po, "请选择移动对象"
p0(2) = ThisDrawing.Utility.GetPoint(, "起点:")
! v' X+ Z  y- m( v+ B+ F+ O, |4 ap1(2) = ThisDrawing.Utility.GetPoint(p0, "终点:")
/ ^2 Y0 u. k' ]7 V/ Ype(2) = p0(2)
pc(2) = p0(2)
& L1 m( H# ^# D* e7 @movtimes = 30
  W( p6 \5 d  v" b9 [# J, Nmovx = (p1(0) - p0(0)) / movtimes
movy = (p1(1) - p0(1)) / movtimes
- `' [, U$ q9 e1 K, }movz = (p1(2) - p0(2)) / movtimes
For i = 1 To movtimes
0 C8 E) w% n$ ^) P  pe(0) = pc(0) + movx
0 h" l. a. c* S# Y( p  pe(1) = pc(1) + movy
" p1 t/ w; y6 M" h' [  pe(2) = pc(2) + movz
  getobj.move pc, pe    '移动一段
  getobj.Update         '更新对象
% R8 d, R, q7 |: c1 SNext
End Sub
* }$ I9 N9 E4 ?( Z( K/ K9 v

3 v2 A4 [% I1 o* W; t3 @3 B) e8 q% c程序编译执行都没有错误，但是在选择完移动对象，选择起点的时候就报错（如图）
# Y. ?5 t8 l8 \2 P# s( q# S
" V* \. Z$ K+ u1 R! u0 ?4 h[ 本帖最后由 jasmine126 于 2008-10-31 15:17 编辑 ]

woaishuijia

简单改写了你的程序，自己对照一下都有哪些部分不一样
# _) M9 s0 ]! j, o1 w7 I7 [

1. Sub Move()
   6 D+ t! W' Z* p; p4 D5 \( q
2.     Dim P0 As Variant       '起点坐标
   
3.     Dim P1 As Variant       '终点坐标
   
4.     Dim Pc(2) As Double     '移动时基点坐标
   * C8 {) D3 J" H$ `+ g; W% t8 [* X8 y
5.     Dim Pe(2) As Double     '移动时第二点坐标
   , E4 [9 U' L- K
6.     Dim MovX As Double      'x轴增量
   
7.     Dim MovY As Double      'y轴增量
   
8.     Dim MovZ As Double      'z轴增量
   ! I# O8 s: p! y& D9 h8 L+ S
9.     Dim GetObj As Object    '移动对象
   
10.     Dim MovTimes As Integer '移动次数
    + |3 w4 I# U6 l# w! ^/ R# |. ^% [
11.     ThisDrawing.Utility.GetEntity GetObj, P0, "请选择移动对象"
    
12.     P0 = ThisDrawing.Utility.GetPoint(, "起点:" )
    
13.     P1 = ThisDrawing.Utility.GetPoint(P0, "终点:" )
    7 E$ S+ o2 ?. [6 _) M
14.     MovTimes = 30
    
15.     MovX = (P1(0) - P0(0)) / MovTimes
    
16.     MovY = (P1(1) - P0(1)) / MovTimes
    5 F# K& @% j4 G% W5 F* _* v
17.     MovZ = (P1(2) - P0(2)) / MovTimes
    
18.     Pe(0) = Pc(0) + MovX
    . I2 Z0 Q7 K! S9 o6 k" @
19.     Pe(1) = Pc(1) + MovY
    
20.     Pe(2) = Pc(2) + MovZ
    ; a$ y9 A) _* m6 ]* G
21.     For I = 1 To MovTimes
    
22.       GetObj.Move Pc, Pe    '移动一段
    . l% h/ N- @7 _) k" u
23.       GetObj.Update         '更新对象
    ' E3 |9 Z+ S* c/ o" f# ~- q. a# O' V
24.     Next
    
25. End Sub

复制代码

qinrongshan

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