SfmSlots (Object)

Methods

Func AddSlot( iPenetratedElement, iPenetratingObject, iSlotName, iListParameters) As

Creates a New Slot.

Parameters:

iPenetratedElement

[in] Object on which slot will be created(Plate/Profile).

iPenetratingObject

[in] Object using which slot will be created(Profile).

iSlotName

[in] Slot Name.

iListParameters

[in] List of UDF parameters.

oSfmSlot

[out] Created Slot.

Returns:

S_OK if everything ran ok

Example

:

This example creates a new Slot on Plate.

 Dim PenetratedRef, PenetratingRef As Reference
 Set PenetratedRef = PartObj.CreateReferenceFromObject(SfmSuperPlateObj)
 Set PenetratingRef = PartObj.CreateReferenceFromObject(SfmSuperStiffenerObj)
 Dim SlotFactory As SfmOperationFactory
 Set SlotFactory = PartObj.GetCustomerFactory("SfmOperationFactory")
 Dim oListSlotParams As SfmConnectionParameters
 Dim oListSlotPramNames() As Variant
 SlotFactory.GetSlotParameters SfmSuperStiffenerObj, "Tee_Slot_thru_Plate", oListSlotParams, oListSlotPramNames
 Dim SlotsonPlate As SfmSlots
 Set SlotsonPlate = SfmSuperPlateObj.GetSlotsOnPlate
 Dim NewSlot As SfmSlot
 Set NewSlot = SlotsonPlate.AddSlot(PenetratedRef, PenetratedRef, "Tee_Slot_thru_Plate", oListSlotParams, oListSlotPramNames)
 

Func Item( iIndex) As

Gets existing Slot.

Parameters:

iIndex

[in] Index of the Slot to be retrieved.

oSfmSlot

[out] The retrieved slot.

Returns:

S_OK if everything ran ok

Example

:

This example gets existing slot on a Plate.

 Dim SlotsonPlate As SfmSlots
 Set SlotsonPlate = SfmSuperPlateObj.GetSlotsOnPlate
 Dim CntSlotsOnPlate As Long
 CntSlotsOnPlate = SlotsonPlate.Count
 Dim SlotObj As SfmSlot
 For i = 1 To CntSlotsOnPlate
 Set SlotObj = SlotsonPlate.Item(i)
 Next
 

Sub RemoveSlot( iSfmSlot)

Removes Existing Slot.

Parameters:

iSfmSlot

[in] Slot to be removed.

Returns:

S_OK if everything ran ok

Example

:

This example removes existing slot on a Plate.

 Dim SlotsonPlate As SfmSlots
 Set SlotsonPlate = SfmSuperPlateObj.GetSlotsOnPlate
 Dim SlotObj As SfmSlot
 Set SlotObj = SlotsonPlate.Item(1)
 SlotsonPlate.RemoveSlot(SlotObj)