Structure Design

Retrieving Weld Information on Member Objects

This macro shows you how to retrieve Weld information already set on SDD Member Objects.

CAAStrWeldInfoOnMembers is launched in CATIA [1]. Some documents are needed.

• CAAStrWeldInfoOnMembers.CATScript is located in the CAAScdStrUseCases module. Execute macro (Windows only).
• The CAAStrWeldInfoOnMembers.CATPart is located in the samples directory.

CAAStrWeldInfoOnMembers includes the following steps:

1. Prolog
2. Retrieving Factory Object from Part Document
3. Getting the Manager from Factory
4. Retrieving the Super Members
5. Retrieving Split Members of Super Member
6. Retrieving SfmMember object from the reference of Split Member
7. Retrieving Super Plate which is used as Support for Member
8. Retrieving Weld Features on the Member with Operating Element (Weld Use Case 1)
9. Retrieving Weld Attributes of Weld Use Case 1 Features
10. Retrieving Weld Features on the Member with No Operating Element (Weld Use Case 2)
11. Retrieving Weld Attributes of Weld Use Case 2 Features

Prolog

Opens the CAAStrWeldInfoOnMembers.CATPart in CATIA.

Sub CATMain()

Dim ObjPart As Part
Set ObjPart = CATIA.ActiveDocument.Part

Retrieving Factory Object from Part Document

This Step describes how to get Structure Functional Modeler Factory .The Factory Object will be used for creating Structure Functional Modeler Objects.

'Get the Factory Object
Dim FactoryObj As SfmFactory
Set FactoryObj = ObjPart.GetCustomerFactory("SfmFactory")

Getting the Manager from Factory

The Manager Object is obtained by GetManager.

'Get the Manager Object
Dim ManagerObj As SfmManager
Set ManagerObj = FactoryObj.GetManager

Retrieving the Super Members

This step describes how to get the collection of Super Members and how to get one specific element in it.

'RETRIEVING THE SUPERMembers
Dim SuperMembers As References
Set SuperMembers = ManagerObj.GetSuperMembers

Dim SuperMember1 As SfmMember
Set SuperMember1 = SuperMembers.Item(1)

Retrieving Split Members of Super Member

This step describes how to get the collection of Split Members and how to get one specific element in it.

'Retrieving The Split Members
Dim SplitMembers As References
Set SplitMembers = SuperMember1.SplitProfiles

Dim SplitMember1 As Reference
Set SplitMember1 = SplitMembers.Item(1)

Retrieving SfmMember Object from the Reference of Split Member

This step describes how to get the SfmStiffener object from Reference of split stiffener.

Set SelctionObj = CATIA.ActiveDocument.Selection
'DECK Member
SelctionObj.Add SplitMember1
Dim DeckMember1 As SfmMember
Set DeckMember1 = SelctionObj.FindObject("CATIASfmMember")

Retrieving Super Plate which is Used as Support for Member

This step describes how to get the Plate used as one of the limit for Member and accessing each element in it.

'Retrieving Super Plates
Dim SuperPlates As References
Set SuperPlates = ManagerObj.GetSuperPlates

'Retrieving Operating Super Plate
Dim SuperPlate1 As SfmSuperPlate
Set SuperPlate1 = SuperPlates.Item(1)

'Retrieving the SplitPlates of SuperPlate1
Dim OperatingSplitPlateRefs As References
Set OperatingSplitPlateRefs = SuperPlate1.SplitPlates

Dim OperatingSplitPlate As Reference
Set OperatingSplitPlate = OperatingSplitPlateRefs.Item(1)

Retrieving Weld Features on the Member with Operating Element (Weld Use Case 1)

This step describes how to get the collection of Weld features with operating element and how to get one specific element in it.

Dim WeldsUC1 As SfmWelds
Set WeldsUC1 = DeckMember1.GetWelds(OperatingSplitPlate)

Dim WeldUC1 As SfmWeld
Set WeldUC1 = WeldsUC1.Item(1)

Retrieving Weld Attributes of Weld Use Case 1 Features

This step describes how to get the weld information set on the Operated split Member with operating element.

ustrWeldTypeUC1 = WeldUC1.WeldType
ustrAddedMaterialUC1 = WeldUC1.AddedMaterial
ustrFitUpUC1 = WeldUC1.FitUp
ustrEdgePrepUC1 = WeldUC1.EdgePreparation

Retrieving Weld Features on the Member with No Operating Element (Weld Use Case 2)

This step describes how to get the collection of Weld features with no operating element and how to get one specific element in it.

Dim WeldsUC2 As SfmWelds
Set WeldsUC2 = DeckMember1.GetWelds(Nothing)

Dim WeldUC2 As SfmWeld
Set WeldUC2 = WeldsUC2.Item(1)

Retrieving Weld Attributes of Weld Use Case 2 Features

This step describes how to get the weld information set on the Operated split Member with no operating element.

ustrWeldTypeUC2 = WeldUC2.WeldType
ustrAddedMaterialUC2 = WeldUC2.AddedMaterial
ustrFitUpUC2 = WeldUC2.FitUp
ustrEdgePrepUC2 = WeldUC2.EdgePreparation

End Sub