Elastic Foundation with API VBA

[mateaus]

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 ?

[Rafal.Gaweda]

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

[mateaus]

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

[Rafal.Gaweda · Accepted solution]

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

[bensalahsayf.edd]

Hi,

I would like to create an elastic foundation on a panel (KZ , KY and Kx ) with Robot API in VBA and thank you 

[Rafal.Gaweda]

Hi @bensalahsayf.edd 

See 

https://forums.autodesk.com/t5/robot-structural-analysis-forum/api-sum-of-reactions-for-the-slab-on-...

[bensalahsayf.edd]

Hi Rafal.Gaweda

How to insert a value for Kx and Ky (Tangent foundation) ?  and thank you 

[Rafal.Gaweda]

Hi @bensalahsayf.edd 

Not implemented in API.

[bensalahsayf.edd]

Thank you , But have you another solution ? 

[Rafal.Gaweda]

Hi @bensalahsayf.edd 

Use planar support instead.

[bensalahsayf.edd]

I used but is not the same result 😞

[bensalahsayf.edd]

Hi Rafal.Gaweda 

Is implemented with python or no? 

[Rafal.Gaweda]

Hi @bensalahsayf.edd 

??????

It is not implemented in API so it does not matter which language You C++, C#, VB, VBA, Python, Dynamo etc.

[bensalahsayf.edd]

Okey and thank you 

[bensalahsayf.edd]

Hi Rafal Gaweda

How to define nodes in loads and thank you