Hi. . I reading API Load definition but I understan.Please given file VBA uniform planar load and Uniform Load
Thanks you.
Solved! Go to Solution.
Solved by Rafal.Gaweda. 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.
Regards
I do not understand.
Check additional two buttons in attached xls.
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
Thanks RG_Adsk.
But erro.
You can do same file VBA of uniform planar.
I is attachment file.
File attached.
Next time you will write code, I will correct if needed.
I absolutely agree with you Rafal.
This is a place to help others, not to do their job, without any effort from their side!
"Give a man a fish and you feed him for a day; teach a man to fish and you feed him for a lifetime."
Best regards
Can't find what you're looking for? Ask the community or share your knowledge.