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.