All Frameworks Object Hierarchy This Framework Indexes
| o Property AnnotationSets( | ) As (Read Only) |
Set partRoot = partDoc.Part Dim annotationSets As AnnotationSets Set annotationSets = partRoot.AnnotationSets
| o Property AxisSystems( | ) As (Read Only) |
Set partRoot = partDoc.Part Dim axisSystems As AxisSystems Set axisSystems = partRoot.AxisSystems
| o Property Bodies( | ) As (Read Only) |
Set partRoot = partDoc.Part Set bodiesColl = partRoot.Bodies
| o Property Constraints( | ) As (Read Only) |
Set partRoot = partDoc.Part Set csts = partRoot.Constraints
| o Property Density( | ) As (Read Only) |
Set partRoot = partDoc.Part MsgBox "The density is " & partRoot.Density
| o Property GeometricElements( | ) As (Read Only) |
Set partRoot = partDoc.Part Set geomElts = partRoot.GeometricElements
| o Property HybridBodies( | ) As (Read Only) |
Set partRoot = partDoc.Part Set hybridBodiesColl = partRoot.HybridBodies
| o Property HybridShapeFactory( | ) As (Read Only) |
Set partRoot = partDoc.Part Dim hybridShapeFact As Factory Set hybridShapeFact = partRoot.HybridShapeFactory
| o Property InWorkObject( | ) As |
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 |
Dim mainBody As Body Set mainBody=CATIA.ActiveDocument.Part.MainBody
| o Property OrderedGeometricalSets( | ) As (Read Only) |
Set partRoot = partDoc.Part Set ogsColl = partRoot.OrderedGeometricalSets
| o Property OriginElements( | ) As (Read Only) |
Set partRoot = partDoc.Part Set originElts = partRoot.OriginElements
| o Property Parameters( | ) As (Read Only) |
Set partRoot = partDoc.Part Dim params As Parameters Set params = partRoot.Parameters
| o Property Relations( | ) As (Read Only) |
Set partRoot = partDoc.Part Set rels = partRoot.Relations
| o Property ShapeFactory( | ) As (Read Only) |
Set partRoot = partDoc.Part Dim shapeFact As Factory Set shapeFact = partRoot.ShapeFactory
| o Property SheetMetalFactory( | ) As (Read Only) |
Set partRoot = partDoc.Part Dim sheetMetalFact As Factory Set sheetMetalFact = partRoot.SheetMetalFactory
| o Property SheetMetalParameters( | ) As (Read Only) |
Set partRoot = partDoc.Part Dim sheetMetalParm As SheetMetalParameters Set sheetMetalFact = partRoot.SheetMetalParameters
| o Property UserSurfaces( | ) As (Read Only) |
Set partRoot = partDoc.Part Dim userSurfaces As UserSurfaces Set userSurfaces = partRoot.UserSurfaces
| o Sub Activate( | iObject) |
Set partRoot = partDoc.Part
Set pad1 = partRoot.FindObjectByName("Pad.1")
partRoot.Activate(pad1)
| o Func CreateReferenceFromBRepName( | iLabel, | |
| iObjectContext) As |
| o Func CreateReferenceFromName( | iLabel) As |
| o Func CreateReferenceFromObject( | iObject) As |
| o Func FindObjectByName( | iObjName) As |
Set partRoot = partDoc.Part
Set obj = partRoot.FindObjectByName("Wrong name")
If TypeName(obj)="Nothing" Then
MsgBox "Object not found"
End If
| o Func GetCustomerFactory( | iFactoryIID) As |
| o Sub Inactivate( | iObject) |
Set partRoot = partDoc.Part
Set pad1 = partRoot.FindObjectByName("Pad.1")
partRoot.Inactivate(pad1)
| o Func IsInactive( | iObject) As |
Set partRoot = partDoc.Part
Set pad1 = partRoot.FindObjectByName("Pad.1")
isInactive = partRoot.IsInactive(pad1)
| o Func IsUpToDate( | iObject) As |
Set partRoot = partDoc.Part
Set pad1 = partRoot.FindObjectByName("Pad.1")
isuptodate = partRoot.IsUpToDate(pad1)
| o Sub UpdateObject( | iObject) |
Set partRoot = partDoc.Part
Set pad1 = partRoot.FindObjectByName("Pad.1")
partRoot.UpdateObject(pad1)
| o Sub Update( | ) |
Set partRoot = partDoc.Part partRoot.Update
Copyright © 2003, Dassault Systèmes. All rights reserved.