(API) VBA ROS - RC Member Design

[Anonymous]

Hi Rafal,

Do you have some code example for RC Member Design?

regards

[Rafal.Gaweda]

concrMemberRequiredReinfEngine.Calculate may not work 😞

Dim Robapp As New RobotApplication

Dim concrCalcEngine As RConcrCalcEngine
Set concrCalcEngine = Robapp.Project.ConcrReinfEngine

Dim concrMemberRequiredReinfEngine As RConcrMemberRequiredReinfEngine
Set concrMemberRequiredReinfEngine = concrCalcEngine.MemberRequiredReinf

' Defining the calculation options

Dim BarRnfParams As RConcrMemberRequiredReinfCalcParams
Set BarRnfParams = concrMemberRequiredReinfEngine.Params

BarRnfParams.BeamPointsType = I_CBCPDT_POINT_COUNT
BarRnfParams.BeamPointsValue = 7

Dim RCULS As RobotSelection
Set RCULS = BarRnfParams.Members
RCULS.FromText "1"

Dim RCMembers As RobotSelection
Set RCMembers = BarRnfParams.Members
RCMembers.FromText "1 2"


'Running the calculations of theoretical areas of reinforcement

If concrMemberRequiredReinfEngine.Calculate = False Then
    MsgBox "Failed!"
Else
    MsgBox "Done!"
End If