AddCylinder method example

Private Sub AddCylinder_Example()

' This example adds a cylinder to the drawing using the AddCylinder method.

     Dim myDoc As IntelliCAD.Document

     Dim cylObj As IntelliCAD.PolygonMesh

     Dim pt As Point

     Set myDoc = ActiveDocument

     Set pt = Library.CreatePoint(2, 2, 0)

     Set cylObj = ThisDocument.ModelSpace.AddCylinder(pt, 3, 5)

     cylObj.Update

     ThisDocument.ActiveViewport.ZoomExtents

End Sub