Indexes Previous Next
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 AddPointedGeometryNotify( | AnyObject | iGeometry, |
Product | 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 AddPointedGeometryWithNoDuplicatedCheckNotify( | AnyObject | iGeometry, |
Product | 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 AddPointedGeometryWithNoDuplicatedCheck( | AnyObject | iGeometry, |
Product | 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 AddPointedGeometry( | AnyObject | iGeometry, |
Product | 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 Func GetAssociatedTPSCount( | long | IndexOfPointedGeom) As long |
Dim firstMachGeom As ManufacturingMachinableGeometry Set firstMachGeom = ... Dim AssociatedTPSCount As Long AssociatedTPSCount = PointedGeometryListSize = firstMachGeom.GetAssociatedTPSCount( 3 )
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 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, |
AnyObject | oGeometry, | |
Product | 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 © 2006, Dassault Systèmes. All rights reserved.