Good day to everyone!
I use vba to create bar labels/sections using the following piece of code:
...
Dim rLabel As RobotLabel
Dim rBSD As RobotBarSectionData
Dim rBSCD As RobotBarSectionConcreteData
Set rLabel = robApp.Project.Structure.Labels.create(IRobotLabelType.I_LT_BAR_SECTION, secNme)
Set rBSD = rLabel.Data
rBSD.ShapeType = IRobotBarSectionShapeType.I_BSST_CONCR_BEAM
Set rBSCD = rBSD.Concrete
rBSCD.SetValue IRobotBarSectionConcreteDataValue.I_BSCDV_BEAM_B, CDbl(barW)
rBSCD.SetValue IRobotBarSectionConcreteDataValue.I_BSCDV_BEAM_H, CDbl(barH)
rBSCD.SetReduction True, 0.35, 0.35, 1#
robApp.Project.Structure.Labels.Store rLabel
...
I also use the following piece of code to create bars object:
...
robApp.Project.Structure.Bars.create fBarNo, node1Num, node2Num
robApp.Project.Structure.Bars.Get(fBarNo).SetLabel I_LT_BAR_SECTION, barSec
...
When the code is executed, the values of Section [Properties] in Object Inspector in RSA are all null as shown in the attached image.
Solution to this problem will be greatly appreciated.
