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

jasmine126

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

& O6 H$ W, ~( O. }) C9 A改过后程序为：

Public Sub move()
Dim p0(2) As Variant       '起点坐标
( x7 t5 |+ K( l+ s" d8 n1 `) LDim p1(2) As Variant       '终点坐标
8 E+ L2 A: c% p% h( h: JDim pc(2) As Variant       '移动时起点坐标
$ k) f) S! r0 Z8 F4 d- w7 vDim pe(2) As Variant       '移动时终点坐标
Dim movx As Variant     'x轴增量
$ Z; w4 B* A7 }4 GDim movy As Variant     'y轴增量
7 u9 C& S6 N& J, u! K! cDim movz As Variant     'z轴增量
Dim getobj As Object    '移动对象
Dim movtimes As Integer '移动次数
ThisDrawing.Utility.GetEntity getobj, po, "请选择移动对象"
p0(2) = ThisDrawing.Utility.GetPoint(, "起点:")
: Z% V& j" K' l; Up1(2) = ThisDrawing.Utility.GetPoint(p0, "终点:")
4 R! P& e4 V* `' upe(2) = p0(2)
) R( u$ D- F+ c  g( epc(2) = p0(2)
movtimes = 30
movx = (p1(0) - p0(0)) / movtimes
movy = (p1(1) - p0(1)) / movtimes
movz = (p1(2) - p0(2)) / movtimes
* t1 H, S! x0 M& TFor i = 1 To movtimes
  pe(0) = pc(0) + movx
$ Q; _" |1 k2 h3 \1 o8 G  H% F  pe(1) = pc(1) + movy
  pe(2) = pc(2) + movz
; P6 w* n; F, I5 ]  getobj.move pc, pe    '移动一段
  getobj.Update         '更新对象
- q/ {2 \# {( B4 ]" P% FNext
, S  p  L5 D9 DEnd Sub
( G6 [' r7 J* z! d/ B

( \: {3 }) v$ }! I+ r- h程序编译执行都没有错误，但是在选择完移动对象，选择起点的时候就报错（如图）
/ p! L* q4 A  w  h
* x' h' s' q" @% d) s# v+ e' \" v2 u2 K[ 本帖最后由 jasmine126 于 2008-10-31 15:17 编辑 ]

woaishuijia

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

1. Sub Move()
   
2.     Dim P0 As Variant       '起点坐标
   3 R% Q. X5 t+ q+ }% W4 Q" _
3.     Dim P1 As Variant       '终点坐标
   
4.     Dim Pc(2) As Double     '移动时基点坐标
   
5.     Dim Pe(2) As Double     '移动时第二点坐标
   : m+ Q/ E% b+ r8 m6 \) r1 i
6.     Dim MovX As Double      'x轴增量
   $ B6 q( v6 |, L
7.     Dim MovY As Double      'y轴增量
   
8.     Dim MovZ As Double      'z轴增量
   2 O. v9 u/ w! W+ L3 N
9.     Dim GetObj As Object    '移动对象
   
10.     Dim MovTimes As Integer '移动次数
    0 o* X; D( z8 y* @
11.     ThisDrawing.Utility.GetEntity GetObj, P0, "请选择移动对象"
    
12.     P0 = ThisDrawing.Utility.GetPoint(, "起点:" )
    
13.     P1 = ThisDrawing.Utility.GetPoint(P0, "终点:" )
    7 P! o4 N# Y8 J5 E& e
14.     MovTimes = 30
    4 t% I% {! _4 l* p
15.     MovX = (P1(0) - P0(0)) / MovTimes
    ( X: V; D5 ]3 k
16.     MovY = (P1(1) - P0(1)) / MovTimes
    
17.     MovZ = (P1(2) - P0(2)) / MovTimes
    9 L! T/ h$ D7 M2 e) r
18.     Pe(0) = Pc(0) + MovX
    
19.     Pe(1) = Pc(1) + MovY
    - k+ g, b$ W4 r2 C( ^
20.     Pe(2) = Pc(2) + MovZ
    
21.     For I = 1 To MovTimes
    ( Z% X  ~% g& @8 c( n$ e2 |
22.       GetObj.Move Pc, Pe    '移动一段
    5 ?: j9 R4 A% M) ~) o
23.       GetObj.Update         '更新对象
    
24.     Next
    
25. End Sub

复制代码

qinrongshan

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