All Frameworks Object Hierarchy This Framework Indexes
| o Property Shared( | ) As |
Dim firstMachGeom As ManufacturingMachinableGeometry Set firstMachGeom = ... Dim bState As boolean Set bState = firstMachGeom.Shared bState = TRUE firstMachGeom.Shared = bState
| o Sub AddPointedGeometryNotify( | iGeometry, | |
| iProduct, | ||
| iShapes, | ||
| 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( | iGeometry, | |
| iProduct, | ||
| iShapes, | ||
| 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( | iGeometry, | |
| iProduct, | ||
| 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( | iGeometry, | |
| iProduct, | ||
| 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( | IndexOfPointedGeom) As |
Dim firstMachGeom As ManufacturingMachinableGeometry Set firstMachGeom = ... Dim AssociatedTPSCount As Long AssociatedTPSCount = PointedGeometryListSize = firstMachGeom.GetAssociatedTPSCount( 3 )
| o Sub GetAssociatedTPS( | IndexOfPointedGeom, | |
| 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( | oX, | |
| oY, | ||
| oZ, | ||
| 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( | oX, | |
| oY, | ||
| oZ, | ||
| 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( | iIndex, | |
| oGeometry, | ||
| oProduct, | ||
| 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( | iIndex, | |
| 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 |
Dim firstMachGeom As ManufacturingMachinableGeometry Set firstMachGeom = ... Dim PointedGeometryListSize As Long Set PointedGeometryListSize = firstMachGeom.PointedGeometryCount
| o Sub RemovePointedGeometry( | iIndex) |
Dim firstMachGeom As ManufacturingMachinableGeometry Set firstMachGeom = ... Call firstMachGeom.RemovePointedGeometry( 3 )
Copyright © 2003, Dassault Systèmes. All rights reserved.