vba 添加选择集的问题

freshair

是不是你有的图层锁护了

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

gzy

也可以在选择集的后面加上删掉这个选择句的语句啊：
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 '避免下次重复
这样下次就不会重复了