topic Re: Export results ARSA in Robot Structural Analysis Forum

Export results ARSA via API

Anonymous — Wed, 18 Jan 2012 13:32:13 GMT

Hi,

I would like to export the results of efforts with VBA in excel files like in the video attached.

Can you help me ?

Export result

Re: Export results ARSA

Rafal.Gaweda — Mon, 16 Jan 2012 16:01:59 GMT

Upload the mentioned movie

Re: Export results ARSA

Anonymous — Tue, 17 Jan 2012 08:36:02 GMT

It's on the link

Re: Export results ARSA

Rafal.Gaweda — Tue, 17 Jan 2012 09:23:02 GMT

Thanks.

Not possible to save csv from table by API. So you have to import these results to Excel then save xls file(s).

Re: Export results ARSA

Anonymous — Tue, 17 Jan 2012 10:03:13 GMT

Ok, but is there a way to export results by API ?

Re: Export results ARSA

Rafal.Gaweda — Tue, 17 Jan 2012 10:19:05 GMT

Ok, but is there a way to export results by API ?

Yes, of course.

I will write you sample code.

Re: Export results ARSA

Anonymous — Tue, 17 Jan 2012 18:24:15 GMT

Hi,

Could you send me an example to have list of efforts (Fx Fz My) with API VBA ?

Re: Export results ARSA

Rafal.Gaweda — Wed, 18 Jan 2012 13:31:49 GMT

xls file with example of table with internal forces attached.

Re: Export results ARSA

Anonymous — Wed, 18 Jan 2012 14:27:44 GMT

Ok thank you,

I try it and it works but we have to select the bars before in the model. I will search by myself how to make it automaticaly and if I don't succeed I'll ask you one more time.

Just an Question. It's slow, do I need a lot of RAM to turn it faster ?

My System :

Windows XP Professionnel 2002 SP3

Intel(R) Xeon(R) CPU

W3505 @ 2.53GHz

2.53 GHz, 2.99 Go de RAM

Carte Graphique :

NVIDIA Quadro FX 580

Re: Export results ARSA

Rafal.Gaweda — Wed, 18 Jan 2012 15:10:19 GMT

I will search by myself how to make it automaticaly

What do you mean by that ?

Just an Question. It's slow, do I need a lot of RAM to turn it faster ?

No, it does not depend on RAM.

I will check the code to accelerate it - if possible.

Re: Export results ARSA

Anonymous — Wed, 18 Jan 2012 15:32:08 GMT

I will search by myself how to make it automaticaly

What do you mean by that ?

To select automatically all the bars.

Re: Export results ARSA

Rafal.Gaweda — Wed, 18 Jan 2012 15:55:18 GMT

@Anonymous wrote:

I will search by myself how to make it automaticaly

What do you mean by that ?

To select automatically all the bars.

If you do not select any bar it will ask you whether to select ALL of them or stop macro.

or replace this section :

Set RSelection = RobApp.Project.Structure.Selections.Get(I_OT_BAR)
Dim BarCol As RobotBarCollection
Set BarCol = RobApp.Project.Structure.Bars.GetMany(RSelection)

If (BarCol.Count = 0) Then
If (MsgBox("No bars selected in Robot. Do you want to import results for all bars?", vbYesNo, "Warning") = vbOK) Then
RSelection.FromText "all"
RSelection.AddText "tous"
Set BarCol = RobApp.Project.Structure.Bars.GetMany(RSelection)
Else
Set BarCol = Nothing
Exit Sub
End If
End If

Dim BarCol As RobotBarCollection
Set BarCol = RobApp.Project.Structure.Bars.GetAll

I am attaching updated macro.

- Faster

- You may specify number of points along bar in it (2 as a default for begining and end only)

Re: Export results ARSA

Anonymous — Wed, 18 Jan 2012 19:07:30 GMT

Ok but I don't know why but if I select a bar it give me the result of the bar selected before and I have to demand a second time to have the good results for the bars selected.

Re: Export results ARSA

Rafal.Gaweda — Thu, 19 Jan 2012 08:06:52 GMT

Small correction in attached file.

It may happen that somehow the selection in "not confirmed" in Robot. Try to activate Bar selection filed (combo) on top of Robot on Selection toolbar (click inside it) then "confirm selection" by pressing Enter or Tab.

Re: Export results ARSA

Anonymous — Thu, 19 Jan 2012 08:57:45 GMT

Ok but my goal at the end is not to have to manipulate the program Robot and only use the macro VBA in excel. Is there another solution ?

Re: Export results ARSA

