Robot Structural Analysis Forum
Welcome to Autodesk’s Robot Structural Analysis Forums. Share your knowledge, ask questions, and explore popular Robot Structural Analysis topics.
cancel
Showing results for 
Show  only  | Search instead for 
Did you mean: 

Export results ARSA via API

74 REPLIES 74
SOLVED
Reply
Message 1 of 75
mateaus
5784 Views, 74 Replies

Export results ARSA via API

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

74 REPLIES 74
Message 61 of 75
Rafal.Gaweda
in reply to: RSAJunior-


FEparams.SetDirX I_OLXDDT_CARTESIAN, 0, 1, 0

but I still get 0 values. 

 

I do not believe

 

panel8.jpg

 

 

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:

 

mapdir.jpg

 

 

 

 



Rafal Gaweda
Message 62 of 75
RSAJunior-
in reply to: Rafal.Gaweda

@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

 

 

Message 63 of 75
Rafal.Gaweda
in reply to: RSAJunior-

Hi @RSAJunior-

 

I am afraid not possible this way.

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

 



Rafal Gaweda
Message 64 of 75
m.ridi220
in reply to: Rafal.Gaweda

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?

Message 65 of 75
Rafal.Gaweda
in reply to: m.ridi220

Hi @m.ridi220 

 

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).....

 

 



Rafal Gaweda
Message 66 of 75
m.ridi220
in reply to: Rafal.Gaweda

thanks @Rafal.Gaweda  for answering,

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

 

Set RLabel = ?

Thanks!

Message 67 of 75
m.ridi220
in reply to: Rafal.Gaweda

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?

Message 68 of 75
Rafal.Gaweda
in reply to: m.ridi220

Hi @m.ridi220 

 

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

 



Rafal Gaweda
Message 69 of 75
m.ridi220
in reply to: Rafal.Gaweda

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

Message 70 of 75
Rafal.Gaweda
in reply to: m.ridi220

Hi @m.ridi220 

 

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


Rafal Gaweda
Message 71 of 75
andi4G4Z4
in reply to: Rafal.Gaweda

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

 

andi4G4Z4_0-1694360075984.png

 

Message 72 of 75
andi4G4Z4
in reply to: Rafal.Gaweda

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

andi4G4Z4_0-1694360371023.png

 

Message 73 of 75

hi @andi4G4Z4 

It's very basic but try this 

Stephanekapetanovic_0-1694877812714.png

Best Regards

updated

Tags (5)
Message 74 of 75

 

 

 

Tags (3)
Message 75 of 75

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

Can't find what you're looking for? Ask the community or share your knowledge.

Post to forums  

Autodesk Design & Make Report