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