Rafal.Gaweda — Thu, 19 Jan 2012 09:03:12 GMT

Do you mean, for example, writing selection fo bar(s) , case(s) in Excell and not to use selection from Robot? There is no problem with it. Please write down what is the workflow in your mind.

Re: Export results ARSA

Anonymous — Thu, 19 Jan 2012 10:10:16 GMT

I have already modify the macro to demand bar(s) , case(s) in Excell. But I have to run the macro twice to have the good selection. I would like to do it in one time without using Robot.

Re: Export results ARSA

Rafal.Gaweda — Thu, 19 Jan 2012 10:14:32 GMT

PLease attach your macro.

Re: Export results ARSA

Rafal.Gaweda — Thu, 19 Jan 2012 14:34:39 GMT

My macro where the selections are read from xls file attached.

Re: Export results ARSA

Anonymous — Wed, 15 Feb 2012 13:30:53 GMT

Hi, I've modified the macro to have results with an other order :

1 - Number bar

2 - Number node

2 - Cases

For example

1 / 1 / 101 Fx Fz My

1 / 1 / 102 Fx Fz My

1 / 2 / 101 Fx Fz My

1 / 2 / 102 Fx Fz My

But it's not exporting the good efforts

Would you mind correct it ?

Sub extraction_resultats_cas()

Range("A13", "F25000").Clear
Range("B5").Clear

Set RobApp = New RobotApplication

If Not RobApp.Visible Then
    Set RobApp = Nothing
    MsgBox "Open Robot and load Model", vbOKOnly, "ERROR"
    Exit Sub
Else
    If (RobApp.Project.Type <> I_PT_FRAME_3D) And (RobApp.Project.Type <> I_PT_SHELL) Then
        MsgBox "Structure Type should be FRAME 3D or SHELL", vbOKOnly, "ERROR"
        Exit Sub
    End If
    Cells(5, 1) = "Project"
    Cells(5, 2) = RobApp.Project.Name

'selection des barres

'If CheckBox1 = True Then

'Dim BarCol As RobotBarCollection
'Set BarCol = RobApp.Project.Structure.Bars.GetAll

'Else

    Dim RSelection As RobotSelection
    Set RSelection = RobApp.Project.Structure.Selections.Get(I_OT_BAR)
    Dim BarCol As RobotBarCollection
    Set BarCol = RobApp.Project.Structure.Bars.GetMany(RSelection)
    Dim num_bar As String
    
'   If (BarCol.Count = 0) Then   c'est un test de selection du modele
'       If (MsgBox("No bars selected in Robot. Do you want to import results for all bars?", vbYesNo, "Warning") = vbYes) Then
num_bar = Cells(8, 2)
    If num_bar = "" Then
        If (MsgBox("Pas de numéro de barres indiqué ! Voulez-vous selectionner toutes les barres?", vbYesNo, "Warning") = vbYes) Then
            RSelection.FromText "all"
            RSelection.AddText "tous"
            Set BarCol = RobApp.Project.Structure.Bars.GetMany(RSelection)
        Else
            Set BarCol = Nothing
            Exit Sub
        End If
    ' ajout condition pour rentrer soi-même les numéros de barres
    Else
    RSelection.FromText num_bar
    Set BarCol = RobApp.Project.Structure.Bars.GetMany(RSelection)
    End If

'End If

    
    Set RSelection = RobApp.Project.Structure.Selections.Get(I_OT_CASE)
    Dim CaseCol As RobotCaseCollection
    Set CaseCol = RobApp.Project.Structure.Cases.GetMany(RSelection)
    Dim num_cas As String
    
 num_cas = Cells(9, 2)
    
'    If (CaseCol.Count = 0) Then
    If num_cas = "" Then
        If (MsgBox("Pas de cas ou combinaisons indiqué ! Voulez-vous importer les résultats de tous les cas ?", vbYesNo, "Warning") = vbYes) Then
            RSelection.FromText "all"
            RSelection.AddText "tous"
            Set CaseCol = RobApp.Project.Structure.Cases.GetMany(RSelection)
        Else
            Set CaseCol = Nothing
            Exit Sub
        End If
    Else
    RSelection.FromText num_cas
    Set CaseCol = RobApp.Project.Structure.Cases.GetMany(RSelection)
    End If
    
    Cells(9, 2) = RSelection.ToText
    
    NumberOfPoints = Int(Cells(10, 2).Value)
    
    If (NumberOfPoints < 2) Then
        MsgBox "Number of points along the bar must be greater or equal to 2", vbOKOnly, "Error"
        Exit Sub
    End If
    
