All Frameworks Object Hierarchy This Framework Previous Next Indexes
IUnknown
|
+---IDispatch
|
+---CATBaseUnknown
|
+---CATBaseDispatch
|
+---AnyObject
|
+---PspApplication
| 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.