SfmOperationFactory (Object)

Gets the Operation Factory.
Example:
This Example Retrieves SfmOperationFactory from Part. 
 Set part1 = partDocument1.Part
 Dim Factory As SfmOperationFactory
 Set Factory =  part1.GetCustomerFactory("SfmOperationFactory")

Methods


Func GetAvailableSlotsFromCatalog( iSfmProfile) As
Gets the list of available Slots from catalog for a given Profile(Stiffener/Member).
Parameters:
iSfmProfile
[in] The given profile.
oListofSlotNames
[out] The List of Slots available.
Returns:
S_OK if everything ran ok
Example:
This Example retrieves the list of avaliable Slots. 
 Dim FactoryObj As SfmOperationFactory
 Set FactoryObj = PartObj.GetCustomerFactory("SfmOperationFactory")
 Dim ListOfAvailableSlots() As Variant
 ListOfAvailableSlots = SlotFactoryObj.GetAvailableSlotsFromCatalog(SfmProfileObj)
Func GetEndcutManager() As
Gets the Endcut Manager.
Parameters:
oSfmEndcutManager
[out] The retrieved Manager.
Returns:
S_OK if everything ran ok
Example:
This Example retrieves the Endcut Manager from the Factory. 
 Dim FactoryObj As SfmOperationFactory
 Set FactoryObj = PartObj.GetCustomerFactory("SfmOperationFactory")
 Dim EndCutManagerObj As SfmEndcutManager
 Set EndCutManagerObj = FactoryObj.GetEndcutManager
Sub GetSlotParameters( iSfmProfile, iSlotName, oListSlotParameters, oListSlotParamNames)
Gets the Slot Parameters and Names for a slot from catalog.
Parameters:
iSfmProfile
[in] The given profile.
iSlotName
[in] Name of the Slot.
oListSlotParameters
[out] The Slot UDF Parameters with deafult values.
oListSlotParamNames
[out] Slot Parameter Names.
Returns:
S_OK if everything ran ok
Example:
This Example retrieves Parameters for Slot. 
 Dim FactoryObj As SfmOperationFactory
 Set FactoryObj = PartObj.GetCustomerFactory("SfmOperationFactory")
 Dim oListSlotParams As SfmConnectionParameters
 Dim oListSlotPramNames() As Variant
 SlotFactoryObj.GetSlotParameters SfmProfileObj, "Tee_Slot_thru_Plate", oListSlotParams, oListSlotPramNames
 'Reading Slot Param Values
 Dim UDFParam As Parameter
 ParamCount = oListSlotParams.Count
 For i = 1 To ParamCount
 Set UDFParam = oListSlotParams.Item(i)
 ParamName = oListSlotPramNames(i - 1)
 ParamValue = UDFParam.ValueAsString
 End If
 Next