GetAngle method example

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