OpenSTAAD V8i
Returns the base unit for the currently open .STD file.
(Numeric value) Value will return 1 for English and 2 for Metric system of units.
Dim objOpenSTAAD As Object
'Set the application object
Set objOpenSTAAD = GetObject( , "StaadPro.OpenSTAAD")
objOpenSTAAD.GetBaseUnit ()