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

jasmine126 · 发表于 2008-10-31 13:13:39

马上注册，结识高手，享用更多资源，轻松玩转三维网社区。

您需要登录才可以下载或查看，没有帐号？注册

x

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

改过后程序为：

Public 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轴增量
Dim 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)
pc(2) = p0(2)
movtimes = 30
movx = (p1(0) - p0(0)) / movtimes
movy = (p1(1) - p0(1)) / movtimes
movz = (p1(2) - p0(2)) / movtimes
For i = 1 To movtimes
  pe(0) = pc(0) + movx
  pe(1) = pc(1) + movy
  pe(2) = pc(2) + movz
  getobj.move pc, pe '移动一段
  getobj.Update       '更新对象
Next
End Sub

程序编译执行都没有错误，但是在选择完移动对象，选择起点的时候就报错（如图）

[ 本帖最后由 jasmine126 于 2008-10-31 15:17 编辑 ]

woaishuijia · 发表于 2008-10-31 13:47:11

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

Sub Move()
& l5 o9 s- s7 f' j/ V7 t
Dim P0 As Variant '起点坐标
7 X$ f9 b4 Q w
Dim P1 As Variant '终点坐标
: b$ N. w$ q2 C. ?: U. h# O$ @
Dim Pc(2) As Double '移动时基点坐标 m- E J4 y) W) r
Dim Pe(2) As Double '移动时第二点坐标% s' D$ h6 _' O' U& T. l
Dim MovX As Double 'x轴增量8 k& b |4 u. J8 u9 ^: z0 @, m
Dim MovY As Double 'y轴增量+ q; @$ Q7 ~: q7 J# I4 N# a
Dim MovZ As Double 'z轴增量
' e" H) r7 x" \$ {* ? @
Dim GetObj As Object '移动对象
/ S3 e& t P6 z- D
Dim MovTimes As Integer '移动次数* w- ^7 w1 |% z! m
ThisDrawing.Utility.GetEntity GetObj, P0, "请选择移动对象"6 q$ i' t6 l: {1 _* Z
P0 = ThisDrawing.Utility.GetPoint(, "起点:" ) 6 q# h2 D1 i% I9 M/ Q7 n
P1 = ThisDrawing.Utility.GetPoint(P0, "终点:" )
% E& H; D1 v0 Q
MovTimes = 30, v0 _: J) v: K
MovX = (P1(0) - P0(0)) / MovTimes6 e7 o7 M2 p7 u- t1 ?7 r0 j/ h' [+ }7 x
MovY = (P1(1) - P0(1)) / MovTimes, i* D! j9 k3 V' G0 `# S9 E8 L
MovZ = (P1(2) - P0(2)) / MovTimes7 a# N1 }( w# Q8 k3 U9 k0 K8 ^' Q
Pe(0) = Pc(0) + MovX
& B! T" e! ~- r0 m6 A* }
Pe(1) = Pc(1) + MovY
2 G9 O7 G) M- r. Y
Pe(2) = Pc(2) + MovZ4 D* K2 \7 s* i
For I = 1 To MovTimes2 n7 l4 F8 E- C3 k; D. j$ y
GetObj.Move Pc, Pe '移动一段
) ]0 X- N, n3 ?1 y
GetObj.Update '更新对象8 Q( O5 R2 o$ z4 \
Next
; v' p. E% P: ]/ W
End Sub

复制代码

qinrongshan · 发表于 2014-2-4 21:08:44

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

		自动登录	找回密码
密码			注册

通知

[已解决] AUTOCAD 运用VBA使三维运动的问题

马上注册，结识高手，享用更多资源，轻松玩转三维网社区。

评分

浏览过的版块