Linear Load 2P. API Robot

Linear Load 2P. API Robot

INKOIngenieria
Contributor Contributor
627 Views
3 Replies
Message 1 of 4

Linear Load 2P. API Robot

INKOIngenieria
Contributor
Contributor

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

 

Sin título.png

0 Likes
Accepted solutions (1)
628 Views
3 Replies
Replies (3)
Message 3 of 4

rsousa_
Advocate
Advocate
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

0 Likes
Message 4 of 4

INKOIngenieria
Contributor
Contributor

thanks for the support. It works well

0 Likes