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

jasmine126

按照AUTOCAD VBA的学习资料，我把二维的改成三维的之后出现如图错误，哪位大大能帮忙指正一下 非常感谢
/ D3 s8 J& I& U0 N
改过后程序为：
  Z% a6 L8 y4 Q( w6 p* Y' d
2 l/ ?2 a* i6 N. OPublic Sub move()
Dim p0(2) As Variant       '起点坐标
Dim p1(2) As Variant       '终点坐标
Dim pc(2) As Variant       '移动时起点坐标
Dim pe(2) As Variant       '移动时终点坐标
Dim movx As Variant     'x轴增量
Dim movy As Variant     'y轴增量
6 D" Z9 ?9 e. Z6 `$ ?! y: u$ f9 CDim movz As Variant     'z轴增量
Dim getobj As Object    '移动对象
Dim movtimes As Integer '移动次数
ThisDrawing.Utility.GetEntity getobj, po, "请选择移动对象"
p0(2) = ThisDrawing.Utility.GetPoint(, "起点:")
p1(2) = ThisDrawing.Utility.GetPoint(p0, "终点:")
pe(2) = p0(2)
& ?$ C; i$ E6 T- Hpc(2) = p0(2)
( x& r2 C% a; B/ O) I8 lmovtimes = 30
; u. \+ Y# d1 d' pmovx = (p1(0) - p0(0)) / movtimes
/ n, A% `- ^& Vmovy = (p1(1) - p0(1)) / movtimes
* \- Z& I# }: W3 Xmovz = (p1(2) - p0(2)) / movtimes
; O( k# ^( [$ |6 Q" b; EFor i = 1 To movtimes
  pe(0) = pc(0) + movx
0 Z8 L8 }3 o  K5 O' p$ W% Q9 `  pe(1) = pc(1) + movy
  pe(2) = pc(2) + movz
2 P, F& X5 W- C5 z2 C  getobj.move pc, pe    '移动一段
  getobj.Update         '更新对象
Next
" I$ v8 E" d2 v" F) ^* G  J6 jEnd Sub


程序编译执行都没有错误，但是在选择完移动对象，选择起点的时候就报错（如图）
: ?1 `9 _: S* i$ b/ {
  f9 P; Q# i; I1 |2 M! U2 `[ 本帖最后由 jasmine126 于 2008-10-31 15:17 编辑 ]

woaishuijia

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

1. Sub Move()
   
2.     Dim P0 As Variant       '起点坐标
   
3.     Dim P1 As Variant       '终点坐标
   
4.     Dim Pc(2) As Double     '移动时基点坐标
   
5.     Dim Pe(2) As Double     '移动时第二点坐标
   0 N8 y" g6 ~, v; }: h
6.     Dim MovX As Double      'x轴增量
   ' [: p4 I, V5 \# N0 k
7.     Dim MovY As Double      'y轴增量
   * i- r- I; }1 J% w
8.     Dim MovZ As Double      'z轴增量
   
9.     Dim GetObj As Object    '移动对象
   6 |. W' r$ s) P# S4 h
10.     Dim MovTimes As Integer '移动次数
    
11.     ThisDrawing.Utility.GetEntity GetObj, P0, "请选择移动对象"
    
12.     P0 = ThisDrawing.Utility.GetPoint(, "起点:" )
    
13.     P1 = ThisDrawing.Utility.GetPoint(P0, "终点:" )
      ]4 K" B1 y& W" Z
14.     MovTimes = 30
    
15.     MovX = (P1(0) - P0(0)) / MovTimes
    
16.     MovY = (P1(1) - P0(1)) / MovTimes
    ' T  H6 _* d+ a" A/ H4 I" Z
17.     MovZ = (P1(2) - P0(2)) / MovTimes
    - `' a' V  a& C9 N
18.     Pe(0) = Pc(0) + MovX
    
19.     Pe(1) = Pc(1) + MovY
    
20.     Pe(2) = Pc(2) + MovZ
    ! J; u; |* s! k
21.     For I = 1 To MovTimes
    
22.       GetObj.Move Pc, Pe    '移动一段
    
23.       GetObj.Update         '更新对象
    / o6 i- v; y  q0 j1 h
24.     Next
    
25. End Sub

复制代码

qinrongshan

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