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