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.