东:
Subkkk()DimmysetAsAcadSelectionSetForEachmysetInThisDrawing.SelectionSetsIfmyset.Name="aaa"ThenThisDrawing.SelectionSets.Item("aaa").DeleteExitForEndIfNextSetmyset=ThisDrawing.SelectionSets.Add("aaa")myset.SelectOnScreenDimnAsIntegern=myset.CountMsgB....