嘻皮客娱乐学习网

标题: vba CAD中选择集已存在导致出错的处理方法 [打印本页]

---

作者: xipick    时间: 2014-8-27 13:04
标题: 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

---

欢迎光临 嘻皮客娱乐学习网 (http://www.xipick.com/)

Powered by Discuz! X3.3