API VBA Analysis error when UVL is applied
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
Hello,
To my model I have applied both Uniformly distributed loads and Uniformly Varying Loads.
After the analysis, the UDLs show expected results but UVLs return 0 moments and forces.
Following is my code snippet. Attaching images as well.
Thank you in advance.
Context - I have defined an array named BotWallIDs to store the generated freenumber.
Dim LoadEPD As RobotSimpleCase
Dim CaseEPD As RobotLoadRecordMngr
Set LoadEPD = Robot.Project.Structure.Cases.CreateSimple(4, "EP", I_CN_EXPLOATATION, I_CAT_STATIC_LINEAR)
Set CaseEPD = LoadEPD.Records
For i = LBound(BotWallIDs) To UBound(BotWallIDs)
UVLEPD = CaseEPD.New(I_LRT_IN_3_POINTS)
Set LoadUVLEPD = CaseEPD.Get(UVLEPD)
LoadUVLEPD.Objects.FromText BotWallIDs(i)
'Load values in N
LoadUVLEPD.SetValue I_3PRV_PX1, 0
LoadUVLEPD.SetValue I_3PRV_PY1, 0
LoadUVLEPD.SetValue I_3PRV_PZ1, -500000
LoadUVLEPD.SetValue I_3PRV_PX2, 0
LoadUVLEPD.SetValue I_3PRV_PY2, 0
LoadUVLEPD.SetValue I_3PRV_PZ2, -700000
LoadUVLEPD.SetValue I_3PRV_PX3, 0
LoadUVLEPD.SetValue I_3PRV_PY3, 0
LoadUVLEPD.SetValue I_3PRV_PZ3, -700000
'Load Projection
LoadUVLEPD.SetValue I_3PRV_PROJECTION, BotWallIDs(i)
'Local system
LoadUVLEPD.SetValue I_3PRV_LOCAL_SYSTEM, BotWallIDs(i)
'3 Points to define load plane along load values in each point defined above
LoadUVLEPD.SetPoint 1, 0, 0, 5
LoadUVLEPD.SetPoint 2, 0, 0, 0
LoadUVLEPD.SetPoint 3, 5, 0, 0
Next i