API open table with specific cases and nodes filter

WALIDGIO — Sat, 18 Jan 2025 10:00:04 GMT

hello
I'm tryin to make VBA excel that
open the displacement table
filter the desired node (ex : 2329 2330 2331 2332 2333 2334)
filter also the cases by name groupe (ex : Raideur)

untill now i cant find the methode to apply the filter to Robot

code :

Sub OpenNodeDisplacementsTableWithSelection() ' Initialize Robot Application Dim robApp As IRobotApplication On Error Resume Next Set robApp = New RobotApplication On Error GoTo 0 ' Open the Node Displacements Table Dim table As IRobotTable Set table = robApp.Project.ViewMngr.CreateTable(IRobotTableType.I_TT_NODE_DISPLACEMENTS, I_TDT_DEFAULT) ' Convert node collection to a comma-separated string Dim nodeNumbersStr As String nodeNumbersStr = "2329,2330,2331,2332,2333,2334" ' Node numbers to select ' Select the specified nodes Dim nodeSelection As IRobotSelection Set nodeSelection = robApp.Project.Structure.Selections.Create(I_OT_NODE) nodeSelection.FromText nodeNumbersStr ' here where i want to Apply the selection ' Filter cases by group Dim caseGroup As IRobotGroup Dim groupServer As IRobotGroupServer Set groupServer = robApp.Project.Structure.Groups ' Get the number of groups for cases Dim groupCount As Integer groupCount = groupServer.GetCount(I_OT_CASE) ' Iterate through all groups to find the one with the matching name Dim i As Integer For i = 1 To groupCount Dim currentGroup As IRobotGroup Set currentGroup = groupServer.Get(I_OT_CASE, i) If currentGroup.Name = "Raideur" Then Set caseGroup = currentGroup Exit For End If Next i ' Check if the group was found If caseGroup Is Nothing Then MsgBox "Case group 'Raideur' not found.", vbExclamation, "Error" Exit Sub End If ' Set the cases for the table based on the group Dim caseList As IRobotCaseList Set caseList = robApp.Project.Structure.Cases.GetAll() Dim caseSelection As IRobotSelection Set caseSelection = robApp.Project.Structure.Selections.Create(I_OT_CASE) caseSelection.FromText caseGroup.GetCases().ToText() ' here my problem Apply the selection ' Refresh the view manager to update the display robApp.Project.ViewMngr.Refresh End Sub

Re: API open table with specific cases and nodes filter

WALIDGIO — Sat, 18 Jan 2025 19:42:10 GMT

thank you @Stephane.kapetanovic

topic API open table with specific cases and nodes filter in Robot Structural Analysis Forum

API open table with specific cases and nodes filter

Re: API open table with specific cases and nodes filter

Re: API open table with specific cases and nodes filter