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

jasmine126

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

改过后程序为：
) L& [, A, v7 b* Z, n+ E5 }( r3 m/ W
Public Sub move()
Dim p0(2) As Variant       '起点坐标
1 i, S0 a# t) `- p5 ODim p1(2) As Variant       '终点坐标
/ O/ b% ?! s2 mDim pc(2) As Variant       '移动时起点坐标
Dim pe(2) As Variant       '移动时终点坐标
Dim movx As Variant     'x轴增量
Dim movy As Variant     'y轴增量
7 p7 P4 w" |( `. _: bDim movz As Variant     'z轴增量
7 Y' {- f1 i. C3 |6 X& G! EDim getobj As Object    '移动对象
Dim movtimes As Integer '移动次数
, P' C% T) g+ u$ ~; iThisDrawing.Utility.GetEntity getobj, po, "请选择移动对象"
p0(2) = ThisDrawing.Utility.GetPoint(, "起点:")
& J. J- o' I+ n' s3 Cp1(2) = ThisDrawing.Utility.GetPoint(p0, "终点:")
pe(2) = p0(2)
: z0 E% U3 F' U" ]3 [pc(2) = p0(2)
( K, R7 ^5 @, x) [2 V9 Zmovtimes = 30
9 v$ A* |7 K1 p7 L- ?; X$ R" ?! kmovx = (p1(0) - p0(0)) / movtimes
movy = (p1(1) - p0(1)) / movtimes
movz = (p1(2) - p0(2)) / movtimes
For i = 1 To movtimes
6 _( n; X3 ]4 ~8 t3 a+ _7 R" I$ g  pe(0) = pc(0) + movx
  pe(1) = pc(1) + movy
  pe(2) = pc(2) + movz
! f" ~. K2 L, v& v7 y/ s  getobj.move pc, pe    '移动一段
  getobj.Update         '更新对象
Next
! J+ h, ^+ v. T6 A' s" v7 s& \End Sub

$ Y, u/ V6 `& U5 L7 \
( J1 U! A# H: A1 s: S  n( J程序编译执行都没有错误，但是在选择完移动对象，选择起点的时候就报错（如图）
, w( ~8 U" S! ^9 l  C) X( A
[ 本帖最后由 jasmine126 于 2008-10-31 15:17 编辑 ]

woaishuijia

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

1. Sub Move()
   ! \3 [! W* E1 j2 F  k) N$ H3 L7 n
2.     Dim P0 As Variant       '起点坐标
   
3.     Dim P1 As Variant       '终点坐标
   
4.     Dim Pc(2) As Double     '移动时基点坐标
   . A: H& o9 n" Y! n1 Z
5.     Dim Pe(2) As Double     '移动时第二点坐标
   ! M4 O, F0 ~+ x7 M
6.     Dim MovX As Double      'x轴增量
   
7.     Dim MovY As Double      'y轴增量
   * Y7 l4 S+ p8 c. ~# A( Z2 F
8.     Dim MovZ As Double      'z轴增量
   ! g2 \. b% N' W8 T
9.     Dim GetObj As Object    '移动对象
   ( {: S8 X( K# i
10.     Dim MovTimes As Integer '移动次数
    ) W( ]) e3 Q$ z" O( {' [
11.     ThisDrawing.Utility.GetEntity GetObj, P0, "请选择移动对象"
    2 ]. D6 {. N+ J
12.     P0 = ThisDrawing.Utility.GetPoint(, "起点:" )
    * z6 h. |$ o  j6 c
13.     P1 = ThisDrawing.Utility.GetPoint(P0, "终点:" )
    $ ?% S: W5 A! G2 P
14.     MovTimes = 30
    
15.     MovX = (P1(0) - P0(0)) / MovTimes
    2 K  i$ v8 P& G3 f) \- u
16.     MovY = (P1(1) - P0(1)) / MovTimes
    / t! `0 R8 s" G
17.     MovZ = (P1(2) - P0(2)) / MovTimes
    
18.     Pe(0) = Pc(0) + MovX
    $ C/ h: O6 \7 _8 `4 g
19.     Pe(1) = Pc(1) + MovY
    
20.     Pe(2) = Pc(2) + MovZ
    
21.     For I = 1 To MovTimes
      G4 k1 Z' D6 ^* y# k$ b( P
22.       GetObj.Move Pc, Pe    '移动一段
    
23.       GetObj.Update         '更新对象
    
24.     Next
    , x' E0 G+ v7 ?
25. End Sub

复制代码

qinrongshan

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