AddCylinder method example

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