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

本教程介绍了如何使用VBA在Autocad中进行二次开发,实现图形对象的移动和动画效果。通过示例代码,详细讲解了选择对象、设置移动次数、计算移动距离及轨迹,以及对象的旋转和偏移操作,帮助用户掌握Autocad的编程技巧。
摘要由CSDN通过智能技术生成
 下面的例题是一个最简单的动画,由用户选择一个要移动的对象,然后定位起点和终点,程序会慢慢地把对象移动。

    移动方法: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         '更新对象
Next

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值