Private Sub AddCone_Example()
' This example adds a cone to the drawing using the AddCone method.
Dim myDoc As IntelliCAD.Document
Dim coneObj As IntelliCAD.PolygonMesh
Dim pt As Point
Set myDoc = ActiveDocument
Set pt = Library.CreatePoint(2, 2, 0)
Set coneObj = ThisDocument.ModelSpace.AddCone(pt, 3, 4)
coneObj.Update
ThisDocument.ActiveViewport.ZoomExtents
End Sub