topic Get specific nodes and case data in table for printoutcomposition in Robot Structural Analysis Forum

Get specific nodes and case data in table for printoutcomposition

1234eddie — Fri, 11 Aug 2023 15:21:34 GMT

Hi all,

We @stefanyC6JZ7 and i are currently working on a VBA script that generates images and screencaptures from tables to use in our reports. Thanks to these topics: topic_1 , topic_2 We already solved quite a few things.

But now we want a table, with a specific case and nodes displayed.

these are the nodes (in case 15) i want to display:

But now we get the full table see image

This is our VBA code we have

' -------------------------------------------------------------- ' ' Generation of the parametrized Silo. ' Public RobApp As RobotApplication Private Sub CommandButton1_Click() '***Run Robot application If RobApp Is Nothing Then Set RobApp = CreateObject("Robot.Application") End If RobApp.Visible = True RobApp.Interactive = 1 RobApp.UserControl = True '***Create an empty Shell project if it has not been created yet If Not RobApp.Project.IsActive Or RobApp.Project.Type <> I_PT_SHELL Then RobApp.Project.New I_PT_SHELL End If 'Sub kernel() 'initialisation des valeurs Call init_value 'permet de regénérer la vue Call CreeVueRM 'sauvegarde le projet 'robapp.Project.SaveAs newfilepath 'robapp.Project.Close End Sub Public Sub CreeVueRM() ' définition d'une vue RobApp.Interactive = True RobApp.Visible = True RobApp.Window.Activate '------------------ Dim mavueRobot As IRobotView3 ' this is important to set IRobotView3 if you want to make screen capture of this view Set mavueRobot = RobApp.Project.ViewMngr.GetView(1) ' it seems CreateView makes this strange affect, use Get view instead Dim SimpleCaseSel As IRobotSelection 'Select Simple cases Dim ManualCombSel As IRobotSelection 'Select Combination cases '----------------------------- mavueRobot.Selection.Get(I_OT_CASE).FromText ("1") ' selecting case for results display mavueRobot.Redraw (True) 'mavueRobot.Projection = I_VP_3DXYZ mavueRobot.Projection = I_VP_XZ_3D mavueRobot.Visible = True mavueRobot.Redraw (True) RobApp.Project.ViewMngr.Refresh '-------------------------------------------- '---------------------CREATE TABLE mavueRobot.Selection.Get(I_OT_CASE).FromText ("15") ' selecting case for results display SLS RobApp.Project.ViewMngr.Refresh Dim Rtable As RobotTable Dim TScPar As RobotTableScreenCaptureParams Set TScPar = RobApp.CmpntFactory.Create(I_CT_TABLE_SCREEN_CAPTURE_PARAMS) TScPar.Name = "Disp_15" 'Screenshot Name 'mavueRobot.Selection.Get(I_OT_CASE).FromText ("15") ' selecting case for results display SLS 'mavueRobot.Selection.Get(I_OT_BAR).FromText ("5") 'mavueRobot.Selection.Get(I_OT_NODE).FromText ("801 to 829") ' selecting case for results display SLS mavueRobot.Redraw (True) mavueRobot.Visible = True mavueRobot.Redraw (True) RobApp.Project.ViewMngr.Refresh 'TScPar.UpdateType = I_SCUT_CURRENT_VIEW 'TScPar.Resolution = I_VSCR_4096 '----------------- mavueRobot.ParamsDisplay.Set I_VDA_STRUCTURE_SUPPORT_SYMBOLS, False 'shows the supports mavueRobot.ParamsDisplay.Set I_VDA_STRUCTURE_NODE_NUMBERS, False 'shows the node numbers mavueRobot.ParamsDiagram.Set I_VDRT_NTM_MY, False mavueRobot.ParamsDiagram.Set I_VDRT_NTM_FX, False mavueRobot.ParamsDiagram.Set I_VDRT_NTM_FZ, False Set Rtable = RobApp.Project.ViewMngr.CreateTable(I_TT_NODE_DISPLACEMENTS, I_TDT_DISPLACEMENTS) 'Rtable.Select(IRobotSelectionType.I_ST_CASE, "1") ''mavueRobot.Selection.Get().FromText ("15") 'Dim ScPar As RobotViewScreenCaptureParams 'Set ScPar = RobApp.CmpntFactory.Create(I_CT_VIEW_SCREEN_CAPTURE_PARAMS) 'Set Rtable = RobApp.Project.ViewMngr.CreateTable(I_TT_BARS, I_TDT_BAR) ' You can also GetTable 'Rtable.AddColumn 1 - modify tables if you want by adding or removing columns 'mavueRobot.Visible = True 'mavueRobot.Redraw (True) 'RobApp.Project.ViewMngr.Refresh Rtable.MakeScreenCapture TScPar RobApp.Project.PrintEngine.SaveReportToOrganizer End Sub

