It there a keyin I can use to select Notes?

Question

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?

Leonard Jones · Answer

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

It there a keyin I can use to select Notes?

Top Replies