Sub GetAngle_Example()
' This example obtains an angle from the user using the GetAngle method.
Dim retAngle As Double
Dim pt(0 To 2) As Double: pt(0) = 3: pt(1) = 3: pt(2) = 0
' Return the angle in radians with a prompt
retAngle = ThisDrawing.Utility.GetAngle(pt, "Enter an angle: ")
MsgBox "The angle entered was " & retAngle, , "GetAngle Example"
End Sub
| Bricscad™ is commercialized by Bricsys NV. Bricsys NV and Vondle NV are fully owned subsidiaries of Menhirs NV. © 2001- Menhirs NV - All rights reserved. |