Hello, I want to extract Load ID and Name of all loads from my active File but can't figure out how to extract Live load ID.
objOpenSTAAD.Load.GetPrimaryLoadCaseNumbers is returning 0 loadID for all live loads.
I can't find any other API to get Moving load count or ID.
Sub Test() Dim objOpenSTAAD As Object Dim selbeamsNo As Long Dim SelBeams() As Long 'Launch the OpenSTAAD Object Set objOpenSTAAD = GetObject(, "StaadPro.OpenSTAAD") 'Get Primary Load Count Dim lPrimaryLoadCaseCount As Long lPrimaryLoadCaseCount = objOpenSTAAD.Load.GetPrimaryLoadCaseCount Debug.Print lPrimaryLoadCaseCount 'Get Primary Load Case Array Dim lPrimaryLoadCaseNumbersArray() As Long ReDim lPrimaryLoadCaseNumbersArray(lPrimaryLoadCaseCount) 'Get Primary Load Case Numbers objOpenSTAAD.Load.GetPrimaryLoadCaseNumbers lPrimaryLoadCaseNumbersArray End Sub
Results