VBA函数在AutoCAD 2013中不起作用

Tyke · 发表于 2013-2-22 11:50:13

我有一个VBA模块和一个函数，它基本上只是创建一个组。该功能在所有AutoCAD版本2008至2012上都可以正常工作，但在AutoCAD 2013中，它会崩溃并显示错误消息“运行时错误'-2147417856（800 10 100）”。
这是函数：

copy

Public Function CreateGroup(grpName As String) As AcadGroup
    
    Dim colGroups As AcadGroups
    Dim objGroup As AcadGroup
    
    Set colGroups = ThisDrawing.Groups
    
    On Error Resume Next
    
    Set objGroup = ThisDrawing.Groups.Item(grpName)
    
    ' create the group
    If Not objGroup Is Nothing Then
        objGroup.Delete
    End If
    
    Set objGroup = ThisDrawing.Groups.Add(grpName)
    
    ' check if it was created
    If objGroup Is Nothing Then
        MsgBox "Unable to Add '" & grpName & "'"
    End If
End Function