freshair 发表于 2003-7-19 17:23:00

是不是你有的图层锁护了

所以你加On Error Resume Next语句就略过了锁护的图层

gzy 发表于 2003-9-22 21:46:00

也可以在选择集的后面加上删掉这个选择句的语句啊：
Dim selset As AcadSelectionSet
Set selset = ThisDrawing.SelectionSets.Add("集合5")
selset.Select acSelectionSetAll
'遍历选择集并将每一个对象镜相
Dim entry As AcadEntity
For Each entry In selset
entry.Mirror cp0, cp9
entry.Update
Next entry
selset.Delete '避免下次重复
这样下次就不会重复了
页: 1 [2]
查看完整版本: vba 添加选择集的问题