AddTorus method example

Sub AddTorus_Example()
' This example adds a torus to the drawing using the AddTorus method.
    Dim torusObj  As Acad3DSolid
    Dim Pt1(0 To 2) As Double: Pt1(0) = 0: Pt1(1) = 0: Pt1(2) = 0
    Set torusObj = ThisDrawing.ModelSpace.AddTorus(Pt1, 20, 5)
    torusObj.Update
    ThisDrawing.Application.ZoomExtents
End Sub