AddTorus method example

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