 |
CAASddCreateStiffener includes eight steps:
- Prolog
- Retrieving the Factory from the Part Document
- Getting the Manager from the Factory
- Retrieving the Super Plates
- Creating Shell Stiffeners
- Creating Deck Stiffeners
- Creating Transverse Bulkhead Stiffeners
- Updating the Part Document

Opens the CreateStiffener.CATPart in CATIA.
Sub CATMain ()
Dim ObjPart As Part
Set ObjPart = CATIA.ActiveDocument.Part
...
|
This step describes how to get the Structure Functional Modeler factory.
The SfmFactory Object will be used for creating Structure Functional Modeler
objects.
...
Dim FactoryObj As SfmFactory
Set FactoryObj = ObjPart.GetCustomerFactory ("SfmFactory")
...
|
The SfmManager object is obtained by the GetManager method.
...
Dim ManagerObj As SfmManager
Set ManagerObj = FactoryObj.GetManager
...
|
This step describes how to get the plate collection and how to get one
specific element in it.
...
Dim SuperPlates As References
Set SuperPlates = ManagerObj.GetSuperPlates
Dim ShellSuperPlate, DeckSuperPlate, TBHSuperPlate As SfmSuperPlate
Set ShellSuperPlate = SuperPlates.Item (1)
Set DeckSuperPlate = SuperPlates.Item (2)
Set TBHSuperPlate = SuperPlates.Item (3)
...
|
This step describes how to create stiffeners of different categories
and sections. First support is defined.
...
Dim webSupport1 As AnyObject
Set webSupport1 = ObjPart.FindObjectByName ("LONG.8")
Dim webSupportRef1 As Reference
Set webSupportRef1 = ObjPart.CreateReferenceFromObject (webSupport1)
Dim ShellStiffener1 As SfmStiffener
Set ShellStiffener1 = FactoryObj.AddSuperStiffener ("ShellStiffener", "WT15x54", ShellSuperPlate, webSupportRef1)
Dim webSupport2 As AnyObject
Set webSupport2 = ObjPart.FindObjectByName ("CROSS.105")
Dim webSupportRef2 As Reference
Set webSupportRef2 = ObjPart.CreateReferenceFromObject (webSupport2)
Dim ShellStiffener2 As SfmStiffener
Set ShellStiffener2 = FactoryObj.AddSuperStiffener ("ShellStiffener", "C12x25", ShellSuperPlate, webSupportRef2)
Dim StiffenerLimitRef1 As Reference
Set StiffenerLimitRef1 = ObjPart.CreateReferenceFromObject (ShellStiffener1)
ShellStiffener2.SetProfileLimit 1, StiffenerLimitRef1
...
|
...
Dim webSupport3 As AnyObject
Set webSupport3 = ObjPart.FindObjectByName ("LONG.0")
Dim webSupportRef3 As Reference
Set webSupportRef3 = ObjPart.CreateReferenceFromObject (webSupport3)
Dim DeckStiffener1 As SfmStiffener
Set DeckStiffener1 = FactoryObj.AddSuperStiffener ("DeckStiffener", "HP12x63", DeckSuperPlate, webSupportRef3)
...
|
...
Dim webSupport4 As AnyObject
Set webSupport4 = ObjPart.FindObjectByName ("LONG.-5")
Dim webSupportRef4 As Reference
Set webSupportRef4 = ObjPart.CreateReferenceFromObject (webSupport4)
Dim TBHStiffener1 As SfmStiffener
Set TBHStiffener1 = FactoryObj.AddSuperStiffener ("TransBulkhdStiffener", "C12x25", TBHSuperPlate, webSupportRef4)
Dim webSupport5 As AnyObject
Set webSupport5 = ObjPart.FindObjectByName ("DECK.2")
Dim webSupportRef5 As Reference
Set webSupportRef5 = ObjPart.CreateReferenceFromObject (webSupport5)
Dim TBHStiffener2 As SfmStiffener
Set TBHStiffener2 = FactoryObj.AddSuperStiffener ("TransBulkhdHorStiffener", "HP12x63", TBHSuperPlate, webSupportRef5)
Dim StiffenerLimitRef2 As Reference
Set StiffenerLimitRef2 = ObjPart.CreateReferenceFromObject (TBHStiffener1)
TBHStiffener2.SetProfileLimit 1, StiffenerLimitRef2
...
|
The Part has to be updated to generate the geometrical representation
of the created objects. Once this done, the updated objects are visible
in the 3D window and in the specification tree.
...
ObjPart.Update
End Sub
...
|
|