dim t as Variantif ThisDrawing.ActiveSelectionSet.Count then '判断是否选择了对象 for each t in ThisDrawing.ActiveSelectionSet ‘循环每一个选中的对象 ……处理每一个选中的图元对象 t…… nextend if
我也想知道让我学习一下吧