SfmPositioningStrategyManager (Object)

Methods

Sub GetAvailablePositioningStrategies( oListStrategyNames)

Get The list of Available Position Strategies.

Parameters:

oListStrategyNames

[out] List of Strategies.

Returns:

S_OK if everything ran ok

Example

:

Gets Available Positoning Strategies from Position Strategy Manager.

  'Retrieve the Factory
  Set Factory =  part1.GetCustomerFactory("SfmFunctionFactory")
  'Retrieve the Position Strategy Manager
  Dim ObjSfmPosStrategyMgr As SfmPositioningStrategyManager
  Set ObjSfmPosStrategyMgr = Factory.GetOpeningMgr(Part1, "SfmPositioningStrategyManager")
  'Get The List of Available Strategies
  Dim oListStrategies() As Variant
  ObjSfmPosStrategyMgr.GetAvailablePositioningStrategies oListStrategies
  'Display The List of Available Strategies
  Dim NbOfStrategies As Long
  NbOfStrategies = UBound(oListStrategies)
  Display List of Strategies
  For i = 0 To NbOfStrategies
  MsgBox oListStrategies(i)
  Next
 

Func GetPositioningStrategyParams( iPosStrategyName) As

Get The list of Available Position Strategies Parameters, depending on Strategy Name. See CATIASfmStandardPosStrategyParameters for details

Parameters:

iPosStrategyName

[in] Name of Strategy.

oListPosParams

[out] List of parameters.

Returns:

S_OK if everything ran ok

Example

:

The Example Demonstrates how to get position strategy parameters for "CATSfmPosMidDistMidDist".

  'Retrieve the Factory
  Set Factory =  part1.GetCustomerFactory("SfmFunctionFactory")
  'Retrieve the Position Strategy Manager
  Dim ObjSfmPosStrategyMgr As SfmPositioningStrategyManager
  Set ObjSfmPosStrategyMgr = Factory.GetOpeningMgr(Part1, "SfmPositioningStrategyManager")
  Dim PositionStrategyParms As SfmStandardPosStrategyParameters
  Set PositionStrategyParms = ObjSfmPosStrategyMgr.GetPositioningStrategyParams("CATSfmPosMidDistMidDist")