Discussion Groups

Robot Structural Analysis

Reply
Distinguished Contributor
mateaus
Posts: 120
Registered: ‎10-10-2011
Accepted Solution

Elastic Foundation with API VBA

271 Views, 3 Replies
11-29-2011 07:29 AM

Hi,

 

I would like to create an elastic foundation on a element with Robot API in VB.

 

Have a look to the video please.

 

Can you give me the code ?

Please use plain text.
Product Support
Rafal.Gaweda
Posts: 5,180
Registered: ‎04-26-2010

Re: Elastic Foundation with API VBA

11-29-2011 07:48 AM in reply to: mateaus

Dim ElasticGroundLabel As RobotLabel
Dim ElaData As RobotBarElasticGroundData

 

Set ElasticGroundLabel = Robapp.Project.Structure.Labels.Create(I_LT_BAR_ELASTIC_GROUND, "my_ground")
Set ElaData = ElasticGroundLabel.Data
ElaData.KZ = 10000


Robapp.Project.Structure.Labels.Store ElasticGroundLabel



Rafal Gaweda
Please use plain text.
Distinguished Contributor
mateaus
Posts: 120
Registered: ‎10-10-2011

Re: Elastic Foundation with API VBA

11-30-2011 02:55 AM in reply to: Rafal.Gaweda

Ok how can I apply to a element ? for example number 4.

Please use plain text.
Product Support
Rafal.Gaweda
Posts: 5,180
Registered: ‎04-26-2010

Re: Elastic Foundation with API VBA

11-30-2011 05:17 AM in reply to: mateaus

Dim Bar As RobotBar
Set Bar = RobApp.Project.Structure.Bars.Get(4)
Bar.SetLabel I_LT_BAR_ELASTIC_GROUND, "my_ground"



Rafal Gaweda
Please use plain text.