[求助]菜鸟问题！

lsj2004

请教各位大侠创建一个选择集时怎么样才能避免出现错误的对话框“实时错误’－2147467259（8000405）’；方法作用于对象“IACADSELECTIONSETS”时失败”啊。谢谢啊，！ Public Sub creatselectionset()

Dim s1 As AcadSelectionSet

Set s1 = ThisDrawing.SelectionSets.Add("newselectionset")

MsgBox "新添加的选择集名称为" & selectionset1.Name, vbInformation, "selectionsets example"



End Sub

efan2000

Public Sub creatselectionset()
Dim s1 As AcadSelectionSet

On Error Resume Next
Set s1 = ThisDrawing.SelectionSets("newselectionset")
If Err Then
Err.Clear
Set s1 = ThisDrawing.SelectionSets.Add("newselectionset")
End If
s1.Clear
MsgBox "新添加的选择集名称为" & s1.Name, vbInformation, "selectionsets example"
End Sub 判断选择集是否存在，存在时创建会出错。