Autodesk Robot Structural Analysis

[#1]

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 ?

[#2]

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

[#3]

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

[#4 · Accepted solution]

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