선택한 Text의 정보 출력

선택한 Text의 정보를 출력하는 예제입니다.

Sub DisplaySelTextElement()
    Dim cim As CadInputMessage
    Dim oEnumerator As ElementEnumerator
    
    If Not ActiveModelReference.AnyElementsSelected Then
        ShowError "The macro requires a selection set"
        Exit Sub
    End If

    
    Set oEnumerator = ActiveModelReference.GetSelectedElements
    Do While oEnumerator.MoveNext
        Dim oElement As Element
            
        Set oElement = oEnumerator.Current
        If oElement.Type = msdElementTypeText Then
            ShowStatus oElement.AsTextElement.Text
        End If
    Loop
End Sub