AddCone method example

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