...
'Define Shell Plate Support
Dim ShellSupport As AnyObject
Set ShellSupport = sddpart.FindObjectByName("Hull1234")
Dim ShellSupportRef As Reference
Set ShellSupportRef = sddpart.CreateReferenceFromObject(ShellSupport)
Dim ShellSuperplate1 As SfmSuperPlate
Set ShellSuperplate1 = FactoryObj.AddSuperPlate("ShellPanel", ShellSupportRef, Nothing)
'Define Limit
Dim ShellPlateLimit As AnyObject
Set ShellPlateLimit = sddpart.FindObjectByName("LONG.0")
Dim ShellPlateLimitRef As Reference
Set ShellPlateLimitRef = sddpart.CreateReferenceFromObject(ShellPlateLimit)
'Define Orientation of Third Limit
Dim ShellPlateOrnt As Long
ShellPlateOrnt = 5
ShellSuperplate1.AddLimit ShellPlateLimitRef, ShellPlateOrnt
ShellSuperplate1.Thickness = "1.0"
ShellSuperplate1.Run
sddpart.Update
...
|