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

最新推荐文章于 2024-07-29 01:28:06 发布

原创

最新推荐文章于 2024-07-29 01:28:06 发布 · 1.8k 阅读

3 ·

CC 4.0 BY-SA版权

文章标签：

#vba #integer #object #图形 #编程 #360

本教程介绍了如何使用VBA在Autocad中进行二次开发，实现图形对象的移动和动画效果。通过示例代码，详细讲解了选择对象、设置移动次数、计算移动距离及轨迹，以及对象的旋转和偏移操作，帮助用户掌握Autocad的编程技巧。

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

移动方法：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