Hi @kmmdD66ZQ,
I think your questions are more directed to the support team, but I’d still like to raise a few doubts. For example, could you run this VBA code with Robot closed?
This example creates a cantilever column with a head load and retrieves the axial force and moment values at its midpoint
Sub CreateProjectAndCalculate()
Dim RobApp As RobotApplication: Set RobApp = New RobotApplication
With RobApp.Project
.New I_PT_FRAME_3D
With .Structure
With .Nodes
.Create 1, 0, 0, 0: .Get(1).SetLabel I_LT_SUPPORT, "Encastrement" ' replace by defaut fixed support name
.Create 2, 0, 0, 6
End With
With .Bars
.Create 1, 1, 2: .Get(1).SetLabel I_LT_BAR_SECTION, "IPE 100" ' replace by defaut section
End With
With .Cases
.CreateSimple 1, "Force", I_CN_EXPLOATATION, I_CAT_STATIC_LINEAR
With .Get(1).Records.Create(I_LRT_NODE_FORCE)
.Objects.FromText "2": .SetValue I_NFRV_FZ, -5000: .SetValue I_NFRV_FX, 500
End With
End With
End With
.CalcEngine.Calculate
With .Structure.Results.Bars.Forces.Value(1, 1, 0.5) 'Results at midpoint
Debug.Print .FX, .MY
End With
End With
Set RobApp = Nothing
End Sub
And the result is:
5000 -1500
Best Regards
Stéphane Kapetanovic
Did you find this post helpful? If it gave you one or more solutions,
don't forget to accept the solution and leave a < like !
