buck50 发表于 2006-6-26 21:12:00

[VBA]请教 Aucad VBA 简单问题

我想用VBA实现清空屏幕，即选中所有图形对象并删除。 <BR>请高手给个例子，先谢过了

buck50 发表于 2006-6-26 21:16:00

<P>我先后试了,选择集sset,group中对象,就像中邪了,老是出错,我想应该有一个简洁的方法实现,无奈我是菜鸟,实在是莫法了</P>

霹雳啪啦啦 发表于 2006-6-27 15:53:00

<P>Dim ss1 As AcadSelectionSet<BR>Set ss1 = ThisDrawing.SelectionSets.Add("ss1")</P>
<P>ss1.Select acSelectionSetAll<BR>ss1.Erase</P>

buck50 发表于 2006-6-27 19:37:00

<P>谢谢大哥</P>
<P>努力学习中</P>
页: [1]
查看完整版本: [VBA]请教 Aucad VBA 简单问题