MSTN XM VBA - Lession4(요소 탐색하기)

아래 예제는 현재 열려 있는 모델의 요소에 접근하여 Range를 구하는 매크로 입니다.

 
Sub EnumElements()
    Dim oScanEnumerator As ElementEnumerator
    Dim oElement As Element
    
    Set oScanEnumerator = ActiveModelReference.Scan
    Do While oScanEnumerator.MoveNext
        Set oElement = oScanEnumerator.Current
        If oElement.IsGraphical Then
            ShowStatus "Low = " & oElement.Range.Low.X & "," & oElement.Range.Low.Y
            ShowStatus "High= " & oElement.Range.High.X & "," & oElement.Range.High.Y
        End If
    Loop
End Sub