Circumference property example

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