At line 120 we did try to select the case but it won't, Does anyone have a solution for this?

From my experience i know that @Rafal.Gaweda is quite familiair with this?

Many thanks in advance.

Re: Get specific nodes and case data in table for printoutcomposition

Stephane.kapetanovic — Sun, 08 Mar 2026 21:19:20 GMT

hi @1234eddie

remove parentheses from method (when it does not return a value).

you will have to select the nodes also in the table

Best Regards

Re: Get specific nodes and case data in table for printoutcomposition

stefanyC6JZ7 — Mon, 14 Aug 2023 07:12:12 GMT

Hi @Stephane.kapetanovic

Thank you for your answer. We changed the code as you suggested. And, now it selects the correct case, Case 15, as you can see in the figure below. However, the screencapture of the Table is not done, and I get an error, in the yellow line: "Set TScPar = RobApp.CmpntFactory.Create(I_CT_VIEW_SCREEN_CAPTURE_PARAMS)"

' ' Generation of the parametrized Silo. ' Public RobApp As RobotApplication Private Sub CommandButton1_Click() '***Run Robot application If RobApp Is Nothing Then Set RobApp = CreateObject("Robot.Application") End If RobApp.Visible = True RobApp.Interactive = 1 RobApp.UserControl = True '***Create an empty Shell project if it has not been created yet If Not RobApp.Project.IsActive Or RobApp.Project.Type <> I_PT_SHELL Then RobApp.Project.New I_PT_SHELL End If 'Sub kernel() 'initialisation des valeurs Call init_value 'permet de regénérer la vue Call CreeVueRM 'sauvegarde le projet 'robapp.Project.SaveAs newfilepath 'robapp.Project.Close End Sub Public Sub CreeVueRM() ' définition d'une vue RobApp.Interactive = True RobApp.Visible = True RobApp.Window.Activate '------------------ Dim mavueRobot As IRobotView3 ' this is important to set IRobotView3 if you want to make screen capture of this view Set mavueRobot = RobApp.Project.ViewMngr.GetView(1) ' it seems CreateView makes this strange affect, use Get view instead Dim SimpleCaseSel As IRobotSelection 'Select Simple cases Dim ManualCombSel As IRobotSelection 'Select Combination cases '----------------------------- mavueRobot.Selection.Get(I_OT_CASE).FromText ("1") ' selecting case for results display mavueRobot.Redraw (True) 'mavueRobot.Projection = I_VP_3DXYZ mavueRobot.Projection = I_VP_XZ_3D mavueRobot.Visible = True mavueRobot.Redraw (True) RobApp.Project.ViewMngr.Refresh '-------------------------------------------- '---------------------CREATE TABLE mavueRobot.Selection.Get(I_OT_CASE).FromText ("15") ' selecting case for results display SLS RobApp.Project.ViewMngr.Refresh Dim Rtable As RobotTable Dim TScPar As RobotTableScreenCaptureParams Set TScPar = RobApp.CmpntFactory.Create(I_CT_TABLE_SCREEN_CAPTURE_PARAMS) TScPar.Name = "Disp_15" 'Screenshot Name 'mavueRobot.Selection.Get(I_OT_CASE).FromText ("15") ' selecting case for results display SLS 'mavueRobot.Selection.Get(I_OT_BAR).FromText ("5") 'mavueRobot.Selection.Get(I_OT_NODE).FromText ("801 to 829") ' selecting case for results display SLS mavueRobot.Redraw (True) mavueRobot.Visible = True mavueRobot.Redraw (True) RobApp.Project.ViewMngr.Refresh 'TScPar.UpdateType = I_SCUT_CURRENT_VIEW 'TScPar.Resolution = I_VSCR_4096 '----------------- mavueRobot.ParamsDisplay.Set I_VDA_STRUCTURE_SUPPORT_SYMBOLS, False 'shows the supports mavueRobot.ParamsDisplay.Set I_VDA_STRUCTURE_NODE_NUMBERS, False 'shows the node numbers mavueRobot.ParamsDiagram.Set I_VDRT_NTM_MY, False mavueRobot.ParamsDiagram.Set I_VDRT_NTM_FX, False mavueRobot.ParamsDiagram.Set I_VDRT_NTM_FZ, False Set Rtable = RobApp.Project.ViewMngr.CreateTable(I_TT_NODE_DISPLACEMENTS, I_TDT_DISPLACEMENTS) Rtable.Select IRobotSelectionType.I_ST_CASE, "15" ''mavueRobot.Selection.Get().FromText ("15") 'Dim ScPar As RobotViewScreenCaptureParams Set TScPar = RobApp.CmpntFactory.Create(I_CT_VIEW_SCREEN_CAPTURE_PARAMS) 'Set Rtable = RobApp.Project.ViewMngr.CreateTable(I_TT_BARS, I_TDT_BAR) ' You can also GetTable 'Rtable.AddColumn 1 - modify tables if you want by adding or removing columns 'mavueRobot.Visible = True 'mavueRobot.Redraw (True) 'RobApp.Project.ViewMngr.Refresh Rtable.MakeScreenCapture TScPar RobApp.Project.PrintEngine.SaveReportToOrganizer End Sub

