Discussion Groups

Robot Structural Analysis

Reply
Active Contributor
samuel.pereira
Posts: 28
Registered: ‎01-02-2012

Moving loads API

161 Views, 5 Replies
06-28-2012 02:02 AM

Hello,

 

I'm trying to create a moving load and vehicle to assign to a bar using Robot steel API.

It’s possible provide a complete example to "Visual Basic -Microsoft Excel" for a type?

 

Thanks

Please use plain text.
Product Support
Rafal.Gaweda
Posts: 5,048
Registered: ‎04-26-2010

Re: Moving loads API

06-28-2012 02:07 AM in reply to: samuel.pereira

http://forums.autodesk.com/t5/Autodesk-Robot-Structural/VBA-loads-API/td-p/3232602/highlight/true/pa...

 

messages 17to30

 

If you need something more please let me know



Rafal Gaweda
Please use plain text.
Active Contributor
samuel.pereira
Posts: 28
Registered: ‎01-02-2012

Re: Moving loads API

06-28-2012 03:15 AM in reply to: Rafal.Gaweda

Thank you.

Please use plain text.
Active Contributor
samuel.pereira
Posts: 28
Registered: ‎01-02-2012

Re: Moving loads API

07-10-2012 02:21 AM in reply to: samuel.pereira

Hello,

 

Before creating new vehicle, want to delete all existing vehicles. How do this?

 

Right now my code is:

 

Public Sub Veiculo()

Dim RobApp As New RobotApplication
Set RobApp = New RobotApplication

Dim VLabel As RobotLabel
Dim VData As RobotVehicleData
Dim VLoad As RobotVehicleLoad

Set VLabel = RobApp.Project.Structure.Labels.Create(I_LT_VEHICLE, "PONTE")
Set VData = VLabel.Data
For J = 1 To 8
Set VLoad = VData.Loads.New
VLoad.Type = I_VLT_CONCENTRATED
VLoad.F = (Cells(18 + J, 4) * 1000)
VLoad.X = Cells(18 + J, 3)
VLoad.S = 0
Next

RobApp.Project.Structure.Labels.Store VLabel

End Sub

 

Thank you.

 

 

Please use plain text.
Product Support
Artur.Kosakowski
Posts: 4,736
Registered: ‎12-17-2010

Re: Moving loads API

07-10-2012 03:20 AM in reply to: samuel.pereira

' To delete only vehicles used in the structure

 

Dim exisitng_vehicles As IRobotCollection

Set existing_vehicles = RobApp.Project.Structure.Labels.GetMany(I_LT_VEHICLE)

For idx = 1 To existing_vehicles.Count

    RobApp.Project.Structure.Labels.Delete I_LT_VEHICLE, existing_vehicles.Get(idx).Name

Next

 

' To delete all available vehicles

 

Dim available_vehicles As IRobotNamesArray

Set available_vehicles = RobApp.Project.Structure.Labels.GetAvailableNames(I_LT_VEHICLE)

For idx = 1 To available_vehicles.Count

    RobApp.Project.Structure.Labels.Delete I_LT_VEHICLE, available_vehicles.Get(idx)

Next



Artur Kosakowski
Please use plain text.
Active Contributor
samuel.pereira
Posts: 28
Registered: ‎01-02-2012

Re: Moving loads API

07-10-2012 03:44 AM in reply to: Artur.Kosakowski

Thank you!

Please use plain text.