AddCone method example

Sub AddCone_Example()
' This example adds a cone to the drawing using the AddCone method.
    Dim coneObj As Acad3DSolid
    Dim Pt1(0 To 2) As Double: Pt1(0) = 2: Pt1(1) = 2: Pt1(2) = 0
    Set coneObj = ThisDrawing.ModelSpace.AddCone(Pt1, 3, 4)
    coneObj.Update
    ThisDrawing.Application.ZoomExtents
End Sub