Solved by Rafal.Gaweda. Go to Solution.
Solved by Rafal.Gaweda. Go to Solution.
If you mean Soil Load as Loads \ Special Loads \ Soil Pressure -> not exist in API
MOving loads example:
Dim Cas As RobotMobileCase Dim Route As RobotMobileCaseRoute Dim VData As RobotVehicleData Dim PlineGeometry As RobotGeoPolyline Set PlineGeometry = Robapp.CmpntFactory.Create(I_CT_GEO_POLYLINE) Dim Segment As New RobotGeoSegment Dim Object As RobotObjObject Set Segment = Robapp.CmpntFactory.Create(I_CT_GEO_SEGMENT_LINE) Segment.P1.Set 0, 2, 0 PlineGeometry.Add Segment PlineGeometry.Initialize Set Segment = Robapp.CmpntFactory.Create(I_CT_GEO_SEGMENT_LINE) Segment.P1.Set 10, 2, 0 PlineGeometry.Add Segment PlineGeometry.Initialize RouteNumber = 13 Set Object = Robapp.Project.Structure.Objects.Create(RouteNumber) Object.Main.Geometry = PlineGeometry Object.Initialize Object.Update Set Cas = Robapp.Project.Structure.Cases.CreateMobile(Robapp.Project.Structure.Cases.FreeNumber, "Moving PN", I_CN_PERMANENT) Set Route = Cas.GetRoute Route.Geometry = RouteNumber Dim Fac As RobotMobileCaseSegmentFactors Set Fac = Route.GetFactors(1) Fac.VL = 1 Fac.VR = 1 Route.SetFactors 1, Fac Route.LoadDirection.Set 0, 0, -1 Route.Step = 1 Cas.SetRoute Route ' przypadek z pojazdem z bazy standardowej Set VLabel = Robapp.Project.Structure.Labels.Create(I_LT_VEHICLE, "Pojazd S - klasa E") Set VData = VLabel.Data VData.LoadFromDBase "Pojazd S - klasa E", "PN1030" Robapp.Project.Structure.Labels.Store VLabel Cas.Vehicle = "Pojazd S - klasa E" ' przypadek z pojazdem z bazy uzytkownika Set Cas = Robapp.Project.Structure.Cases.CreateMobile(Robapp.Project.Structure.Cases.FreeNumber, "Moving RG", I_CN_PERMANENT) Set Route = Cas.GetRoute Route.Geometry = RouteNumber Set Fac = Route.GetFactors(1) Fac.VL = 1 Fac.VR = 1 Route.SetFactors 1, Fac Route.LoadDirection.Set 0, 0, -1 Route.Step = 1 Cas.SetRoute Route Set VLabel = Robapp.Project.Structure.Labels.Create(I_LT_VEHICLE, "RG") Set VData = VLabel.Data VData.LoadFromDBase "RG", "RG" Robapp.Project.Structure.Labels.Store VLabel Cas.Vehicle = "RG" ' przypadek z pojazdem nie z bazy Set Cas = Robapp.Project.Structure.Cases.CreateMobile(Robapp.Project.Structure.Cases.FreeNumber, "Moving Load Case", I_CN_PERMANENT) Set Route = Cas.GetRoute Route.Geometry = RouteNumber Set Fac = Route.GetFactors(1) Fac.VL = 1 Fac.VR = 1 Route.SetFactors 1, Fac Route.LoadDirection.Set 0, 0, -1 Route.Step = 1 Cas.SetRoute Route Set VLabel = Robapp.Project.Structure.Labels.Create(I_LT_VEHICLE, "RG111") Set VData = VLabel.Data Robapp.Project.Structure.Labels.Store VLabel Cas.Vehicle = "RG111"
Vehicles creation code in attachment
(other type of loads, arbitrary vehicles -> not implemented in API)
Hi,
Thank you for answering.
So, if I understand correctly, the generation of arbitrary moving loads is not possible trough API.
Do you think it will be implemented in a future update?
VE
So, if I understand correctly, the generation of arbitrary moving loads is not possible trough API.
Do you think it will be implemented in a future update?
It is on the wishlist.
I have Robot 2014 (Student version), can i acess to special loads through API? if yes, can you give me a exemple code?
thank you in advance
But in my VBA library i have the functions for acess snow and wind engine (picture in attachment), this isnt work?
But in my version (2014) i have snow/wind with special load (like in attached picture). Can i access to that through API? or i need version 2015 for do that?
regards
Hi Rafal,
I've beeing study the API code for Snow/wind Engine and i already develop some code (general parameters and wind/snow parameters) but now my problem is that i can't generate 3D parameters. I already see the .pdf "Autodesk Robot Structural Analysis 2013 Robot Object Model" and also "Robot Open Standart v9.0" and i cant fin the way to do it. Can you tell me what i have to do just for generate 3D struct?
My code:
Dim Robapp As New RobotApplication
Robapp.Window.Activate
Robapp.Project.New I_PT_FRAME_2D
Robapp.Project.Structure.Nodes.Create 1, 0, 0, 0
Robapp.Project.Structure.Nodes.Create 2, 0, 0, 3
Robapp.Project.Structure.Nodes.Create 3, 15, 0, 0
Robapp.Project.Structure.Nodes.Create 4, 15, 0, 3
Robapp.Project.Structure.Nodes.Create 5, 7.5, 0, 5
Robapp.Project.Structure.Bars.Create 1, 1, 2
Robapp.Project.Structure.Bars.Create 2, 3, 4
Robapp.Project.Structure.Bars.Create 3, 2, 5
Robapp.Project.Structure.Bars.Create 4, 4, 5
''''Snow/wind engine
Dim gerar As RobotSnowWindEngine
Dim auto As String
auto = "1" & ";" & "2" & ";" & "5" & ";" & "4" & ";" & "3"
Robapp.Project.Structure.Cases.SnowWindEngine.params.Envelope = auto
Robapp.Project.Structure.Cases.SnowWindEngine.params.BaySpacing = 5
Robapp.Project.Structure.Cases.SnowWindEngine.params.TotalDepth = 5
Robapp.Project.Structure.Cases.SnowWindEngine.params.WithParapets = False
Robapp.Project.Structure.Cases.SnowWindEngine.params.BaseOnGround = True
Robapp.Project.Structure.Cases.SnowWindEngine.params.IsSnow = True
Robapp.Project.Structure.Cases.SnowWindEngine.params.IsWind = True
'general parameters
Dim codeparams As RobotSWCodeECParams
Set codeparams = Robapp.Project.Structure.Cases.SnowWindEngine.codeparams
codeparams.Altitude = 200
codeparams.StructureAge = 50
codeparams.StructureHeight = 10
codeparams.NodalLoadsForBarsList = 1
codeparams.NodalLoadsForBarsList = 2
'wind parameters
codeparams.WindSiteType = I_SWCECST_TYPE_I
codeparams.WindCDIR = 2.1
codeparams.WindCALT = 1.5
codeparams.WindCd = 1.5
codeparams.WindCdType = I_SWCECCT_TYPE_II
codeparams.WindCt = 1.5
codeparams.WindCtAuto = True
codeparams.WindCTEM = 1.5
codeparams.WindE = 1.5
codeparams.WindKT = 1.5
codeparams.WindPressureAutomatic = True
codeparams.WindQref = 0.2
codeparams.WindQref0 = 0.2
codeparams.WindQref0p = 0.2
codeparams.WindVref0 = 0.3
codeparams.WindZ0 = 0.05
codeparams.WindZMin = 2.5
'permeability parameters
codeparams.PermDoorFront = 0.3
codeparams.PermDoorFrontPresent = 0.3
codeparams.PermDoorLeftSide = 0.3
codeparams.PermDoorLeftSidePresent = 0.3
codeparams.PermDoorRear = 0.3
codeparams.PermDoorRearPresent = 0.3
codeparams.PermDoorRightSide = 0.3
codeparams.PermDoorRightSidePresent = 0.3
codeparams.PermFront = 0.3
codeparams.PermLeftSide = 0.3
codeparams.PermRear = 0.3
codeparams.PermRightSide = 0.3
'snow parameters
codeparams.SnowGutterBars = 0
codeparams.SnowPressureExtreme = 0.2
codeparams.SnowPressureNormal = 0.3
codeparams.SnowRedistribution = True
Robapp.Project.Structure.Cases.SnowWindEngine.Generate
''''' I think my problem is here! I cant find the way to set variable "generate" as well.
Dim generate As RobotSWStruct3D
generate.GetFrame (1)
Robapp.Project.Structure.Cases.SnowWindEngine.Generate3D
If your question is related to arbitrary moving loads - not possible by API
Yes, will you implement it? Or at least some copy paste functionality in moving loads editor?
Hello,
I creat a moblie case and i want to define an excentrement for charge
i define a tolerance --> route1.Tolerance = 2
But I dont know how to active exentrement in API code?
thank you for your help
Thanks!
How can I delete vehicle loads (if the vehicle exists) before creating new loads. Everytime I lunch my program, it keeps the existing loads and create new load. I end up with more loads than I want.