Hi. . I reading API Load definition but I understan.Please given file VBA uniform planar load and Uniform Load
Solved! Go to Solution.
I don't known if i get your problem. With a little help with "Getting Started Guide Robot API", you can get there...
See the attached file. Of course you need to make your code more robust, than I have in this example, but it is a start point.
Private Sub CommandButton2_Click() Dim Robapp As RobotApplication Set Robapp = New RobotApplication Dim Loads As RobotCaseServer Set Loads = Robapp.Project.Structure.Cases Dim Cas As RobotSimpleCase Dim Recs As RobotLoadRecordMngr Dim Rec_1 As RobotLoadRecord CaseNumber = 1 Set Cas = Loads.Get(CaseNumber) Set Recs = Cas.Records Recs.New I_LRT_BAR_UNIFORM Set Rec_1 = Recs.Get(Recs.Count) Rec_1.Objects.FromText "1" Rec_1.SetValue I_BURV_PY, 3.23 End Sub
You can do same file VBA of uniform planar.
I is attachment file.