Private Sub CircumfExample()
' This example creates a circle with a radius of 4 and
' obtains the circumference.
Dim icadDoc As IntelliCAD.Document
Dim icadCircle As IntelliCAD.Circle
Dim cenPt As IntelliCAD.Point
Set icadDoc = ActiveDocument
Set cenPt = Library.CreatePoint(1, 2)
'Add the circle to the .dwg
Set icadCircle = icadDoc.ModelSpace.AddCircle(cenPt, 4)
' Display the entity
icadCircle.Update
MsgBox "Circle created w/ center point at 1,2." & Chr(13) & "Circumference = " & icadCircle.Circumference
ThisDocument.ActiveViewport.ZoomExtents
End Sub