'Sleep 10000
    
    Row = 12
'    Cells(Row, 1) = "Barre"
'    Cells(Row, 2) = "Noeud"
'    Cells(Row, 3) = "Cas (/ Composante)"
'
'     Cells(Row, 4) = "FX [kN]"
'     Cells(Row, 5) = "FZ [kN]"
'     Cells(Row, 6) = "MY [kN.m]"
     
     Cells(19, 9) = "Progression"
     
 For i = 1 To BarCol.Count
     Cells(20, 9) = Str(i) + " / " + Str(BarCol.Count)

     
     Dim RBar As RobotBar
     Set RBar = BarCol.Get(i)
     
     BarNumber = RBar.Number
     BarStr = Str(BarNumber)
     OriNodeStr = Str(RBar.StartNode)
     EndNodeStr = Str(RBar.EndNode)
     
     
     
     Dim BFD As RobotBarForceData
     Dim Icomp As Integer
     
     Dim BarForceServer As RobotBarForceServer
     Set BarForceServer = RobApp.Project.Structure.Results.Bars.Forces
     
     Dim Point As Double
     Dim Step As Double
     
     Point = 0#
     Step = 1# / (NumberOfPoints - 1)
     
For ii = 1 To NumberOfPoints

    For j = 1 To CaseCol.Count
        AT = CaseCol.Get(j).AnalizeType
     
        If AT <> I_CAT_COMB_CODE _
            And AT <> I_CAT_COMB _
            And AT <> I_CAT_COMB_NONLINEAR _
            And AT <> I_CAT_STATIC_LINEAR _
            And AT <> I_CAT_STATIC_NONLINEAR Then
                MsgBox "This macro works only for simple load cases, combinations and automatic combinations", vbOKOnly, "Error"
                Exit Sub
        End If
     
     UNC = CaseCol.Get(j).Number
     CaseStr = Str(UNC)
     If CaseCol.Get(j).Type = I_CT_CODE_COMBINATION Then  ' pour les combinaisons
          
          Dim CCount As Integer
          CCount = CaseCol.Get(j).Components.Count
          Dim StrCC As String
          StrCC = Str(CCount)
          
          If InStr(CaseCol.Get(j).Name, "+") <> 4 And InStr(CaseCol.Get(j).Name, "-") <> 4 And InStr(CaseCol.Get(j).Name, "+") <> 8 And InStr(CaseCol.Get(j).Name, "-") <> 8 Then
            For Icomp = 1 To CCount
                
                CompStr = " / " + Str(Icomp)
  
                    Row = Row + 1
          
                    If ii = 1 Then
                        Cells(Row, 1) = BarStr
                        Cells(Row, 2) = OriNodeStr
                        Cells(Row, 3) = CaseStr + CompStr
                    ElseIf ii = NumberOfPoints Then
                        Cells(Row, 1) = BarStr
                        Cells(Row, 2) = EndNodeStr
                        Cells(Row, 3) = CaseStr + CompStr
                    Else
                       Cells(Row, 1) = BarStr + Str(ii) + " /" + Str(NumberOfPoints) + " / " + CaseStr + CompStr
                     End If

                    Set BFD = BarForceServer.ValueEx(BarNumber, UNC, Icomp, Point)
         Cells(Row, 4) = BFD.FX * 0.001
         Cells(Row, 5) = BFD.FZ * 0.001
         Cells(Row, 6) = BFD.MY * 0.001

                    Set BFD = Nothing
          Next Icomp
          End If
     Else                                        ' pour les cas simples
         Row = Row + 1
         If ii = 1 Then
                        Cells(Row, 1) = BarStr
                        Cells(Row, 2) = OriNodeStr
                        Cells(Row, 3) = CaseStr
         ElseIf ii = NumberOfPoints Then
                        Cells(Row, 1) = BarStr
                        Cells(Row, 2) = EndNodeStr
                        Cells(Row, 3) = CaseStr
         Else
            Cells(Row, 1) = BarStr
            Cells(Row, 2) = Str(ii) + " /" + Str(NumberOfPoints)
            Cells(Row, 3) = CaseStr

         End If
         
         Set BFD = BarForceServer.Value(BarNumber, UNC, Point)
         Cells(Row, 4) = BFD.FX * 0.001
         Cells(Row, 5) = BFD.FZ * 0.001
         Cells(Row, 6) = BFD.MY * 0.001
         
         Set BFD = Nothing
         
     End If
     Point = Point + Step
      
      Next j
 Next ii

Next i
     
End If
Cells(19, 9) = ""
Cells(20, 9) = ""

End Sub