ManufacturingInterfaces ManufacturingMachinableGeometry (Object)

Properties

Property Shared() As

Returns or sets the shared state of a ManufacturingMachinableGeometry object.

Example:

The following example returns in bState the shared state of manufacturing machinable geometry firstMachGeom and then sets it to TRUE:

 Dim firstMachGeom As ManufacturingMachinableGeometry
 Set firstMachGeom = ...
 Dim bState As boolean
 Set bState = firstMachGeom.Shared
 bState = TRUE
 firstMachGeom.Shared = bState

Methods

Sub AddPointedGeometry( iGeometry, iProduct, iShapes)

Adds a geometry to the pointed geometry list.

Parameters:

iGeometry: The geometry to add
iProduct: The product where the geometry to add is located
iShapes: The list of shapes (body copied and pasted with links) where the geometry is to be added

Example:

The following example adds the geometry GeomToAdd of the product ProdOfGeomToAdd to the pointed geometry list of the manufacturing machinable geometry firstMachGeom.

 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 )

Sub AddPointedGeometryNotify( iGeometry, iProduct, iShapes, iNotify)

Adds a geometry to the pointed geometry list (manage notification).

Parameters:

iGeometry

The geometry to add

iProduct

The product where the geometry to add is located

iShapes

The list of shapes (body copied and pasted with links) where the geometry is to be added

iNotify

A flag to request whether to send a notification to update the model
Legal values:

0	No notification is sent and the model is not updated
1	A notification is sent and the model is updated

Example:

The following example adds the geometry GeomToAdd of the product ProdOfGeomToAdd to the pointed geometry list of the manufacturing machinable geometry firstMachGeom.

 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 )

Sub AddPointedGeometryWithNoDuplicatedCheck( iGeometry, iProduct, iShapes)

Adds a geometry to the pointed geometry list with no check on already referenced geometry.

Parameters:

iGeometry: The geometry to add
iProduct: The product where the geometry to add is located
iShapes: The list of shapes (body copied and pasted with links) where the geometry is to be added

Example:

The following example adds the geometry GeomToAdd of the product ProdOfGeomToAdd to the pointed geometry list of the manufacturing machinable geometry firstMachGeom.

 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 )

Sub AddPointedGeometryWithNoDuplicatedCheckNotify( iGeometry, iProduct, iShapes, iNotify)

Adds a geometry to the pointed geometry list with no check on an already referenced geometry.

Parameters:

iGeometry

The geometry to add

iProduct

The product where the geometry to add is located

iShapes

The list of shapes (body copied and pasted with links) where the geometry is to be added

iNotify

A flag to request whether to send a notification to update the model
Legal values:

0	No notification is sent and the model is not updated
1	A notification is sent and the model is updated

Example:

The following example adds the geometry GeomToAdd of the product ProdOfGeomToAdd to the pointed geometry list of the manufacturing machinable geometry firstMachGeom:

 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 )

Sub GetAssociatedTPS( IndexOfPointedGeom, oAnnotationsList)

Retrieves the Annotation object lists associated with a ManufacturingMachinableGeometry object.

Parameters:

IndexOfPointedGeom: The index of the pointed geometry among those associated with the ManufacturingMachinableGeometry object
oAnnotationsList: The retrieved list Annotation objects.
The array must be previously initialized using the method.

Example:

The following example retrieves the Annotation object list of the third pointed geometry under the manufacturing machinable geometry firstMachGeom in AnnotationList:

 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

Func GetAssociatedTPSCount( IndexOfPointedGeom) As

Returns the number of Annotation objects attached to a pointed geometry under a ManufacturingMachinableGeometry object.

Parameters:

IndexOfPointedGeom: The index of the pointed geometry
Note: Check that the index you are passing in less than or equal to the pointed geometry count retrieved using the method.
oAnnotationsListCount: The number of Annotation objects

Example:

The following example retrieves the number of Annotation objects attached to the third geometry under the manufacturing machinable geometry firstMachGeom in AssociatedTPSCount:

 Dim firstMachGeom As ManufacturingMachinableGeometry
 Set firstMachGeom = ...
 Dim AssociatedTPSCount As Long
 AssociatedTPSCount = PointedGeometryListSize = firstMachGeom.GetAssociatedTPSCount( 3 )

Sub GetDirection( oX, oY, oZ, IndexOfPointedGeom)

Retrieves the direction of a pointed geometry under a ManufacturingMachinableGeometry object.
Note: Currently valid only for AxialUDF and DesignHole features.

Parameters:

oX,oY,oZ: The components of the direction
IndexOfPointedGeom: The index of the pointed geometry
Note: Check that the index you are passing in less than or equal to the pointed geometry count retrieved using the method.

Example:

The following example retrieves the components of the direction of the third geometry under the manufacturing machinable geometry firstMachGeom:

 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)

Sub GetOrigin( oX, oY, oZ, IndexOfPointedGeom)

Retrieves the origin of a pointed geometry under a ManufacturingMachinableGeometry object.
Note: Currently valid only for AxialUDF and DesignHole features.

Parameters:

oX,oY,oZ: The coordinates of the origin
IndexOfPointedGeom: The index of the pointed geometry
Note: Check that the index you are passing in less than or equal to the pointed geometry count retrieved using the method.

Example:

The following example retrieves the coordinates of the origin of the third geometry under the manufacturing machinable geometry firstMachGeom:

 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)

Sub ListPointedGeometry( iIndex, oGeometry, oProduct, oNbShapes)

Retrieves a pointed geometry and its product.

Parameters:

iIndex: The index of the pointed geometry and product
oGeometry: The retrieved geometry
oProduct: The product of the retrieved geometry
oNbShapes: The number of shapes of the retrieved geometry

Example:

The following example retrieves the pointed geometry lists of the manufacturing machinable geometry firstMachGeom in PointedGeometryList and in PointedProductsList. The arrays must be previously initialized using the method.

 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

Sub ListShapesOfPointedGeometry( iIndex, oShapes)

Retrieves the pointed shape list.

Parameters:

iIndex: The index of the pointed geometry and product
oShapes: The retrieved shape list.
The array must be previously initialized using the method.

Example:

The following example retrieves the pointed shape list of the manufacturing machinable geometry firstMachGeom in PointedShapesList.

 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

Func PointedGeometryCount() As

Returns the pointed geometry list count.

Example:

The following example retrieves the pointed geometry list count of the manufacturing machinable geometry firstMachGeom in PointedGeometryListSize.

 Dim firstMachGeom As ManufacturingMachinableGeometry
 Set firstMachGeom = ...
 Dim PointedGeometryListSize As Long
 Set PointedGeometryListSize = firstMachGeom.PointedGeometryCount

Sub RemovePointedGeometry( iIndex)

Removes a geometry from the pointed geometry list.

Parameters:

iIndex: The index of the geometry to remove

Example:

The following example removes the third geometry from the pointed geometry list of the manufacturing machinable geometry firstMachGeom:

 Dim firstMachGeom As ManufacturingMachinableGeometry
 Set firstMachGeom = ...
 Call firstMachGeom.RemovePointedGeometry( 3 )