IntelliCAD 11.1 Object Library | |
AddTorus Method | |
See Also |
- Center
- A Point object representing the center point of the torus.
- TorusRadius
- The radius of the torus (distance from center of torus to center of tube).
- TubeRadius
- The radius of the tube.
PaperSpace Collection : AddTorus Method |
Description
Adds a polygon mesh torus given the location, torus radius and tube radius.
Syntax
Visual Basic |
---|
Public Function AddTorus( _ ByVal Center As Point, _ ByVal TorusRadius As Double, _ ByVal TubeRadius As Double _ ) As Solid3D |
Parameters
- Center
- A Point object representing the center point of the torus.
- TorusRadius
- The radius of the torus (distance from center of torus to center of tube).
- TubeRadius
- The radius of the tube.
Remarks
The torus will be drawn as a polygon mesh when object is a ModelSpace or PaperSpace collection object or a Block object. The torus will be drawn as an ACIS 3DSolid when object is a SolidCreator object. The optional SolidCreator object is only available in IntelliCAD versions that support ACIS 3DSolids.
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.Application.ZoomExtents
End Sub