Create a gap (Settlement) of supports through VBA

[Anonymous]

I have modeled the basement with another program and I need to transfer the movements from the basement to the superstructure.

The superstructure model is in ROBOT. 

I collect the  reactions from Robot I impose them in the basement model as loads I run the basement model and then I collect the movement of the basement and I apply the movement as gap at the support.

Here is the code I use. 

Set Label = robapp.Project.Structure.Labels.Create(I_LT_SUPPORT, "Support")
Set SupportData = Label.Data
SupportData.UX = .1154

SupportData.UY = .21

SupportData.UZ = .32

the code doesnt have a bug or anything like that but it doesnt work it doesnt create the gaps that I want in all x,y, z directions. 

Does anyone know how to impose the movements through VBA at the supports?

Thanks in advance 

Manos

[Anonymous]

The numbers are just random by the way in reality they are quite small

[Rafal.Gaweda · Accepted solution]

Only as nonlinear function:

d1, k1,k2 should be correctly set

Dim Label As RobotLabel
Dim NSD As RobotNodeSupportData
Dim NLM As RobotNonlinearLinkMngr
Dim NL As RobotNonlinearLink

Set NL = RobApp.Project.Structure.Nodes.NonlinearLinks.Create("NonlinModel")

NL.ModelType = I_NLMT_FORCE_DISPLACEMENT
NL.SetCurveType I_NLCT_B_LINEAR

Dim ANL As RobotNonlinearLinkParamsBLinear
Set ANL = NL.GetParams
ANL.d1 = 50
ANL.K1 = 200
ANL.K2 = 0

NL.SetParams ANL

Set Label = RobApp.Project.Structure.Labels.Create(I_LT_SUPPORT, "NONLIN")
Set NSD = Label.Data
Set NLM = NSD.NonlinearModel
NLM.Set I_DOF_UX, "NonlinModel"

RobApp.Project.Structure.Labels.Store Label

[Anonymous]

Rafal thanks I will try it and ask further questions in case I have