(API) ROBOT / VBA: Activate or select load case

[daniel_dcn]

I'm creating a tool that inserts the load train into the model. First it creates the load case, then adds a set of nodal loads around some given node.

How can I present the results by selecting the new load case in the list?

Load train created with VBA. Case #15 is not being selected automatically.

Thank you

[Stephane.kapetanovic · Accepted solution]

hi @daniel_dcn 

Sub Select_Load_Case15()
  Dim RobApp As IRobotApplication
  Dim ViewMngr As IRobotViewMngr
  Dim ActiveView As RobotView
  Dim CaseSel As RobotSelection
  
  Set RobApp = New RobotApplication
  Set ViewMngr = RobApp.Project.ViewMngr

  For i = 1 To ViewMngr.ViewCount
    If ViewMngr.GetView(i).Window.IsActive = -1 Then ActiveViewNumber = i: Exit For
  Next i
  Set ActiveView = ViewMngr.GetView(ActiveViewNumber)
  
  Set CaseSel = ActiveView.Selection.Get(I_OT_CASE)
      CaseSel.FromText "15"
  ViewMngr.Refresh
  
  Set RobApp = Nothing
End Sub

Best regards

[daniel_dcn]

Thank you @Stephane.kapetanovic!