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.
Log into access your profile, ask and answer questions, share ideas and more. Haven't signed up yet? Register
Start with some of our most frequented solutions to get help installing your software.
|AutoCAD Land Desktop|
|AutoCAD Plant 3D|
|AutoCAD Raster Design|
|AutoCAD Structural Detailing|
|Ecotect Analysis - Desktop Tools|
|Green Building Studio - Web-Based Service|
|Robot Structural Analysis|