Topsolid online Help Index
This example shows how to create a basic composite curve.
Dim TopDoc As TopSolid.DocumentDesign
...
Dim cvs(3) As TopSolid.Curve
Dim vcvs As Variant
Dim cv As TopSolid.Curve
' make constituent curves
Set cvs(0) = TopDoc.Curves.AddBasicLine(0, 0, 0, 0.03, 0, 0)
Set cvs(1) = TopDoc.Curves.AddBasicLine(0.03, 0, 0, 0.03, 0.02, 0)
Set cvs(2) = TopDoc.Curves.AddBasicLine(0.03, 0.02, 0, 0, 0.02, 0)
Set cvs(3) = TopDoc.Curves.AddBasicLine(0, 0.02, 0, 0, 0, 0)
' make composite curve
vcvs = cvs
Set cv = TopDoc.Curves.AddBasicComposite(vcvs)
...
Topsolid online Help Index