Could you check this part of the code?

Thanks in advance.

Best regards,

Stefany

Re: Get specific nodes and case data in table for printoutcomposition

Stephane.kapetanovic — Mon, 14 Aug 2023 09:20:11 GMT

hi @stefanyC6JZ7

Dim Rtable As RobotTable Dim TScPar As RobotTableScreenCaptureParams Set Rtable = RobApp.Project.ViewMngr.CreateTable(I_TT_NODE_DISPLACEMENTS, I_TDT_DISPLACEMENTS) Rtable.Select I_ST_CASE, "15" Set TScPar = RobApp.CmpntFactory.Create(I_CT_TABLE_SCREEN_CAPTURE_PARAMS) TScPar.Name = "my_results" Rtable.MakeScreenCapture TScPar

Best regards

Re: Get specific nodes and case data in table for printoutcomposition

stefanyC6JZ7 — Mon, 14 Aug 2023 09:34:23 GMT

Hi @Stephane.kapetanovic

Thank you for your reply, and your help. The code now is working perfectly. And I get the screenshot. Also, I was wondering if you know how can I set the Page Setup parameters. I am tryint to get them following the path of line 104 " RobApp.Project.PrintEngine.PageSetup.Variables.Active = True". Could you check it please, I am not sure if this is the right way to set the Variables.

Thank you in advance for your help.

Best regards,

Stefany

