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

luster 发表于 2003-1-10 16:33:00

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

luster 发表于 2003-1-10 19:59:00

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

mccad 发表于 2003-1-10 20:21:00

'检查图形中是否含有指定名称的组合的函数
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

查看完整版本: 怎么查找某一个group是否存在？-->mccad转移