All Frameworks Object Hierarchy This Framework Previous Next Indexes
IUnknown
|
+---IDispatch
|
+---CATBaseUnknown
|
+---CATBaseDispatch
|
+---AnyObject
|
+---Part
| o Property AnnotationSets( | ) As CATIACollection (Read Only) |
Set partRoot = partDoc.Part Dim annotationSets As AnnotationSets Set annotationSets = partRoot.AnnotationSets
| o Property AxisSystems( | ) As CATIAAxisSystems (Read Only) |
Set partRoot = partDoc.Part Dim axisSystems As AxisSystems Set axisSystems = partRoot.AxisSystems
| o Property Bodies( | ) As CATIABodies (Read Only) |
Set partRoot = partDoc.Part Set bodiesColl = partRoot.Bodies
| o Property Constraints( | ) As CATIAConstraints (Read Only) |
Set partRoot = partDoc.Part Set csts = partRoot.Constraints
| o Property Density( | ) As double (Read Only) |
Set partRoot = partDoc.Part MsgBox "The density is " & partRoot.Density
| o Property GeometricElements( | ) As CATIAGeometricElements (Read Only) |
Set partRoot = partDoc.Part Set geomElts = partRoot.GeometricElements
| o Property HybridBodies( | ) As CATIAHybridBodies (Read Only) |
Set partRoot = partDoc.Part Set hybridBodiesColl = partRoot.HybridBodies
| o Property HybridShapeFactory( | ) As CATIAFactory (Read Only) |
Set partRoot = partDoc.Part Dim hybridShapeFact As Factory Set hybridShapeFact = partRoot.HybridShapeFactory
| o Property InWorkObject( | ) As CATIABase |
Set partRoot = partDoc.Part
Set partRoot.InWorkObject = cylindricPad
If ( partRoot.InWorkObject <> cylindricPad ) Then
MsgBox "There is a big problem"
End If
| o Property MainBody( | ) As CATIABody |
Dim mainBody As Body Set mainBody=CATIA.ActiveDocument.Part.MainBody
| o Property OrderedGeometricalSets( | ) As CATIAOrderedGeometricalSets (Read Only) |
Set partRoot = partDoc.Part Set ogsColl = partRoot.OrderedGeometricalSets
| o Property OriginElements( | ) As CATIAOriginElements (Read Only) |
Set partRoot = partDoc.Part Set originElts = partRoot.OriginElements
| o Property Parameters( | ) As CATIAParameters (Read Only) |
Set partRoot = partDoc.Part Dim params As Parameters Set params = partRoot.Parameters
| o Property Relations( | ) As CATIARelations (Read Only) |
Set partRoot = partDoc.Part Set rels = partRoot.Relations
| o Property ShapeFactory( | ) As CATIAFactory (Read Only) |
Set partRoot = partDoc.Part Dim shapeFact As Factory Set shapeFact = partRoot.ShapeFactory
| o Property SheetMetalFactory( | ) As CATIAFactory (Read Only) |
Set partRoot = partDoc.Part Dim sheetMetalFact As Factory Set sheetMetalFact = partRoot.SheetMetalFactory
| o Property SheetMetalParameters( | ) As CATIABase (Read Only) |
Set partRoot = partDoc.Part Dim sheetMetalParm As SheetMetalParameters Set sheetMetalFact = partRoot.SheetMetalParameters
| o Property UserSurfaces( | ) As CATIACollection (Read Only) |
Set partRoot = partDoc.Part Dim userSurfaces As UserSurfaces Set userSurfaces = partRoot.UserSurfaces
| o Sub Activate( | CATIABase | iObject) |
Set partRoot = partDoc.Part
Set pad1 = partRoot.FindObjectByName("Pad.1")
partRoot.Activate(pad1)
| o Func CreateReferenceFromBRepName( | CATBSTR | iLabel, |
| CATIABase | iObjectContext) As CATIAReference |
| o Func CreateReferenceFromName( | CATBSTR | iLabel) As CATIAReference |
| o Func CreateReferenceFromObject( | CATIABase | iObject) As CATIAReference |
| o Func FindObjectByName( | CATBSTR | iObjName) As CATIABase |
Set partRoot = partDoc.Part
Set obj = partRoot.FindObjectByName("Wrong name")
If TypeName(obj)="Nothing" Then
MsgBox "Object not found"
End If
| o Func GetCustomerFactory( | CATBSTR | iFactoryIID) As CATIAFactory |
| o Sub Inactivate( | CATIABase | iObject) |
Set partRoot = partDoc.Part
Set pad1 = partRoot.FindObjectByName("Pad.1")
partRoot.Inactivate(pad1)
| o Func IsInactive( | CATIABase | iObject) As boolean |
Set partRoot = partDoc.Part
Set pad1 = partRoot.FindObjectByName("Pad.1")
isInactive = partRoot.IsInactive(pad1)
| o Func IsUpToDate( | CATIABase | iObject) As boolean |
Set partRoot = partDoc.Part
Set pad1 = partRoot.FindObjectByName("Pad.1")
isuptodate = partRoot.IsUpToDate(pad1)
| o Sub Update( | ) |
Set partRoot = partDoc.Part partRoot.Update
| o Sub UpdateObject( | CATIABase | iObject) |
Set partRoot = partDoc.Part
Set pad1 = partRoot.FindObjectByName("Pad.1")
partRoot.UpdateObject(pad1)
Copyright © 2003, Dassault Systèmes. All rights reserved.