Bu CATIA API fonksiyonu ne işe yarar?
Fonksiyon: CATPlantShipInterfaces PspApplication (Object)
Cevap:
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)