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

jasmine126

按照AUTOCAD VBA的学习资料，我把二维的改成三维的之后出现如图错误，哪位大大能帮忙指正一下 非常感谢
. T6 {" m2 b) V' G7 r
) K3 Z) F) j; B- q* {9 A* N  {7 a, I改过后程序为：
3 e, \: p. k) `+ I2 e" Y/ `4 A5 W. K
Public Sub move()
7 ?2 x4 k9 [, T: o$ e. g9 nDim p0(2) As Variant       '起点坐标
1 }; k, W7 f- ?& DDim p1(2) As Variant       '终点坐标
Dim pc(2) As Variant       '移动时起点坐标
Dim pe(2) As Variant       '移动时终点坐标
Dim movx As Variant     'x轴增量
, z( G1 w7 {1 ^& k) ^# ^0 |Dim movy As Variant     'y轴增量
Dim movz As Variant     'z轴增量
2 o3 O* m, |% k; P2 m- N: b5 V! w& aDim getobj As Object    '移动对象
, m% P1 @$ c8 T, GDim movtimes As Integer '移动次数
ThisDrawing.Utility.GetEntity getobj, po, "请选择移动对象"
p0(2) = ThisDrawing.Utility.GetPoint(, "起点:")
p1(2) = ThisDrawing.Utility.GetPoint(p0, "终点:")
pe(2) = p0(2)
pc(2) = p0(2)
movtimes = 30
5 e3 z1 E# h! B0 ]( W+ B4 q: pmovx = (p1(0) - p0(0)) / movtimes
, |$ t* Y$ R) y: |2 @5 v3 A2 Rmovy = (p1(1) - p0(1)) / movtimes
movz = (p1(2) - p0(2)) / movtimes
For i = 1 To movtimes
0 C' H; j+ L# \" d3 N( U4 N  pe(0) = pc(0) + movx
  pe(1) = pc(1) + movy
) b7 [5 e6 D& x- L8 n0 w& Z& `+ l0 E  pe(2) = pc(2) + movz
  getobj.move pc, pe    '移动一段
4 Z+ M3 T9 p( c0 _9 L# h  getobj.Update         '更新对象
# T1 O3 }' j  v- _8 ?; }2 ]Next
End Sub
  H: t8 J2 N/ N1 z* M

5 W$ X5 [, ~% X3 S# r/ Q1 p程序编译执行都没有错误，但是在选择完移动对象，选择起点的时候就报错（如图）

( o' Q2 d4 v# ^( a[ 本帖最后由 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     '移动时基点坐标
   ) x6 }0 V: @8 A8 r6 ^. N4 X
5.     Dim Pe(2) As Double     '移动时第二点坐标
   
6.     Dim MovX As Double      'x轴增量
   + @6 p& S% H- S$ ?
7.     Dim MovY As Double      'y轴增量
   
8.     Dim MovZ As Double      'z轴增量
   
9.     Dim GetObj As Object    '移动对象
   
10.     Dim MovTimes As Integer '移动次数
    3 a8 A4 Q7 w8 k( M$ h: H; L8 i
11.     ThisDrawing.Utility.GetEntity GetObj, P0, "请选择移动对象"
    
12.     P0 = ThisDrawing.Utility.GetPoint(, "起点:" )
    
13.     P1 = ThisDrawing.Utility.GetPoint(P0, "终点:" )
    
14.     MovTimes = 30
    
15.     MovX = (P1(0) - P0(0)) / MovTimes
    ' S, u& g5 `' [1 ^" X3 y
16.     MovY = (P1(1) - P0(1)) / MovTimes
    ; l/ u, [& j5 l/ C8 n) t" n, M
17.     MovZ = (P1(2) - P0(2)) / MovTimes
    
18.     Pe(0) = Pc(0) + MovX
    & y' ~9 M* L. \" N( O8 t0 {
19.     Pe(1) = Pc(1) + MovY
    0 b0 w. b7 q' b, g8 X; j# x; T
20.     Pe(2) = Pc(2) + MovZ
    
21.     For I = 1 To MovTimes
    $ T& `6 @; @3 e* O3 y
22.       GetObj.Move Pc, Pe    '移动一段
    
23.       GetObj.Update         '更新对象
    ; s% b8 Z( [1 M9 _/ g
24.     Next
    
25. End Sub

复制代码

qinrongshan

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