Structure Design

Retrieving Weld Information on Stiffener Objects

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

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

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

CAAStrWeldInfoOnStiffeners includes the following steps:

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

Prolog

Opens the CAAStrWeldInfoOnStiffeners.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 the 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 Stiffeners

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

'RETRIEVING THE SUPERSTIFFENERS
Dim SuperStiffeners As References
Set SuperStiffeners = ManagerObj.GetSuperStiffeners

Dim SuperStiffener1 As SfmStiffener
Set SuperStiffener1 = SuperStiffeners.Item(1)

Retrieving Split Stiffeners of Super Stiffener

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

'Retrieving The Seamed Stiffeners on Deck
Dim SplitStiffeners As References
Set SplitStiffeners = SuperStiffener1.SplitProfiles

Dim SplitStiffener1 As Reference
Set SplitStiffener1 = SplitStiffeners.Item(1)

Retrieving SfmStiffener Object from the Reference of Split Stiffener

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

Set SelctionObj = CATIA.ActiveDocument.Selection
'DECK STIFFENER
SelctionObj.Add SplitStiffener1
Dim DeckStiffener1 As SfmStiffener
Set DeckStiffener1 = SelctionObj.FindObject("CATIASfmStiffener")

Retrieving Super Plate which is Used as Support for Stiffener

This step describes how to get the Plate used as support for the Stiffener 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 Stiffener 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 = DeckStiffener1.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 stiffener with operating element.

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

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

Dim WeldsUC2 As SfmWelds
Set WeldsUC2 = DeckStiffener1.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 Stiffener with no operating element.

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

End Sub