Sub Example_GetAngle()
' This example obtains an angle from the user using the GetAngle method.
Dim retAngle As Double
Dim pnt As IntelliCAD.Point
Set pnt = Library.CreatePoint(0, 0, 0)
' Return the angle in radians with a prompt
Me.hide
retAngle = ThisDocument.Utility.GetAngle(pnt, "Enter an angle: ")
MsgBox "The angle entered was " & retAngle, , "GetAngle Example"
End Sub