All Frameworks Object Hierarchy This Framework Previous Indexes
IUnknown
|
+---IDispatch
|
+---CATBaseUnknown
|
+---CATBaseDispatch
|
+---AnyObject
|
+---SchematicRoot
| o Func GetApplObjFactFromVirtualType( | CATBSTR | iApplicationID) As CATIASchAppObjectFactory |
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( | CatSchIDLApplicationID | iApplicationID) As CATIASchAppObjectFactory |
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( | CATBSTR | iCatalogEntryName, |
| CATIADocument | iCtlgDoc) As CATIASchComponent |
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( | CATBSTR | iCatalogEntryName, |
| CATIADocument | iCtlgDoc) As CATIASchGRR |
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 CATIASchListOfObjects |
Dim objSchPlatformRoot As SchematicRoot Dim objSchListComps As SchListOfObjects Set objoSchListComps = objSchPlatformRoot.GetComponents
| o Func GetDrawing( | ) As CATIADrawingDrawing |
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 GetDrawingStandard( | ) As CatDrawingStandard |
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 GetInterface( | CATBSTR | iInterfaceName, |
| CATIABase | iObject) As CATIABase |
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 CATIASchListOfObjects |
Dim objSchPlatformRoot As SchematicRoot Dim objSchListComps As SchListOfObjects Set objSchListComps = objSchPlatformRoot.GetRefComponents
| o Func GetRoutes( | ) As CATIASchListOfObjects |
Dim objSchPlatformRoot As SchematicRoot Dim objSchListRoutes As SchListOfObjects Set objSchListRoutes = objSchPlatformRoot.GetRoutes
| o Func GetSchBaseFactory( | ) As CATIASchBaseFactory |
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 CATIASchSession |
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 CATIASchTempListFactory |
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 CATIASchListOfObjects |
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( | CatDrawingStandard | 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.