' -------------------------------------------------------------- ' ' Generation of the parametrized Silo. ' Public RobApp As RobotApplication Private Sub CommandButton1_Click() '***Run Robot application If RobApp Is Nothing Then Set RobApp = CreateObject("Robot.Application") End If RobApp.Visible = True RobApp.Interactive = 1 RobApp.UserControl = True '***Create an empty Shell project if it has not been created yet If Not RobApp.Project.IsActive Or RobApp.Project.Type <> I_PT_SHELL Then RobApp.Project.New I_PT_SHELL End If 'Sub kernel() 'initialisation des valeurs Call init_value 'permet de regénérer la vue Call CreeVueRM 'sauvegarde le projet 'robapp.Project.SaveAs newfilepath 'robapp.Project.Close End Sub Public Sub CreeVueRM() ' définition d'une vue RobApp.Interactive = True RobApp.Visible = True RobApp.Window.Activate '------------------ Dim mavueRobot As IRobotView3 ' this is important to set IRobotView3 if you want to make screen capture of this view Set mavueRobot = RobApp.Project.ViewMngr.GetView(1) ' it seems CreateView makes this strange affect, use Get view instead Dim SimpleCaseSel As IRobotSelection 'Select Simple cases Dim ManualCombSel As IRobotSelection 'Select Combination cases '----------------------------- mavueRobot.Selection.Get(I_OT_CASE).FromText ("15") ' selecting case for results display mavueRobot.Redraw (True) 'mavueRobot.Projection = I_VP_3DXYZ mavueRobot.Projection = I_VP_XZ_3D mavueRobot.Visible = True mavueRobot.Redraw (True) RobApp.Project.ViewMngr.Refresh '-------------------------------------------- '---------------------CREATE TABLE 'mavueRobot.Selection.Get(I_OT_CASE).FromText ("15") ' selecting case for results display SLS RobApp.Project.ViewMngr.Refresh Dim Rtable As RobotTable Dim TScPar As RobotTableScreenCaptureParams Set TScPar = RobApp.CmpntFactory.Create(I_CT_TABLE_SCREEN_CAPTURE_PARAMS) TScPar.Name = "Disp_15" 'Screenshot Name 'TScPar.UpdateType = I_SCUT_CURRENT_VIEW 'TScPar.Resolution = I_VSCR_4096 '----------------- mavueRobot.ParamsDisplay.Set I_VDA_STRUCTURE_SUPPORT_SYMBOLS, False 'shows the supports mavueRobot.ParamsDisplay.Set I_VDA_STRUCTURE_NODE_NUMBERS, False 'shows the node numbers mavueRobot.ParamsDiagram.Set I_VDRT_NTM_MY, False mavueRobot.ParamsDiagram.Set I_VDRT_NTM_FX, False mavueRobot.ParamsDiagram.Set I_VDRT_NTM_FZ, False Set Rtable = RobApp.Project.ViewMngr.CreateTable(I_TT_NODE_DISPLACEMENTS, I_TDT_DISPLACEMENTS) Rtable.Select IRobotSelectionType.I_ST_CASE, "15" 'Select the Specific Case Rtable.Select IRobotSelectionType.I_ST_NODE, "801 to 829" 'Selects the nodes of the last bar mavueRobot.Visible = True mavueRobot.Redraw (True) RobApp.Project.ViewMngr.Refresh Rtable.MakeScreenCapture TScPar RobApp.Project.PrintEngine.SaveReportToOrganizer '----------------------HEADERS 'RobApp.Project.PrintEngine.PageSetup.Header.Active = True 'RobApp.Project.PrintEngine.PageSetup.Footer.Active = False 'RobApp.Project.PrintEngine.PageSetup.Footer.Active = False 'RobApp.Project.PrintEngine.PageSetup.MarginLeft.Set ("16") RobApp.Project.PrintEngine.PageSetup.Variables.Active = True 'RobApp.Project IRobot.VariablePredefinedId.I_VPI_PROJECT_NAME, "Trials" 'Dim Headers As IRobotVariablePredefinedId 'Set Headers = RobApp.Project.Printouts.IRobotVariablePredefinedId (8) 'Headers.I_VPI_USER_ADDRESS , "Trials" End Sub

Re: Get specific nodes and case data in table for printoutcomposition

Stephane.kapetanovic — Sun, 08 Mar 2026 21:20:14 GMT

