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
Bricscad™ is commercialized by Bricsys NV. Bricsys NV and Vondle NV are fully owned subsidiaries of Menhirs NV. © 2001- Menhirs NV - All rights reserved.