All Frameworks Object Hierarchy This Framework Indexes
| o Sub ExportProperties( | iDocumentToExportFrom, | |
| iXMLOutputFileName) |
Dim objPspWorkbench As PspWorkbench
Dim objCATIAV5CurDocument As Document
Dim iXMLOutputFileName As String
Set objCATIAV5CurDocument = CATIA.ActiveDocument
Set objProductRoot = objCATIAV5CurDocument.Product
Set objPspWorkbench = objProductRoot.GetTechnologicalObject ("PspWorkbench")
..
objThisIntf.ExportProperties objCATIAV5CurDocument, iXMLOutputFileName
| o Func GetApplication( | iApplicationID) As |
Dim objPspWorkbench As PspWorkbench Dim objArg1 As CatPspIDLApplicationID Dim objArg2 As PspApplication objArg1 = catPspIDLCATPiping Set objArg2 = objPspWorkbench.GetApplication (objArg1)
| o Func GetInterface( | iInterfaceName, | |
| iObject) As |
Dim objPspWorkbench As PspWorkbench
Dim objPspApplication As PspApplication
Dim objPspAppFactory As PspAppFactory
Dim objProductRoot As Product
Set objProductRoot = CATIA.ActiveDocument.Product
Set objPspWorkbench = objProductRoot.GetTechnologicalObject ("PspWorkbench")
Set objPspPipApplication = objPspWorkbench.GetApplication(catPspIDLCATPiping)
Set objPspPipAppFactory = objPspWorkbench.GetInterface ("CATIAPspAppFactory",objPspPipApplication)
Copyright © 2003, Dassault Systèmes. All rights reserved.