All Frameworks Object Hierarchy This Framework Previous Next Indexes
IUnknown
|
+---IDispatch
|
+---CATBaseUnknown
|
+---CATBaseDispatch
|
+---AnyObject
|
+---ManufacturingFeature
|
+---ManufacturingMachinableFeature
|
+---ManufacturingMachinableGeometry
| o Property Shared( | ) As boolean |
Dim firstMachGeom As ManufacturingMachinableGeometry Set firstMachGeom = ... Dim bState As boolean Set bState = firstMachGeom.Shared bState = TRUE firstMachGeom.Shared = bState
| o Sub AddPointedGeometry( | CATIABase | iGeometry, |
| CATIAProduct | iProduct, | |
| CATSafeArrayVariant | iShapes) |
Dim firstMachGeom As ManufacturingMachinableGeometry Set firstMachGeom = ... Dim GeomToAdd As Shape Dim ProdOfGeomToAdd As Product Set GeomToAdd = ... Set ProdOfGeomToAdd = ... Dim ShapesList() As Variant Redim ShapesList(0) ' Create an empty list of shapes Call firstMachGeom.AddPointedGeometry( GeomToAdd, ProdOfGeomToAdd, ShapesList )
| o Sub AddPointedGeometryNotify( | CATIABase | iGeometry, |
| CATIAProduct | iProduct, | |
| CATSafeArrayVariant | iShapes, | |
| short | iNotify) |
| 0 | No notification is sent and the model is not updated |
| 1 | A notification is sent and the model is updated |
Dim firstMachGeom As ManufacturingMachinableGeometry Set firstMachGeom = ... Dim GeomToAdd As Shape Dim ProdOfGeomToAdd As Product Set GeomToAdd = ... Set ProdOfGeomToAdd = ... Dim ShapesList() As Variant Redim ShapesList(0) ' Create an empty list of shapes Call firstMachGeom.AddPointedGeometryNotify( GeomToAdd, ProdOfGeomToAdd, ShapesList, 0 )
| o Sub AddPointedGeometryWithNoDuplicatedCheck( | CATIABase | iGeometry, |
| CATIAProduct | iProduct, | |
| CATSafeArrayVariant | iShapes) |
Dim firstMachGeom As ManufacturingMachinableGeometry Set firstMachGeom = ... Dim GeomToAdd As Shape Dim ProdOfGeomToAdd As Product Set GeomToAdd = ... Set ProdOfGeomToAdd = ... Dim ShapesList() As Variant Redim ShapesList(0) ' Create an empty list of shapes Call firstMachGeom.AddPointedGeometryWithNoDuplicatedCheck( GeomToAdd, ProdOfGeomToAdd, ShapesList )
| o Sub AddPointedGeometryWithNoDuplicatedCheckNotify( | CATIABase | iGeometry, |
| CATIAProduct | iProduct, | |
| CATSafeArrayVariant | iShapes, | |
| short | iNotify) |
| 0 | No notification is sent and the model is not updated |
| 1 | A notification is sent and the model is updated |
Dim firstMachGeom As ManufacturingMachinableGeometry Set firstMachGeom = ... Dim GeomToAdd As Shape Dim ProdOfGeomToAdd As Product Set GeomToAdd = ... Set ProdOfGeomToAdd = ... Dim ShapesList() As Variant Redim ShapesList(0) ' Create an empty list of shapes Call firstMachGeom.AddPointedGeometryWithNoDuplicatedCheckNotify( GeomToAdd, ProdOfGeomToAdd, ShapesList, 0 )
| o Sub GetAssociatedTPS( | long | IndexOfPointedGeom, |
| CATSafeArrayVariant | oAnnotationsList) |
Dim firstMachGeom As ManufacturingMachinableGeometry Set firstMachGeom = ... Dim AssociatedTPSCount As Long AssociatedTPSCount = firstMachGeom.GetAssociatedTPSCount (2) If (AssociatedTPSCount > 0) Then Dim I As Long Dim AnnotationList() As Variant Redim AnnotationList(AssociatedTPSCount-1) Call firstMachGeom.GetAssociatedTPS(2, AnnotationList) End If
| o Func GetAssociatedTPSCount( | long | IndexOfPointedGeom) As long |
Dim firstMachGeom As ManufacturingMachinableGeometry Set firstMachGeom = ... Dim AssociatedTPSCount As Long AssociatedTPSCount = PointedGeometryListSize = firstMachGeom.GetAssociatedTPSCount( 3 )
| o Sub GetDirection( | double | oX, |
| double | oY, | |
| double | oZ, | |
| long | IndexOfPointedGeom) |
Dim firstMachGeom As ManufacturingMachinableGeometry Set firstMachGeom = ... Dim oX As Double Dim oY As Double Dim oZ As Double Call firstMachGeom.GetDirection( oX, oY, oZ, 3)
| o Sub GetOrigin( | double | oX, |
| double | oY, | |
| double | oZ, | |
| long | IndexOfPointedGeom) |
Dim firstMachGeom As ManufacturingMachinableGeometry Set firstMachGeom = ... Dim oX As Double Dim oY As Double Dim oZ As Double Call firstMachGeom.GetOrigin( oX, oY, oZ, 3)
| o Sub ListPointedGeometry( | long | iIndex, |
| CATIABase | oGeometry, | |
| CATIAProduct | oProduct, | |
| long | oNbShapes) |
Dim firstMachGeom As ManufacturingMachinableGeometry
Set firstMachGeom = ...
Dim PointedGeometryListSize As Long
Set PointedGeometryListSize = firstMachGeom.PointedGeometryCount
If (PointedGeometryListSize > 0) Then
Dim I As Long
For I = 0 To PointedGeometryListSize-1
Dim PointedGeometryList() As Variant
Dim PointedProductsList() As Variant
Dim NbShapes As Long
Redim PointedGeometryList(PointedGeometryListSize-1)
Redim PointedProductsList(PointedGeometryListSize-1)
Call firstMachGeom.ListPointedGeometry(I, PointedGeometryList, PointedProductsList, NbShapes)
End For
End If
| o Sub ListShapesOfPointedGeometry( | long | iIndex, |
| CATSafeArrayVariant | oShapes) |
Dim firstMachGeom As ManufacturingMachinableGeometry
Set firstMachGeom = ...
Dim PointedGeometryListSize As Long
Set PointedGeometryListSize = firstMachGeom.PointedGeometryCount
If (PointedGeometryListSize > 0) Then
Dim I As Long
For I = 0 To PointedGeometryListSize-1
Dim PointedGeometryList() As Variant
Dim PointedProductsList() As Variant
Dim NbShapes As Long
Redim PointedGeometryList(PointedGeometryListSize-1)
Redim PointedProductsList(PointedGeometryListSize-1)
Call firstMachGeom.ListPointedGeometry(I, PointedGeometryList, PointedProductsList, NbShapes)
If (NbShapes > 0) Then
Dim PointedShapesList() As Variant
Redim PointedShapesList(NbShapes-1)
Call firstMachGeom.ListShapesOfPointedGeometry(I, PointedShapesList)
End If
End For
End If
| o Func PointedGeometryCount( | ) As long |
Dim firstMachGeom As ManufacturingMachinableGeometry Set firstMachGeom = ... Dim PointedGeometryListSize As Long Set PointedGeometryListSize = firstMachGeom.PointedGeometryCount
| o Sub RemovePointedGeometry( | long | iIndex) |
Dim firstMachGeom As ManufacturingMachinableGeometry Set firstMachGeom = ... Call firstMachGeom.RemovePointedGeometry( 3 )
Copyright © 2003, Dassault Systèmes. All rights reserved.