All Frameworks Object Hierarchy This Framework Previous Indexes
IUnknown
|
+---IDispatch
|
+---CATBaseUnknown
|
+---CATBaseDispatch
|
+---AnyObject
|
+---PspWorkbench
| o Sub ExportProperties( | CATIADocument | iDocumentToExportFrom, |
| CATBSTR | 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( | CatPspIDLApplicationID | iApplicationID) As CATIAPspApplication |
Dim objPspWorkbench As PspWorkbench Dim objArg1 As CatPspIDLApplicationID Dim objArg2 As PspApplication objArg1 = catPspIDLCATPiping Set objArg2 = objPspWorkbench.GetApplication (objArg1)
| o Func GetInterface( | CATBSTR | iInterfaceName, |
| CATIABase | iObject) As CATIABase |
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.