RE: Query about openstaad properties function

SWAIRATH GHOSH — Wed, 20 Oct 2021 05:26:05 GMT

How to print those values in excel ?

RE: Query about openstaad properties function

Samarth. S — Tue, 23 Jun 2020 09:04:08 GMT

Thank you for your reply Mr.Ghosh. I found a couple of days after posting above question in this forum, that it could be solved by correcting the variable declaration....as you yourself have mentioned in your reply.....thanks for your help, once again

RE: Query about openstaad properties function

Surojit Ghosh — Fri, 19 Jun 2020 13:41:18 GMT

I am not sure what value you want to extract as pro(i) returns the execution status of the function only, not the property values. Now about your code, all the property values are extracted as 0 as the variable types are mentioned incorrectly. The following line indicates that you have defined pro() array as double, rest of the variables are not defined.

Dim Width, Depth, Ax, Ay, Az, Ix, Iy, Iz, pro(0 To 7) As Double

This should be modified as --

Dim Width As Double, Depth As Double, Ax As Double, Ay As Double, Az As Double, Ix As Double, Iy As Double, Iz As Double, pro(0 To 7) As Double

Also I am not sure why you introduce a loop with same beam number. I have tested the following macro which works fine --

Dim BeamNo As Long
Dim Width As Double, Depth As Double, Ax As Double, Ay As Double, Az As Double, Ix As Double, Iy As Double, Iz As Double
Dim p As Long
Set objOpenSTAAD = GetObject(, "StaadPro.OpenSTAAD")
BeamNo = 1
p = objOpenSTAAD.Property.GetBeamProperty(BeamNo, Width, Depth, Ax, Ay, Az, Ix, Iy, Iz)