[VBA]请教 Aucad VBA 简单问题

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

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

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

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

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

Dim ss1 As AcadSelectionSet
Set ss1 = ThisDrawing.SelectionSets.Add("ss1")
ss1.Select acSelectionSetAll
ss1.Erase

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

谢谢大哥
努力学习中