FOR EACH SSET IN THISDRAWING.SELECTIONSETS
IF SSET.NAME="SS1" THEN
THISDRAWING.SELECTIONSETS.ITEM("SS1").DELETE
EXIT FOR
END IF
NEXT
Set sset = ThisDrawing.SelectionSets.Add("ss1")
sset.SelectOnScreen
或:
ON ERROR RESUME NEXT
Set sset = ThisDrawing.SelectionSets.Add("ss1")
SSET.CLEAR
sset.SelectOnScreen