vba CAD中选择集已存在导致出错的处理方法

在cad图中如果要建立一个名称为“SS1”的选择集，可是运行的时候出错，并提示“SS1”已存在，那么可以用下面的方法删除之前已经存在的“SS1”选择集，并重新选择图形新建一个。




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