topic Re: Extracting node table in Robot Structural Analysis Forum

(API) Extracting node table

Anonymous — Thu, 21 May 2015 13:54:48 GMT

Hey

Is it possible to extract the numbers of all nodes from a model ? Basically I want to extract the Node table from Robot into an excel spreadsheet incl. numbers and coordinates, support conditions are not important right now. How would the code look like in VBA?

I have the macro that extract and modify the coordinates of the model, but I need the nodes and their coord. together.

Thanks in advance

Re: Extracting node table

Rafal.Gaweda — Thu, 21 May 2015 13:46:40 GMT

Sorry I do not understand.
You have the macro but want the same macro again in "different way" ?

Re: Extracting node table

Anonymous — Thu, 21 May 2015 13:51:19 GMT

Sorry for the comfusion. I just want to extract the Node table from a ROBOT model to excel via a code in VBA.

Re: Extracting node table

Rafal.Gaweda — Thu, 21 May 2015 13:54:24 GMT

 Dim NodeCol As RobotNodeCollection
    Set NodeCol = RobApp.Project.Structure.Nodes.GetAll
    Dim RNode As RobotNode
 
    
    For ii = 1 To NodeCol.Count

        Cells(Row, 1) = "Node"
        Set RNode = NodeCol.Get(ii)
        Cells(Row, 2) = RNode.Number
        Cells(Row, 4) = RNode.X
        Cells(Row, 5) = RNode.Y
        Cells(Row, 6) = RNode.Z
        
        Row = Row + 1
    Next ii

Re: Extracting node table

Anonymous — Fri, 22 May 2015 08:40:52 GMT

Thanks that worked.

Re: Extracting node table

Anonymous — Fri, 19 Jun 2015 06:38:04 GMT

Hi, I was just looking to extract node table for selected panels only. Can anyone guide me to get it for perticular panels.

Thanks in advance.

Re: Extracting node table

Rafal.Gaweda — Fri, 19 Jun 2015 08:33:54 GMT

Example (panel selection should be made in Robot)

    Dim PanelSel As RobotSelection
    Set PanelSel = RobApp.Project.Structure.Selections.Get(I_OT_PANEL)
    
    Dim Panel As RobotObjObject
    Dim PanelCol As RobotObjObjectCollection
    Set PanelCol = RobApp.Project.Structure.Objects.GetMany(PanelSel)
    
    Dim NodesSelection As String
    NodesSelection = ""
    
    For i = 1 To PanelCol.Count
        Set Panel = PanelCol.Get(i)
        NodesSelection = NodesSelection + " " + Panel.Nodes
    Next i
    
    Dim NodeSel As RobotSelection
    Set NodeSel = RobApp.Project.Structure.Selections.Create(I_OT_NODE)
    NodeSel.FromText NodesSelection
    
    Dim NodeCol As RobotNodeCollection
    Set NodeCol = RobApp.Project.Structure.Nodes.GetMany(NodeSel)
    Dim RNode As RobotNode
 
    Row = 10
    For ii = 1 To NodeCol.Count

        Cells(Row, 1) = "Node"
        Set RNode = NodeCol.Get(ii)
        Cells(Row, 2) = RNode.Number
        Cells(Row, 4) = RNode.X
        Cells(Row, 5) = RNode.Y
        Cells(Row, 6) = RNode.Z
        
        Row = Row + 1
    Next ii