OpenSTAAD V8i
This function sets the input unit of length of the currently open .STD file.
Where:
An integer variable that will hold the input unit to be assigned for length of the currently open .STD file. Value may vary from 0 to 7 (0- Inch, 1- Feet, 2- Feet, 3- CentiMeter, 4- Meter, 5- MilliMeter, 6 - DeciMeter, 7 – KiloMeter).
Dim objOpenSTAAD As Object
Dim intInputUnitForLength As Integer
'Get the application object
Set objOpenSTAAD = GetObject( , "StaadPro.OpenSTAAD")
'Set Length Unit
objOpenSTAAD.SetInputUnitForLength intInputUnitForLength