Re Null Section Properties of Bar

[berncabebe]

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.

[Rafal.Gaweda · Accepted solution]

Example:

...
    RBSD.CalcNonstdGeometry
    RobApp.Project.Structure.Labels.Store RLabel

[berncabebe]

Thanks! Your answer worked.