Subtract Example

AEC Auto

Location Example

Sub Example_Location  ()

    'This example displays the location of an AEC Entity
  
    Dim obj As Object
    Dim pt As Variant
    Dim geo As AecGeo
   
    ThisDrawing.Utility.GetEntity obj, pt, "Select an AEC Entity"
  
    If TypeOf obj Is AecGeo Then
        Set geo = obj
        MsgBox "AEC Entity Location: " & geo.Location(0) & ", " & geo.Location(1) & ", " & geo.Location(2), vbInformation, "Location Example"
    Else
        MsgBox "Not an AEC Entity", vbExclamation, "Location Example"
    End If

End Sub