It there a keyin I can use to select Notes?

I can use PowerSelector keyins to almost create a selection of all text elements. Text, text nodes and dimensions are available. However, notes are not available so I cant select notes text as well. Is there any other keyin or macro that might be available to also select notes, or to select all text elements?

Parents
  • Try this VBA macro

    Sub SelectNoteElements()
        Dim oElement As Element
        Dim oEnumerator As ElementEnumerator
        Set oEnumerator = ActiveModelReference.Scan
        ActiveModelReference.UnselectAllElements
    
        Do While oEnumerator.MoveNext
            Set oElement = oEnumerator.Current
            Dim ph As PropertyHandler
            Set ph = CreatePropertyHandler(oElement)
        
            If (True = ph.SelectByAccessString("Description")) Then
                If (ph.GetValue = "Note") Then
                    'Debug.Print ph.GetValue + " - "; oElement.Type
                    ActiveModelReference.SelectElement oElement
                End If
            End If
        Loop
    End Sub
    

Reply
  • Try this VBA macro

    Sub SelectNoteElements()
        Dim oElement As Element
        Dim oEnumerator As ElementEnumerator
        Set oEnumerator = ActiveModelReference.Scan
        ActiveModelReference.UnselectAllElements
    
        Do While oEnumerator.MoveNext
            Set oElement = oEnumerator.Current
            Dim ph As PropertyHandler
            Set ph = CreatePropertyHandler(oElement)
        
            If (True = ph.SelectByAccessString("Description")) Then
                If (ph.GetValue = "Note") Then
                    'Debug.Print ph.GetValue + " - "; oElement.Type
                    ActiveModelReference.SelectElement oElement
                End If
            End If
        Loop
    End Sub
    

Children
No Data