Autocad二次开发vba教程第十一课

 下面的例题是一个最简单的动画，由用户选择一个要移动的对象，然后定位起点和终点，程序会慢慢地把对象移动。

    移动方法：object.move 起点坐标,端点坐标

Sub testmove()

Dim p0 As Variant       '起点坐标
Dim p1 As Variant       '终点坐标
Dim pc As Variant       '移动时起点坐标
Dim pe As Variant       '移动时终点坐标
Dim movx As Variant     'x轴增量
Dim movy As Variant     'y轴增量
Dim getobj As Object    '移动对象
Dim movtimes As Integer '移动次数

ThisDrawing.Utility.GetEntity getobj, po, "请选择移动对象"
p0 = ThisDrawing.Utility.GetPoint(, "起点:")
p1 = ThisDrawing.Utility.GetPoint(p0, "终点:")
pe = p0
pc = p0

motimes = 3000
movx = (p1(0) - p0(0)) / motimes
movy = (p1(1) - p0(1)) / motimes

For i = 1 To motimes
pe(0) = pc(0) + movx
pe(1) = pc(1) + movy
getobj.Move pc, pe    '移动一段
getobj.Update&nbs