Message 1 of 2
Not applicable
03-31-2017
06:13 AM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
Hi Everyone!
I'm developing an Excel Robot API to generate the geometry and the load cases for an steel structure for an monorail.
I'm having some hard time in order to create the moving load case. I don't know where to start. I create the geometry, supports, bar sections and the self-weight load.
Does anyone have a tutorial that explains how to create moving loads using Robot API for VB?
Here is my code for the load generation:
'Rotina para criar carregamentos Public Sub CriarCarregamentos() 'Criando os carregamentos devido ao peso proprio da estrutura Dim PesoProprio As RobotSimpleCase Set PesoProprio = RobotApp.Project.Structure.Cases.CreateSimple(1, "Peso Proprio", I_CN_PERMANENT, I_CAT_STATIC_LINEAR) PesoProprio.Records.New I_LRT_DEAD Dim ValorPesoProprio As RobotLoadRecord Set ValorPesoProprio = PesoProprio.Records.Get(1) ValorPesoProprio.SetValue I_DRV_Z, -1 ValorPesoProprio.SetValue I_DRV_ENTIRE_STRUCTURE, True 'Criando o carregamento móvel Dim CargaMovel As RobotMobileCase Set CargaMovel = RobotApp.Project.Structure.Cases.CreateMobile(2, "Talha Eletrica", I_CN_ACCIDENTAL) 'Definindo o tipo de veiculo Dim TipoCargaMovel As RobotVehicleData 'Liberando as variaveis Set PesoProprio = Nothing Set ValorPesoProprio = Nothing End Sub
And an image for my model:
My best regards!
Solved! Go to Solution.