All Frameworks Object Hierarchy This Framework Indexes
| o Sub Initialization( | ) |
Dim objPrdRoot As Product
Dim objPspWorkbench As PspWorkbench
Dim objPspApplnPip As PspApplication
Dim objPspApplnTub As PspApplication
Set objPrdRoot = CATIA.ActiveDocument.Product
Set objPspWorkbench = objPrdRoot.GetTechnologicalObject ("PspWorkbench")
Set objPspApplnPip = objPspWorkbench.GetApplication(catPspIDLCATPiping)
...
objPspApplnPip.Initialization
....
Set objPspApplnTub = objPspWorkbench.GetApplication(catPspIDLCATTubing)
Copyright © 2003, Dassault Systèmes. All rights reserved.