www.sefindia.org

[rahul.leslie]

Hi,

I have been trying to extract model details via OpenSTAAD, but it is showing error (Error 438)... The code is as below

  
Private Sub CommandButton1_Click()
    Dim openSTAADObj As Object
    
    Set openSTAADObj = GetObject(, "StaadPro.OpenSTAAD")
    openSTAADObj.OpenSTAADFile "D:\STD-Files\Str7.std"
    '==========================NODES===============================
    Dim nNodes As Long
    nNodes = openSTAADObj.Geometry.GetNodeCount
    Dim nodesList() As Long
    openSTAADObj.Geometry.GetNodeList nodesList()
    
    Dim xCoord As Double
    Dim yCoord As Double
    Dim zCoord As Double
    
    For i = 1 To nNodes
        openSTAADObj.Geometry.GetNodeCoordinates (nodesList(i - 1)), xCoord, yCoord, zCoord
       
        Worksheets("Sheet2").Range("A" & (i + 3)) = nodesList(i - 1)
        Worksheets("Sheet2").Range("B" & (i + 3)) = xCoord
        Worksheets("Sheet2").Range("C" & (i + 3)) = yCoord
        Worksheets("Sheet2").Range("D" & (i + 3)) = zCoord
    Next i
    '=============================================================
Set openSTAADObj = Nothing
End Sub

The line giving the error is shown highlighted above ... The function used is as documented:



anyboby, any idea what the problem is?

Rahul Leslie

[BVRAO]

I have developed many applications for  STAAD

I have not understand actually what  is your requirement


you have to declare  Excel also as an object

[rahul.leslie]

Thank you, sir, for your response.
This is a VBA program written within Excel, so Excel need not be made an object... the program is itself residing inside Excel

My only doubt is, whether the function...

openSTAADObj.Geometry.GetNodeList

...is working fine, in your experience. In my case, with the VBA code given in above post, it is giving error, saying:

Run-time error '5'
Invalid procedure call or argument


where could I be wrong?

Rahul Leslie

[JVCSNL]

did you tried

openSTAADObj.Geometry.GetNodeList(nodesList)


Best Regards,


Jignesh Chokshi

[rahul.leslie]

..tried. It isn't working either.

[BVRAO]

[JVCSNL]

Mr. Rao,


The OpenSTAADObj works well in VBA for sure.  It actually allow us to access the entire database rather than .std text file or .anl file having limited information.  It is better to use this object as it can be useful for updating the data within staad model itself through automation programs.


Dear Rahul,

The problem I see is that the nodelist is an array without defined dimension.  

Since, we don't know how many nodes will be there in different models, it is necessary not to define its size in the first place.  

Hence, we shall first define the variable without dimension (dim nodelist() as long  in this case).  

Then, we shall count the nodes and then redimension the variable with exact size.  

Try Below code:


Dim nodesList() As Long
Dim nNodes As Integer
nNodes = openSTAADObj.Geometry.GetNodeCount


ReDim nodesList(0 to (nNodes-1)) As Long

openSTAADObj.Geometry.GetNodeList nodesList


alternatively:


Dim nNodes As Integer
nNodes = openSTAADObj.Geometry.GetNodeCount


Dim nodesList(0 to (nNodes-1)) As Long
openSTAADObj.Geometry.GetNodeList nodesList


I think, these both approaches shall work:



Sharing another example, for support nodes from one of my programs.  Similar syntax.

Dim SupNode() As Long
Dim SC As Integer
SC = OST.Support.GetSupportCount
ReDim SupNode(0 To (SC - 1)) As Long
OST.Support.GetSupportNodes SupNode


Hope this works and your difficulty is solved.  

Best Wishes,

Jignesh V Chokshi

[rahul.leslie]

ReDim nodesList(0 to (nNodes-1)) As Long
openSTAADObj.Geometry.GetNodeList nodesList

..wow, it worked 💪... thanks a lot, Jignesh sir 😊

I thought the GetNodeList function would re-dimension as well.

Rahul Leslie

[BVRAO]

[quote="JVCSNL"]Mr. Rao,


The OpenSTAADObj works well in VBA for sure.  It actually allow us to access the entire database rather than .std text file or .anl file having limited information.  It is better to use this object as it can be useful for updating the data within staad model itself through automation programs.



Thanks a lot
without knowing above OpenSTAADObj  


I have developed lot of code for STAAD