OpenSTAAD V8i
Retrieves the input unit of force of the currently open .STD file.
Where:
A string variable that holds the input unit for force of the currently open .STD file. Later the value is internally converted to an integer ranging from 0 to 7
0- Kilopound
1- Pound
2- Kilogram
3- Metric Ton
4- Newton
5- KiloNewton
6- MegaNewton
7- DecaNewton
(Boolean) True (1) if the function is successful, false (0) otherwise.
Dim objOpenSTAAD As Object
Dim strInputUnitForForce As String
'Get the application object
Set objOpenSTAAD = GetObject( , "StaadPro.OpenSTAAD")
'Get Force Unit
objOpenSTAAD.GetInputUnitForForce strInputUnitForForce