...
Dim ShellSupport As AnyObject
Set ShellSupport = sfdpart.FindObjectByName("Hull1234")
Dim ShellSupportRef As Reference
Set ShellSupportRef = sfdpart.CreateReferenceFromObject(ShellSupport)
Dim ShellSuperplate1 As SfmSuperPlate
Set ShellSuperplate1 = FactoryObj.AddSuperPlate("ShellPanel", ShellSupportRef, Nothing)
Dim ShellPlateLimit As AnyObject
Set ShellPlateLimit = sfdpart.FindObjectByName("LONG.0")
Dim ShellPlateLimitRef As Reference
Set ShellPlateLimitRef = sfdpart.CreateReferenceFromObject(ShellPlateLimit)
Dim ShellPlateOrnt As Long
ShellPlateOrnt = 5
ShellSuperplate1.AddLimit ShellPlateLimitRef, ShellPlateOrnt
ShellSuperplate1.Thickness = "1.0"
ShellSuperplate1.Run
...
|