Area / Radius properties example

Private Sub AreaExample()

     ' This example adds an arc to the drawing and returns the area & radius.

     Dim icadDoc As IntelliCAD.Document

     Dim myArc As Arc

     Dim cenPt As IntelliCAD.Point

     Dim myObj As Object

     Dim myArea As Double

     Dim myRad As Double

     Set icadDoc = ActiveDocument

     Set cenPt = Library.CreatePoint(4, 2)

     'Add the arc to the .dwg

     Set myArc = icadDoc.ModelSpace.AddArc(cenPt, 3.52, 1, 3)

     ' Display the entity

     myArc.Update

     myArea = myArc.Area

     myRadius = myArc.Radius

     MsgBox "Area = " & myArea & Chr(13) & "Radius = " & myRadius

End Sub