Private Sub AddTorus_Example()
' This example adds a torus to the drawing.
Dim myDoc As IntelliCAD.Document
Dim boxObj As IntelliCAD.PolygonMesh
Dim cenPt As Point
Set myDoc = ActiveDocument
Set cenPt = Library.CreatePoint(1, 1, 0)
Set torusObj = ThisDocument.ModelSpace.AddTorus(cenPt, 4, 2)
torusObj.Update
ThisDocument.ActiveViewport.ZoomExtents
End Sub