Linear Load 2P. API Robot

[INKOIngenieria]

how do i add a linear load to a panel, from vba.

[Rafal.Gaweda]

Hi @INKOIngenieria 

Please check:

https://forums.autodesk.com/t5/robot-structural-analysis-forum/linear-load-has-not-been-applied-to-t...

https://forums.autodesk.com/t5/robot-structural-analysis-forum/error-2110-problem-with-linear-loads/...

[rsousa_ · Accepted solution]

Hi, 

See this example, it will create one load record on load case 1 (that has already been created, with zero load records)

    Dim robapp As RobotApplication
    Set robapp = New RobotApplication
    Dim rcase As RobotSimpleCase
    Set rcase = robapp.Project.Structure.Cases.Get(1)
    rcase.Records.New I_LRT_LINEAR_3D
    Dim rec As RobotLoadRecordLinear3D
    Set rec = rcase.Records.Get(1)
    rec.Objects.FromText "1" ' Panel nº 1
    rec.SetPoint 1, 0, 0, 0 ' x,y,z -point 1
    rec.SetPoint 2, 1, 0, 1 ' x,y,z -point 2
    rec.SetValue 2, 1000 '2 - PZ1
    rec.SetValue 8, 2000 '8 - PZ2
    rec.SetValue 13, 1 ' 0 - Global; 1 - local
               
    Set rec = Nothing
    Set rcase = Nothing
    Set robapp = Nothing

To see other values ID please search ros api reference manual for IROBOTLINEAR3DRECORDVALUES.

Regards

[INKOIngenieria]

thanks for the support. It works well

[INKOIngenieria]

thanks for the support. It works well