All Frameworks  Object Hierarchy  This Framework  Indexes

ManufacturingMachinableGeometry (Object)

Represents the machinable geometry object.
It is the low-level component of a machinable area.

See also:: ManufacturingMachinableArea

Shared: Returns or sets the shared state of a ManufacturingMachinableGeometry object.

AddPointedGeometryNotify: Adds a geometry to the pointed geometry list (manage notification).
AddPointedGeometryWithNoDuplicatedCheckNotify: Adds a geometry to the pointed geometry list with no check on an already referenced geometry.
AddPointedGeometryWithNoDuplicatedCheck: Adds a geometry to the pointed geometry list with no check on already referenced geometry.
AddPointedGeometry: Adds a geometry to the pointed geometry list.
GetAssociatedTPSCount: Returns the number of Annotation objects attached to a pointed geometry under a ManufacturingMachinableGeometry object.
GetAssociatedTPS: Retrieves the Annotation object lists associated with a ManufacturingMachinableGeometry object.
GetDirection: Retrieves the direction of a pointed geometry under a ManufacturingMachinableGeometry object.
GetOrigin: Retrieves the origin of a pointed geometry under a ManufacturingMachinableGeometry object.
ListPointedGeometry: Retrieves a pointed geometry and its product.
ListShapesOfPointedGeometry: Retrieves the pointed shape list.
PointedGeometryCount: Returns the pointed geometry list count.
RemovePointedGeometry: Removes a geometry from the pointed geometry list.

Properties

o 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

o 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 )

o 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 )

o 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 )

o 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 )

o Func GetAssociatedTPSCount( IndexOfPointedGeom) As

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

Parameters:

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 )

o Sub GetAssociatedTPS(		`IndexOfPointedGeom`,
		`oAnnotationsList`)

Retrieves the Annotation object lists associated with a ManufacturingMachinableGeometry object.

Parameters:

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

o 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:

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)

o 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:

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)

o 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

PointedGeometryCount 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

o Sub ListShapesOfPointedGeometry(		`iIndex`,
		`oShapes`)

Retrieves the pointed shape list.

Parameters:

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

o 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

o 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 )

ManufacturingMachinableGeometry (Object)

Property Index

Method Index

Properties

Methods