All Frameworks Object Hierarchy This Framework Indexes
| o Func GetApplObjFactFromVirtualType( | iApplicationID) As |
Dim objSchPlatformRoot As SchematicRoot
Dim objSchObjFact As SchAppObjectFactory
Dim objProductRoot As Product
Set objProductRoot = CATIA.ActiveDocument.Product
Set objSchPlatformRoot = objProductRoot.GetTechnologicalObject ("SchematicRoot")
Set objSchObjFact = objSchPlatformRoot.GetApplObjFactFromVirtualType("UserDefined")(
| o Func GetApplicationObjectFactory( | iApplicationID) As |
Dim objSchPlatformRoot As SchematicRoot
Dim objSchObjFact As SchAppObjectFactory
Dim objProductRoot As Product
Set objProductRoot = CATIA.ActiveDocument.Product
Set objSchPlatformRoot = objProductRoot.GetTechnologicalObject ("SchematicRoot")
Set objSchObjFact = objSchPlatformRoot.GetApplicationObjectFactory("CatSchIDLCATPID")(
| o Func GetCompGroupFromCatalog( | iCatalogEntryName, | |
| iCtlgDoc) As |
Dim objSchPlatformRoot As SchematicRoot
Dim objSchComponent As SchComponent
Dim objProductRoot As Product
Set objProductRoot = CATIA.ActiveDocument.Product
Set objSchPlatformRoot = objProductRoot.GetTechnologicalObject ("SchematicRoot")
Dim objCtlgDoc As Document
Set objCtlgDoc = CATIA.Documents.Open ("Electrical_ANSI_PartFunctions.catalog")
Set objSchComponent = objSchPlatformRoot.GetCompGroupFromCatalog ("JuncBox-TermBoard",objCtlgDoc)
| o Func GetCompSymbolFromCatalog( | iCatalogEntryName, | |
| iCtlgDoc) As |
Dim objSchPlatformRoot As SchematicRoot
Dim objSchGRRComp As SchGRRComp
Dim objProductRoot As Product
Set objProductRoot = CATIA.ActiveDocument.Product
Set objSchPlatformRoot = objProductRoot.GetTechnologicalObject ("SchematicRoot")
Dim objCtlgDoc As Document
Set objCtlgDoc = CATIA.Documents.Open ("PID_ANSI_Equipment.catalog")
Set objSchGRRComp = objSchPlatformRoot.GetCompSymbolFromCatalog ("Blower",objCtlgDoc)
| o Func GetComponents( | ) As |
Dim objSchPlatformRoot As SchematicRoot Dim objSchListComps As SchListOfObjects Set objoSchListComps = objSchPlatformRoot.GetComponents
| o Func GetDrawingStandard( | ) As |
Dim objSchPlatformRoot As SchematicRoot
Dim objSchLSymbols As SchListOfObjects
Dim objProductRoot As Product
Set objProductRoot = CATIA.ActiveDocument.Product
Set objSchPlatformRoot = objProductRoot.GetTechnologicalObject ("SchematicRoot")
oDrwStd = objSchPlatformRoot.GetDrawingStandard
| o Func GetDrawing( | ) As |
Dim objSchPlatformRoot As SchematicRoot
Dim objProductRoot As Product
Set objProductRoot = CATIA.ActiveDocument.Product
Set objSchPlatformRoot = objProductRoot.GetTechnologicalObject ("SchematicRoot")
Dim objDrawRoot As DrawingRoot
Set objDrawRoot = objSchPlatformRoot.GetDrawing
| o Func GetInterface( | iInterfaceName, | |
| iObject) As |
Dim objSchPlatformRoot As SchematicRoot
Dim objSchObjFact As SchAppObjectFactory
Dim objProductRoot As Product
Set objProductRoot = CATIA.ActiveDocument.Product
Set objSchPlatformRoot = objProductRoot.GetTechnologicalObject ("SchematicRoot")
Set objSchObjFact = SchPlatformRoot.GetApplicationObjectFactory("CatSchIDLCATPID")
Set objSchObjFact2 = objSchPlatformRoot.GetInterface ("CATIASchAppObjectFactory2",SchObjFact)
| o Func GetRefComponents( | ) As |
Dim objSchPlatformRoot As SchematicRoot Dim objSchListComps As SchListOfObjects Set objSchListComps = objSchPlatformRoot.GetRefComponents
| o Func GetRoutes( | ) As |
Dim objSchPlatformRoot As SchematicRoot Dim objSchListRoutes As SchListOfObjects Set objSchListRoutes = objSchPlatformRoot.GetRoutes
| o Func GetSchBaseFactory( | ) As |
Dim objSchPlatformRoot As SchematicRoot
Dim objSchBaseFact As SchBaseFactory
Dim objProductRoot As Product
Set objProductRoot = CATIA.ActiveDocument.Product
Set objSchPlatformRoot = objProductRoot.GetTechnologicalObject ("SchematicRoot")
Set objSchBaseFact = objSchPlatformRoot.GetBaseFactory
| o Func GetSchematicSession( | ) As |
Dim objSchPlatformRoot As SchematicRoot
Dim objSchSession As SchSession
Dim objProductRoot As Product
Set objProductRoot = CATIA.ActiveDocument.Product
Set objSchPlatformRoot = objProductRoot.GetTechnologicalObject ("SchematicRoot")
Set objSchSession = objSchPlatformRoot.GetSession
| o Func GetTemporaryListFactory( | ) As |
Dim objSchPlatformRoot As SchematicRoot
Dim objSchList As SchTempListFactory
Dim objProductRoot As Product
Set objProductRoot = CATIA.ActiveDocument.Product
Set objSchPlatformRoot = objProductRoot.GetTechnologicalObject ("SchematicRoot")
Set objSchList = objSchPlatformRoot.GetTemporaryListFactory
| o Func GetUnassociatedSymbols( | ) As |
Dim objSchPlatformRoot As SchematicRoot
Dim objSchLSymbols As SchListOfObjects
Dim objProductRoot As Product
Set objProductRoot = CATIA.ActiveDocument.Product
Set objSchPlatformRoot = objProductRoot.GetTechnologicalObject ("SchematicRoot")
Set objSchLSymbols = objSchPlatformRoot.GetUnassociatedSymbols
| o Sub SetDrawingStandard( | iDrwStd) |
Dim objSchPlatformRoot As SchematicRoot
Dim objSchLSymbols As SchListOfObjects
Dim objProductRoot As Product
Set objProductRoot = CATIA.ActiveDocument.Product
Set objSchPlatformRoot = objProductRoot.GetTechnologicalObject ("SchematicRoot")
objSchPlatformRoot.SetDrawingStandard catISO
Copyright © 2003, Dassault Systèmes. All rights reserved.