社区 › VB › [求助]菜鸟问题！

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

查看完整版本: [求助]菜鸟问题！