- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
Hi all
I'm developing an API-VB.net code to carry out steel design and i need to modify the buckling length coefficient factor, the code manages to change the value but not the symbol as you can see in the attached photo, moreover, when i run the design, the buckling is assigned as no buckling "X" !! and no length neither the coefficient is identified.. Bellow my code. Great thanks for any help
Dim ROBOT As New RobotOM.RobotApplication
ROBOT.Project.Preferences.SetActiveCode(IRobotCodeType.I_CT_STEEL_STRUCTURES, "EC3")
Dim designlabel As IRobotLabel
Dim RdmMembDefData As IRDimMembDefData
Dim RdmCodeMembDefPar As IRDimMembParamsEC3
designlabel = Label.Create(IRobotLabelType.I_LT_MEMBER_TYPE, "My pars")
RdmMembDefData = designlabel.Data
With RdmMembDefData
.SetStructureSwayYZ(IRDimMembDefBucklingDataType.I_DMDBDT_BUCKLING_Y, 1)
.SetLengthYZUV(IRDimMembDefLengthDataType.I_DMDLDT_LENGTH_Y, 5)
.SetStructureSwayYZ(IRDimMembDefBucklingDataType.I_DMDBDT_BUCKLING_Z, 0)
.SetLengthYZUV(IRDimMembDefLengthDataType.I_DMDLDT_LENGTH_Z, 6)
End With
RdmCodeMembDefPar = RdmMembDefData.CodeParams
With RdmCodeMembDefPar
.BuckLengthCoeffY = 0.7
.BuckLengthCoeffZ = 0.7
.TubeControl = 1
End With
RdmMembDefData.CodeParams = RdmCodeMembDefPar
RdmMembDefData.Type = IRDimMembDefType.I_DMDT_COLUMN
ROBOT.Project.Structure.Labels.Store(designlabel)
Solved! Go to Solution.
