Export results ARSA via API

[Anonymous]

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

[Rafal.Gaweda]

FEparams.SetDirX I_OLXDDT_CARTESIAN, 0, 1, 0

but I still get 0 values. 

I do not believe

In any case, Do I have to change every time the code depending if I'm exporting values from X directions or Y directions?

Yes.

This is this exactly Robot setting:

[Anonymous]

@Rafal.Gaweda If I put system of local axes: Automatic; in Results Maps I get both values in ARSA. I am wondering if Is it possible to change the code like this? In order to get both values in excel as well

FEparams.SetDirX I_OLXDDT_AUTOMATIC

[Rafal.Gaweda]

Hi @Anonymous

I am afraid not possible this way.

But you can GetDirX from panel (RobotObjAttributes) and use it in FEparams.SetDirX

[Anonymous]

Hi @Rafal.Gaweda ,

I am looking the part of code to filter rectangular concrete beam or column. I would avoid to get steel bar and not rectangular shape. Can you give me an hint please?

[Rafal.Gaweda]

Hi @Anonymous 

Dim RLabel As RobotLabel
Dim RBSD As RobotBarSectionData
.......

Set RLabel = ........
Set RBSD = RLabel.Data

If(RBSD.IsConcrete).....

If(RBSD.ShapeType ==I_BSST_CONCR_BEAM_RECT or RBSD.ShapeType == I_BSST_CONCR_COL_R).....

[Anonymous]

thanks @Rafal.Gaweda  for answering,

I do not understand what Rlabel should be = to what?

Set RLabel = ?

Thanks!

[Anonymous]

Hi @Rafal.Gaweda , I'm trying to copy your macro in Vb net, it works perfect but when I try to get results from ULS combination, I get the error in attached.

Can you help me please?

[Rafal.Gaweda]

Hi @Anonymous 

You have to debug it, but my guess is NumberOfPoints is not a string.

[Anonymous]

@Rafal.Gaweda the macro does not work for ULS+, ULS-. Could you provide us that part please?

[Rafal.Gaweda]

Hi @Anonymous 

Code from post 53 replace by:

ElseIf (RCaseCol.Get(ii).Type = I_CT_CODE_COMBINATION) Then
          
                Dim CCount As Integer
                Dim CCa As RobotCodeCombination
                Set CCa = RCaseCol.Get(ii)
                CCount = CCa.Components.Count
                Dim StrCC As String
                StrCC = Str(CCount)
                
                If InStr(RCaseCol.Get(ii).Name, "+") <> 4 And InStr(RCaseCol.Get(ii).Name, "-") <> 4 And InStr(RCaseCol.Get(ii).Name, "+") <> 8 And InStr(RCaseCol.Get(ii).Name, "-") <> 8 Then
                    FEparams.Case = CCa.Number
                    
                    For icomp = 1 To CCount
                        row = row + 1
                        FEparams.CaseCmpnt = icomp
   
                    If (OptionButton1.Value) Then Cells(row, 1) = Str(FEparams.Element) + " / " + Str(FEparams.Case) + " / " + Str(FEparams.CaseCmpnt)
                    If (OptionButton2.Value) Then Cells(row, 1) = Str(FEparams.Node) + " / " + Str(FEparams.Case) + " / " + Str(FEparams.CaseCmpnt)
                    If (OptionButton3.Value) Then Cells(row, 1) = Str(FEparams.Panel) + " / " + Str(FEparams.Node) + " / " + Str(FEparams.Case) + " / " + Str(FEparams.CaseCmpnt)
                
                    Set FEresults = RobApp.Project.Structure.Results.FiniteElems.Detailed(FEparams)
                    Cells(row, 2) = FEresults.QXX
                    Cells(row, 3) = FEresults.QYY
                    Set FEcomplex = RobApp.Project.Structure.Results.FiniteElems.Complex(FEparams)
                    Cells(row, 4) = FEcomplex.MXX_TOP
                    Cells(row, 5) = FEcomplex.MXX_BOTTOM
                    Cells(row, 6) = FEcomplex.MYY_TOP
                    Cells(row, 7) = FEcomplex.MYY_BOTTOM
                    Next icomp
                Else
                
                    row = row + 1
                
                    If (OptionButton1.Value) Then Cells(row, 1) = Str(FEparams.Element) + " / " + Str(FEparams.Case)
                    If (OptionButton2.Value) Then Cells(row, 1) = Str(FEparams.Node) + " / " + Str(FEparams.Case)
                    If (OptionButton3.Value) Then Cells(row, 1) = Str(FEparams.Panel) + " / " + Str(FEparams.Node) + " / " + Str(FEparams.Case)
                
                    Set FEresults = RobApp.Project.Structure.Results.FiniteElems.Detailed(FEparams)
                    Cells(row, 2) = FEresults.QXX
                    Cells(row, 3) = FEresults.QYY
                    Set FEcomplex = RobApp.Project.Structure.Results.FiniteElems.Complex(FEparams)
                    Cells(row, 4) = FEcomplex.MXX_TOP
                    Cells(row, 5) = FEcomplex.MXX_BOTTOM
                    Cells(row, 6) = FEcomplex.MYY_TOP
                    Cells(row, 7) = FEcomplex.MYY_BOTTOM
                End If
            End If

[ArunNDinesh]

Hi @Rafal.Gaweda Is it possible to call only the "Global extreme" values through API? Otherwise its time consuming to load all FE results to excel sheet. Please let me know

[ArunNDinesh]

Hi @Rafal.Gaweda  Is it possible to call only the " Global extreme" of FE results instead of calling all data? Please let me know or give some VBA

[Stephane.kapetanovic]

hi @ArunNDinesh 

It's very basic but try this 

Best Regards

updated

[Stephane.kapetanovic]

I understand that there may be questions within the community regarding specific developments. The suggestions provided here are offered with a collaborative spirit and usually center around promoting the utilization of the Robot software and its API.

Please don't hesitate to get in touch via private message if you have any additional inquiries. We're here to help you discover the optimal solutions for your unique requirements.

Best Regards