|
CAASddEditStiffener includes seven steps:
- Prolog
- Retrieving the Factory from the Part Document
- Getting the Manager from the Factory
- Retrieving the Super Stiffeners
- Retrieving and Modifying Split Stiffeners
- Modifying a Stiffener on a Shell Plate
- Updating the Part Document
Opens the CAASddEditStiffener.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 collection of stiffeners
and how to get one specific element in it.
...
Dim SuperStiffeners As References
Set SuperStiffeners = ManagerObj.GetSuperStiffeners
Dim SuperStiffener1, SuperStiffener2, SuperStiffener3 As SfmStiffener
Set SuperStiffener1 = SuperStiffeners.Item(1)
Set SuperStiffener2 = SuperStiffeners.Item(3)
Set SuperStiffener3 = SuperStiffeners.Item(4)
...
|
This step describes how to get seamed stiffeners.
In this case, seamed stiffeners are on the deck.
...
Dim SplitStiffeners As References
Set SplitStiffeners = SuperStiffener2.SplitProfiles
Dim SplitStiffener1, SplitStiffener2 As Reference
Set SplitStiffener1 = SplitStiffeners. Item(1)
Set SplitStiffener2 = SplitStiffeners. Item(2)
Set SelectionObj = CATIA.ActiveDocument.Selection
SelectionObj.Add SplitStiffener1
Dim DeckStiffener1 As SfmStiffener
Set DeckStiffener1 = SelectionObj.FindObject("CATIASfmStiffener")
Dim stiff name As String
stiff name = DeckStiffener1.Name
Dim DeckStiffSupport As Reference
Set DeckStiffSupport = DeckStiffener1.Support
DeckStiffener1.Material = "Aluminium"
DeckStiffener1.Grade = "A47"
Dim SideOrient, SectionOrient As Long
SideOrient = DeckStiffener1.SideOrientation
SectionOrient = DeckStiffener1.SectionOrientation
Dim DeckStiff1SideOrnt, DeckStiff1SectionOrnt As Long
DeckStiff1SectionOrnt = -1
DeckStiff1SideOrnt = 6
DeckStiffener1.SideOrientation = DeckStiff1SideOrnt
DeckStiffener1.SectionOrientation = DeckStiff1SectionOrnt
Dim DeckStiffSectionName As String
DeckStiffSectionName = DeckStiffener1.SectionName
DeckStiffener1.SectionName = "WT15x54"
...
|
...
SelectionObj. Add SuperStiffener1
Dim ShellStiffener1 As SfmStiffener
Set ShellStiffener1 = SelectionObj.FindObject("CATIASfmStiffener")
Dim ShellStiffWebSupport As Reference
Set ShellStiffWebSupport = ShellStiffener1.WebSupport
Dim webSupport1 As AnyObject
Set webSupport1 = ObjPart.FindObjectByName("LONG.0")
Dim webSupportRef1 As Reference
Set webSupportRef1 = ObjPart.CreateReferenceFromObject(webSupport1)
ShellStiffener1.WebSupport = webSupportRef1
Dim ShellStiffMoldedSurface As Reference
Set ShellStiffMoldedSurface = ShellStiffener1.GetMoldedSurface
Dim ShellStiffAnchorPt As String
ShellStiffAnchorPt = ShellStiffener1.AnchorPoint
ShellStiffener1.AnchorPoint = "catStrWebCenter"
Dim StiffNewLimit As AnyObject
Set StiffNewLimit = ObjPart.FindObjectByName("CROSS.90")
Dim StiffNewLimitRef As Reference
Set StiffNewLimitRef = ObjPart.CreateReferenceFromObject(StiffNewLimit)
ShellStiffener1.SetProfileLimit 1, StiffNewLimitRef
Dim ShellStiffLimitRef As Reference
Set ShellStiffLimitRef = ShellStiffener1.GetProfileLimit(1)
Dim StiffAngleMode As Integer
StiffAngleMode = ShellStiffener1.AngleMode
Dim StiffAngleMode2 As Long
StiffAngleMode2 = 2
Dim AngleModeValidity As Boolean
AngleModeValidity = ShellStiffener1.IsAngleModeValid(StiffAngleMode2)
ShellStiffener1.AngleMode = StiffAngleMode2
ShellStiffener1.webSupportOffSet = "30"
Dim ShellStiffwebSupportOffSet As Double
ShellStiffwebSupportOffSet = ShellStiffener1.webSupportOffset
...
|
Update the Part.
...
ObjPart.Update
End Sub
|
|