getting wall reaction N M T with VBA

[WALIDGIO]

Hello,

I would like to retrieve the Reactions of RC walls from RSA into Excel using VBA. Could someone please guide me on how to achieve this? Thank you!

[Romanich · Accepted solution]

Hi @WALIDGIO ,

Please check the code below:

Sub RedPanel()
Dim RobApp As New RobotApplication


Dim CutNo As IRobotFeResultReducedCutPosition
CutNo = I_FRRCP_HORIZONTAL_BOTTOM

Dim PanelNo As Long
PanelNo = 1

Dim CaseNo As Long
CaseNo = 2

Dim serv As IRobotFeResultReduced
Set serv = RobApp.Project.Structure.Results.FiniteElems.Reduced(PanelNo, CutNo, CaseNo)

TRy = Round(serv.TY / 1000, 0) 'kN

Set RobApp = Nothing
End Sub

[WALIDGIO]

Thank you so much for your answer @Romanich