RobotVariableMngr has no Active property, could you be clearer on what you want to set by RobApp.Project.PrintEngine.PageSetup.Variables? For example you have a SetPredefinedValue method that can help you.

Re: Get specific nodes and case data in table for printoutcomposition

stefanyC6JZ7 — Mon, 14 Aug 2023 10:24:49 GMT

hI @Stephane.kapetanovic,

I want to edit the Page Setup Parameters, For example, "PROJECT_ADDRESS1" as figure below shows. I want to use VBA to assign the Values instead of doing manually.

I was checking the API Documentation and I found that IRobotPageSetup has the Field Variables as the figure below shows.

Also, I Found the IRobotVariablePredefinedId with some Parameters. As figure below shows.

I am not sure how to do it with VBA, Could you help me to check if the following code is correct to edit the variables, or what should I do?

RobApp.Project.PrintEngine.PageSetup.Variables

Thank you in advance for your help.

Best regards,

Stefany

Re: Get specific nodes and case data in table for printoutcomposition

Stephane.kapetanovic — Mon, 14 Aug 2023 10:37:01 GMT

as suggested you can use the SetPredefinedValue method.

RobApp.Project.PrintEngine.PageSetup.Variables.SetPredefinedValue I_VPI_PROJECT_ADDRESS1, "MyProjectAdress"

Re: Get specific nodes and case data in table for printoutcomposition

stefanyC6JZ7 — Mon, 14 Aug 2023 12:23:35 GMT

Hi @Stephane.kapetanovic,

Thank you for your answer, now it works fine.

Best regards,

Stefany

Re: Get specific nodes and case data in table for printoutcomposition

stefanyC6JZ7 — Tue, 15 Aug 2023 14:40:32 GMT

Hi @Stephane.kapetanovic

Sorry to bother you again. Could you help me to solve a question about Printout composition.

I want to add the standard Tables (Data - Nodes, Data -Members, etc), from Printout composition, Standard Tab to my Printout list on the right as figure shows, using VBA instead of adding them manually.

I was checking the API Documentation, and I am not sure if it is correct to add them as follows:

Set Rtable1 = RobApp.Project.ViewMngr.GetTable(I_TT_NODES, I_TDT_DEFAULT)

First, by using Get Table, please find the code below. Then, by adding

(I_TT_NODES, I_TDT_DEFAULT)

Dim Rtable1 As RobotTable Dim TScPar1 As RobotTableScreenCaptureParams Set TScPar1 = RobApp.CmpntFactory.Create(I_CT_TABLE_SCREEN_CAPTURE_PARAMS) TScPar1.Name = "Disp_Nodes Table" 'Screenshot Name TScPar1.UpdateType = IRobotViewScreenCaptureUpdateType.I_SCUT_CURRENT_VIEW 'TScPar1.Resolution = IRobotViewScreenCaptureResolution.I_VSCR_4096 Set Rtable1 = RobApp.Project.ViewMngr.GetTable(I_TT_NODES, I_TDT_DEFAULT) mavueRobot.Visible = True mavueRobot.Redraw (True) RobApp.Project.ViewMngr.Refresh Rtable.MakeScreenCapture TScPar1 RobApp.Project.PrintEngine.SaveReportToOrganizer

Re: Get specific nodes and case data in table for printoutcomposition

Stephane.kapetanovic — Tue, 15 Aug 2023 16:17:05 GMT

hi @stefanyC6JZ7

rather than using the get method, use the create method and close the window after use.

Dim Rtable As RobotTable Dim TScPar As RobotTableScreenCaptureParams With RobApp Set TScPar = .CmpntFactory.Create(I_CT_TABLE_SCREEN_CAPTURE_PARAMS) Set Rtable = .Project.ViewMngr.CreateTable(I_TT_NODES, I_TDT_NODE) End With TScPar.Name = "myNodeTable" Rtable.MakeScreenCapture TScPar Rtable.Window.SendMessage &H10, 0, 0

for the get method an example is below

