Topsolid online Help Index
This example shows how to create a standard component.
Dim TopDoc As TopSolid.DocumentDesign
...
Dim compo As TopSolid.Component
' create component
Set compo = TopDoc.Components.AddStandard("AFNOR", "fastener",
"screw", "25125", "", "", "M6-40", 0.01, 0, 0)
' add to Assembly
Call TopDoc.Assembly.Elements.Add(compo)
' release component
Set compo = Nothing
...
Topsolid online Help Index