社区 › VBA/VB/ActiveX/API 编程技术 › 怎么查找某一个group是否存在？-->mccad转移

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

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

东哥 发表于 2003-1-10 17:13:00

或者直接用group命令或者在选择对象提示下用group

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

你没明白我的意思

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

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

VBA的方法如内

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