https://forums.autodesk.com/t5/robot-structural-analysis-forum/api-macro-for-dumping-all-opened-tables-in-robot-with-all-tabs/m-p/5403391

Best Regards

Re: Get specific nodes and case data in table for printoutcomposition

stefanyC6JZ7 — Wed, 16 Aug 2023 08:53:12 GMT

Hi @Stephane.kapetanovic

Thank you for your answer. You are right, I can get the tables. However, I got one issue in the creation of the Support Table.
When I take it manually I got the table shown below.

But when I try it with the following code, I get a different table.

'--------------------Add Standard Data-Supports Dim Rtable5 As RobotTable Dim TScPar5 As RobotTableScreenCaptureParams 'To create a table Set TScPar5 = RobApp.CmpntFactory.Create(I_CT_TABLE_SCREEN_CAPTURE_PARAMS) With RobApp Set TScPar5 = .CmpntFactory.Create(I_CT_TABLE_SCREEN_CAPTURE_PARAMS) Set Rtable5 = .Project.ViewMngr.CreateTable(I_TT_SUPPORTS, I_TDT_SUPPORTS) End With TScPar5.Name = "Data - Supports" Rtable5.MakeScreenCapture TScPar5 mavueRobot.Visible = True mavueRobot.Redraw (True) RobApp.Project.ViewMngr.Refresh RobApp.Project.PrintEngine.SaveReportToOrganizer

I am not sure what is wrong, Could you help me to check it?

Thank you in advance.

Best regards,
Stefany

Re: Get specific nodes and case data in table for printoutcomposition

Stephane.kapetanovic — Wed, 16 Aug 2023 11:47:58 GMT

hi @stefanyC6JZ7

the two main methods are those detailed above, if the presentation proves to be complicated to do by programming or that it only occurs in rare cases, it is probably possible manually by you. In your case, it may be more practical to use the Get method on a previously formatted table.

Best Regards

Re: Get specific nodes and case data in table for printoutcomposition

stefanyC6JZ7 — Wed, 16 Aug 2023 13:57:32 GMT

Thank you for your response @Stephane.kapetanovic. I checked again the API documentation and using the code below, the right table appears.

Set Rtable0 = RobApp.Project.ViewMngr.CreateTable(I_TT_SUPPORTS_LABEL, I_TDT_SUPPORTS)

Thank you for your help.

Best regards,

Stefany

Re: Get specific nodes and case data in table for printoutcomposition

stefanyC6JZ7 — Mon, 21 Aug 2023 09:11:12 GMT

Hi @Stephane.kapetanovic,

Sorry to bother you again. Could you help me to solve one issue when selecting specific nodes using VBA.

I want to create this table, as figure below shows. The table shows the node displacement from Bar 5, containing nodes 801-829.

Currently I am using the code below:

