Topsolid online Help Index
This example shows two ways of creating a new design document.
The first way is the simplest one :
Dim TopApp As TopSolid.Application
...
Dim doc As TopSolid.DocumentDesign
Set doc = TopApp.Documents.Add("top")
...
The second way allows to override the user default choices (as displayed in the final dialog box presented when using the "File | New" command, in the mode "Without template") :
Dim TopApp As TopSolid.Application
...
Dim ctx As TopSolid.ContextDesign
Dim doc As TopSolid.DocumentDesign
Set ctx = TopApp.Contexts("TopSolid.ContextDesign")
Set doc = ctx.CreateDocument(topDesignModeAssociative, True, topStandardAFNOR)
...
Topsolid online Help Index