Topsolid online Help Index
This example shows how to create an associative extruded shape.
Dim TopDoc As TopSolid.DocumentDesign
...
Dim cv As TopSolid.Curve
Dim dir As TopSolid.RefDirection
Dim ln As TopSolid.Parameter
Dim sh As TopSolid.Shape
' make invisible curve
Set cv = TopDoc.Curves.AddBasicCircle(0, 0, 0, 1, 0, 0, 0, 1, 0, 0.02, 0)
cv.Element.Blanked = True
' make direction reference
Set dir = TopDoc.CurrentCoordinateSystem.MakeRefDirection(topDirectionZ)
' make length parameter
Set ln = TopDoc.Parameters.AddBasic(40, "mm")
' make extruded shape
Set sh = TopDoc.Shapes.AddExtrudedOnCurve(cv, dir, ln, Nothing, Nothing, False, True)
...
Topsolid online Help Index