' -------------------------------------------------------------- ' ' Generation of the parametrized Silo. ' Public RobApp As RobotApplication Private Sub CommandButton1_Click() '***Run Robot application If RobApp Is Nothing Then Set RobApp = CreateObject("Robot.Application") End If RobApp.Visible = True RobApp.Interactive = 1 RobApp.UserControl = True '***Create an empty Shell project if it has not been created yet If Not RobApp.Project.IsActive Or RobApp.Project.Type <> I_PT_SHELL Then RobApp.Project.New I_PT_SHELL End If ''Sub kernel() 'initialisation des valeurs Call init_value 'permet de regénérer la vue Call CreeVueRM End Sub Public Sub CreeVueRM() ' définition d'une vue RobApp.Interactive = True RobApp.Visible = True RobApp.Window.Activate '------------------ Dim mavueRobot As IRobotView3 ' this is important to set IRobotView3 if you want to make screen capture of this view Set mavueRobot = RobApp.Project.ViewMngr.GetView(1) ' it seems CreateView makes this strange affect, use Get view instead '----------------------------- mavueRobot.Redraw (True) mavueRobot.Projection = I_VP_XZ_3D mavueRobot.Visible = True mavueRobot.Redraw (True) RobApp.Project.ViewMngr.Refresh '-------------------------------------------- '---------------------CREATE TABLE ''RobApp.Project.ViewMngr.Refresh Dim Rtable As RobotTable Dim TScPar As RobotTableScreenCaptureParams Set TScPar = RobApp.CmpntFactory.Create(I_CT_TABLE_SCREEN_CAPTURE_PARAMS) TScPar.Name = "Disp_15" 'Screenshot Name '-------------------------------SELECT NODES Dim NodeSel As RobotSelection 'Node selection Set NodeSel = RobApp.Project.Structure.Selections.Get(I_OT_NODE) 'Selects all nodes NodeSel.FromText "all" Dim Node As RobotObjObject Dim NodeCol As RobotNodeCollection Set NodeCol = RobApp.Project.Structure.Nodes.GetMany(NodeSel) Dim NodesSelection As String Row = 2 For ii = 1 To NodeCol.Count Cells(Row, 9) = "Node" Set RNode = NodeCol.Get(ii) Cells(Row, 10) = RNode.Number Row = Row + 1 Next ii Dim i As Integer Dim firstRow As Integer Dim columnNumber As Integer Dim Max As Integer Z = 801 firstRow = 2 columnNumber = 10 Set Sheet = ActiveSheet If Sheet.UsedRange.Rows.Count <= 1 Then Max = NaN Else Max = Sheet.Cells(firstRow, columnNumber) For i = firstRow + 1 To Sheet.UsedRange.Rows.Count If Sheet.Cells(i, columnNumber) > Max Then Max = Sheet.Cells(i, columnNumber) Next Cells(1, 9) = "Node_Max" Cells(1, 10) = Max V = Max Cells(1, 11) = "Node_Start" Cells(1, 12) = Z Set Rtable = RobApp.Project.ViewMngr.CreateTable(I_TT_NODE_DISPLACEMENTS, I_TDT_DISPLACEMENTS) Rtable.Select IRobotSelectionType.I_ST_CASE, 15 'Select the Specific Case Rtable.Select IRobotSelectionType.I_ST_NODE, "801to829" 'Selects the nodes of the last bar mavueRobot.Visible = True mavueRobot.Redraw (True) RobApp.Project.ViewMngr.Refresh Rtable.MakeScreenCapture TScPar RobApp.Project.PrintEngine.SaveReportToOrganizer End Sub

When creating the table, the code selects from node 801 to node 829.

Rtable.Select IRobotSelectionType.I_ST_NODE, "801to829" 'Selects the nodes of the last bar

However, the maximum node number("829") will change depending on the project. Thats why the approach is to get the maximum node number from all the nodes. And then create the table from node 801 - Node_max number.

With the current code, I get succesfully the Node_Max number ("829") and export to Excel as fiure below shows:

And If I change the part of the code as follows:

Rtable.Select IRobotSelectionType.I_ST_NODE, V 'Selects the nodes of the last bar

I got the following table, witht the right case and the max node mnumber:

But I am not sure how to create the table from node 801to829 using V instead of 829.

Rtable.Select IRobotSelectionType.I_ST_NODE, "801toV" 'Selects the nodes of the last bar

Could you help me to chekc if this is the correct way to get the table?

Many thanks in advance.

Best regards,

Stefany

Re: Get specific nodes and case data in table for printoutcomposition

Stephane.kapetanovic — Mon, 21 Aug 2023 10:03:34 GMT

hi @stefanyC6JZ7

The code below will give you the first and last number as well as the overall selection of nodes in your project.

With RobApp.Project.Structure.Selections.Create(I_OT_NODE) .FromText "all": First = .Get(1): Last = .Get(.Count): TxtFirstToLastNode = .ToText End With

used like that

Rtable.Select IRobotSelectionType.I_ST_NODE, TxtFirstToLastNode

Best Regards

not knowing your project, note that you can also write:

TxtFirstToLastNode = "801to" & Last