topic Re: Beam module vba in Robot Structural Analysis Forum

Beam module vba

Anonymous — Thu, 14 Jun 2018 17:21:54 GMT

Hello,
Is it possible to add a beam directly into the beam module using vba?
By changing its dimensions of the beam by vba. Thank you for your help

Re: Beam module vba

Rafal.Gaweda — Fri, 15 Jun 2018 12:51:43 GMT

Hi @Anonymous

If I understood Your correctly, it can be done.

See example code below.

Dim Robapp As New RobotApplication

Dim RC As RobotProjectComponent

Set RC = Robapp.Project.ComponentMngr.Create(I_PCT_BEAM, "B1", "1")
Dim IRCB As IRConcrBeam
Set IRCB = RC.Data
IRCB.Geometry.SpanNumber = 2

Dim IBS As IRConcrBeamSegment

Set IBS = IRCB.Geometry.Span(1).segment(1)
IBS.Dim(I_BSD_BEAM_SECTION_DIM_H1) = 1
IBS.Dim(I_BSD_BEAM_SECTION_DIM_B) = 0.5

Set IBS = IRCB.Geometry.Span(2).segment(1)
IBS.Dim(I_BSD_BEAM_SECTION_DIM_H1) = 1
IBS.Dim(I_BSD_BEAM_SECTION_DIM_B) = 0.5

Re: Beam module vba

Anonymous — Fri, 15 Jun 2018 13:25:50 GMT

thank you very much it works!

is it possible to change the standard name of the beam P1, P2 ... in VBA?

Re: Beam module vba

Anonymous — Fri, 15 Jun 2018 14:28:51 GMT

thank you your code is already complete.

Re: Beam module vba

Anonymous — Fri, 15 Jun 2018 21:18:35 GMT

can you give an example to load the beam in the module beam in vba? thank you

Re: Beam module vba

Rafal.Gaweda — Mon, 18 Jun 2018 12:03:07 GMT

HI @Anonymous

Example code

......
IRCB.Geometry.SpanNumber = 2

IRCB.LinearLoadsCount = 1
IRCB.LinearLoad(1).Case = 1
IRCB.LinearLoad(1).Nature = I_BLN_BEAM_NATURE_DEAD
IRCB.LinearLoad(1).Spans.Add 1
IRCB.LinearLoad(1).Spans.Add 2
IRCB.LinearLoad(1).Value1 = 1000

Dim IBS As IRConcrBeamSegment
......

Re: Beam module vba

Anonymous — Mon, 18 Jun 2018 12:27:45 GMT

Thank you very much it works perfectly. you master very well the engineering. i am satisfied.

Re: Beam module vba

Anonymous — Mon, 18 Jun 2018 19:50:17 GMT

Hello Mr. Rafal trying to customize the VBA code above I have not found a possibility to call in VBA for some buttons in images attached. Is it possible to do that in VBA? Thank you very much for helping me with an example.

Re: Beam module vba

Rafal.Gaweda — Tue, 19 Jun 2018 08:09:23 GMT

Hi @Anonymous

Everything what is available by API you can find expanding IRCB in my code

Re: Beam module vba

Anonymous — Tue, 19 Jun 2018 08:46:44 GMT

Hello Mr Rafal, yes I have already searched through your code. But it seems to be impossible to use the control buttons to frame in red on the image above in vba? Is there a vba guide for robot? thank you

Re: Beam module vba

Rafal.Gaweda — Tue, 19 Jun 2018 08:58:24 GMT

Hi @Anonymous

So it means it is not implemented in API.