怎么查找某一个group是否存在？-->mccad转移

Luster

东哥

Luster

我是说我怎么可以用遍历的方式看图形空间中有没有
我指定名字的组存在，对于实体或块都能找到，但是
组找不到，lisp能，vba我不知道怎么实现

mccad

'检查图形中是否含有指定名称的组合的函数
Function GetGroup(GName As String) As Boolean
    Dim objGroup As AcadGroup
    On Error Resume Next
    Set objGroup = ThisDrawing.Groups(GName)
    If Err Then
        GetGroup = False
    Else
        GetGroup = True
    End If
End Function

'GetGroup函数使用示例
Sub GGroup()
    Dim GName As String
    GName = "liec"
    Dim GroupTip As String
    If GetGroup(GName) Then
        GroupTip = "有"
    Else
        GroupTip = "无"
    End If
    MsgBox "图形中" & GroupTip & "名称为" & GName & "的组合存在", , "明经通道示例"
End Sub