Normal Example
Sub Example_Normal () 'This example displays the normal vector 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 Normal: " & geo.Normal(0) & ", " & geo.Normal(1) & ", " & geo.Normal(2), vbInformation, "Normal Example" Else MsgBox "Not an AEC Entity", vbExclamation, "Normal Example" End If
End Sub