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