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

jasmine126

按照AUTOCAD VBA的学习资料，我把二维的改成三维的之后出现如图错误，哪位大大能帮忙指正一下 非常感谢
" y* t6 m2 e$ j& l! G" h3 ?, r
改过后程序为：
* H& R7 Z* H& ?
0 S. {2 \4 f4 t7 qPublic Sub move()
Dim p0(2) As Variant       '起点坐标
Dim p1(2) As Variant       '终点坐标
) Y0 n. t! j3 J/ ADim pc(2) As Variant       '移动时起点坐标
6 T% c- P3 r+ A5 I! Q% SDim pe(2) As Variant       '移动时终点坐标
Dim movx As Variant     'x轴增量
Dim movy As Variant     'y轴增量
: h# M& O3 _: Z3 Y& CDim movz As Variant     'z轴增量
Dim getobj As Object    '移动对象
Dim movtimes As Integer '移动次数
- |$ T4 z( j+ \" z6 u. WThisDrawing.Utility.GetEntity getobj, po, "请选择移动对象"
' w$ e" j# m# Q4 r9 up0(2) = ThisDrawing.Utility.GetPoint(, "起点:")
p1(2) = ThisDrawing.Utility.GetPoint(p0, "终点:")
pe(2) = p0(2)
( K- g$ e+ j! r/ W$ ipc(2) = p0(2)
! N( D0 `( M. p0 K+ y7 C2 Rmovtimes = 30
0 t- _1 k" C) [) lmovx = (p1(0) - p0(0)) / movtimes
movy = (p1(1) - p0(1)) / movtimes
movz = (p1(2) - p0(2)) / movtimes
  d* X& ~5 Y7 X" x" W6 [  GFor i = 1 To movtimes
3 V7 ?$ H6 I% b  y8 W- y. E  pe(0) = pc(0) + movx
, `8 Q  d- ^( l  pe(1) = pc(1) + movy
  pe(2) = pc(2) + movz
  getobj.move pc, pe    '移动一段
  getobj.Update         '更新对象
Next
) O: o4 j& ~4 \" w; _) uEnd Sub


程序编译执行都没有错误，但是在选择完移动对象，选择起点的时候就报错（如图）
, ?3 W1 a9 E% w) Z( _3 s" A
[ 本帖最后由 jasmine126 于 2008-10-31 15:17 编辑 ]

woaishuijia

简单改写了你的程序，自己对照一下都有哪些部分不一样
& Y* F) X, d, P. e, P

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     '移动时第二点坐标
   * Y# W- z/ H5 ?! v. h
6.     Dim MovX As Double      'x轴增量
   $ l7 I0 g* X. x
7.     Dim MovY As Double      'y轴增量
   
8.     Dim MovZ As Double      'z轴增量
   
9.     Dim GetObj As Object    '移动对象
   
10.     Dim MovTimes As Integer '移动次数
    9 J* R! @& g( T' C6 g% d- P
11.     ThisDrawing.Utility.GetEntity GetObj, P0, "请选择移动对象"
    * o% z# h7 p8 q4 H% k* T
12.     P0 = ThisDrawing.Utility.GetPoint(, "起点:" )
    . _# B2 ?0 z) b- i- l
13.     P1 = ThisDrawing.Utility.GetPoint(P0, "终点:" )
    / o( O: X1 a, x" f
14.     MovTimes = 30
    
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
    8 U( G* z" ^3 A; q/ w
19.     Pe(1) = Pc(1) + MovY
    " m2 H" U9 ]# o8 {  R% V, V
20.     Pe(2) = Pc(2) + MovZ
    + z: E5 A3 Q/ B5 w8 A
21.     For I = 1 To MovTimes
    
22.       GetObj.Move Pc, Pe    '移动一段
    
23.       GetObj.Update         '更新对象
    
24.     Next
    
25. End Sub

复制代码

qinrongshan

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