[求助]菜鸟问题！

lsj2004 · 发表于 2004-8-24 17:21:00

请教各位大侠创建一个选择集时怎么样才能避免出现错误的对话框“实时错误’－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 · 发表于 2004-8-24 21:44:00

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
判断选择集是否存在，存在时创建会出错。

[求助]菜鸟问题！

发表回复

精选推荐