Topsolid online Help Index
This example shows how to create a basic extruded shape.
Dim TopDoc As TopSolid.DocumentDesign
...
Dim cv As TopSolid.Curve
Dim sh As TopSolid.Shape
' make curve
Set cv = TopDoc.Curves.AddBasicCircle(0, 0, 0, 1, 0, 0, 0, 1, 0, 0.02, 0)
' make extruded shape
Set sh = TopDoc.Shapes.AddBasicExtruded(cv, 0, 0, 1, 0.05, 0, 0, False, True)
' delete curve
cv.Element.Delete
Set cv = Nothing
...
Topsolid online Help Index