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

jasmine126

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

: P. N3 S8 t! X  X改过后程序为：
$ B+ T0 w) g) X- q& \  I
- M5 \- J; [& o; h4 {2 Y! LPublic Sub move()
Dim p0(2) As Variant       '起点坐标
$ A% ~0 ^5 `; y4 n1 SDim p1(2) As Variant       '终点坐标
; g2 n* O& u4 C' B' Q' CDim pc(2) As Variant       '移动时起点坐标
8 b0 c) s( D1 @Dim pe(2) As Variant       '移动时终点坐标
Dim movx As Variant     'x轴增量
Dim movy As Variant     'y轴增量
. O  U& x$ F5 k8 {, E, f6 V5 s5 SDim movz As Variant     'z轴增量
Dim getobj As Object    '移动对象
9 ^( ?: r& D9 g/ n5 bDim movtimes As Integer '移动次数
6 d6 `% y  z6 q. wThisDrawing.Utility.GetEntity getobj, po, "请选择移动对象"
, \8 R: L, w1 ~+ |# c6 a: a- S  C- ~p0(2) = ThisDrawing.Utility.GetPoint(, "起点:")
p1(2) = ThisDrawing.Utility.GetPoint(p0, "终点:")
pe(2) = p0(2)
pc(2) = p0(2)
# i$ |+ I; x, R# K; fmovtimes = 30
. ^. H2 O- q( Y* n/ X  Kmovx = (p1(0) - p0(0)) / movtimes
3 b# Q3 n7 s+ x& L$ b2 F. Mmovy = (p1(1) - p0(1)) / movtimes
/ t) o' W  N. C) w. Y/ R2 |! Ymovz = (p1(2) - p0(2)) / movtimes
For i = 1 To movtimes
9 d" V3 m, e; }! P  pe(0) = pc(0) + movx
5 p; F3 K# g% G+ ?- p/ _  W# M& s  pe(1) = pc(1) + movy
  pe(2) = pc(2) + movz
3 \8 @6 W, n- ]  getobj.move pc, pe    '移动一段
  getobj.Update         '更新对象
6 s; u) q$ |! [& G# M3 mNext
1 `! X6 }' `- T+ j- m8 XEnd Sub

1 J4 \. i. W: _1 g" }
/ U: i% N& D2 `! v' i1 C3 k程序编译执行都没有错误，但是在选择完移动对象，选择起点的时候就报错（如图）
9 H6 D. k/ a9 G$ w4 ?6 r, O2 _
[ 本帖最后由 jasmine126 于 2008-10-31 15:17 编辑 ]

woaishuijia

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

1. Sub Move()
   - o% g; R# w- w% w3 i9 G, C; D/ f2 ^
2.     Dim P0 As Variant       '起点坐标
   ; b8 f% N' [  g& Y0 U
3.     Dim P1 As Variant       '终点坐标
   2 X* u; ]7 U) k+ |4 I4 _: w* D8 F
4.     Dim Pc(2) As Double     '移动时基点坐标
   
5.     Dim Pe(2) As Double     '移动时第二点坐标
   # ?9 s4 d1 s' ~) j; a
6.     Dim MovX As Double      'x轴增量
   2 B" d( P( b9 ]* J6 ?" y# d' I( ?
7.     Dim MovY As Double      'y轴增量
   " b! v& `, j8 n, U+ i* F# Y! j5 K
8.     Dim MovZ As Double      'z轴增量
   
9.     Dim GetObj As Object    '移动对象
   2 G. J; ^+ ?" y/ {$ @$ u
10.     Dim MovTimes As Integer '移动次数
    3 F8 N% {& K$ i, z( G; c: Q# \
11.     ThisDrawing.Utility.GetEntity GetObj, P0, "请选择移动对象"
    1 Z+ i! Q7 J" X& [" T0 `: t2 ?6 p
12.     P0 = ThisDrawing.Utility.GetPoint(, "起点:" )
    % \- y- M6 d6 c% o- u" t! @  [% n
13.     P1 = ThisDrawing.Utility.GetPoint(P0, "终点:" )
    
14.     MovTimes = 30
    
15.     MovX = (P1(0) - P0(0)) / MovTimes
    ! U: K+ y, E3 q! S. J% L
16.     MovY = (P1(1) - P0(1)) / MovTimes
    ( @! W1 c. V7 D) e1 _7 H1 ]0 R
17.     MovZ = (P1(2) - P0(2)) / MovTimes
    - }6 c! O9 d+ d2 x! v
18.     Pe(0) = Pc(0) + MovX
    3 a& r4 d# R% H( k2 a' z) G
19.     Pe(1) = Pc(1) + MovY
      X- {# r5 G6 c7 \/ |* Z" W' |
20.     Pe(2) = Pc(2) + MovZ
    
21.     For I = 1 To MovTimes
    
22.       GetObj.Move Pc, Pe    '移动一段
    ' s; o9 Y8 b: i- }6 e+ Z
23.       GetObj.Update         '更新对象
    7 T" W: f  d$ j+ C- v
24.     Next
    
25. End Sub

复制代码

qinrongshan

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