Rem SuFind
Rem Positions-Nummer
Rem Hans Krissler Ing. (grad.)
Rem 12.01.2005

    Sub SuFind()
    Dim Such As String
    Such = InputBox("gesuchte Positions-Nummer : ")
    Dim symbb As McadSymbolBBMgr
    Set symbb = ThisDrawing.Application.GetInterfaceObject("SymBBAuto.McadSymbolBBMgr")
    Dim objName As String
    Dim entry As AcadEntity
    For Each entry In ThisDrawing.ModelSpace
        objName = entry.ObjectName
        If objName = "AcmBalloon" Then
            Dim Items As McadBOMItems
            Set Items = entry.BOMItems
            Dim Pos As String
            Dim Item As McadBOMItem
            For Each Item In Items
                Pos = Item.ItemNumber
                If Pos = Such Then
                    entry.Highlight True
                    ThisDrawing.Application.Update
                    entry.GetBoundingBox MinPunkt, MaxPunkt
                    ZoomWindow MinPunkt, MaxPunkt
                    MsgBox "Pos-Nr.", vbOKOnly + vbInformation, Pos
                    entry.Highlight False
                End If
            Next
        End If
    Next
    End Sub