OpenSTAAD V8i
This function sets the input unit of force of the currently open .STD file.
Where:
An integer variable that will hold the input unit to be assigned for force of the currently open .STD file. Value may vary from 0 to 7 (0- Kilopound, 1- Pound, 2- Kilogram, 3-Metric Ton, 4- Newton, 5-Kilo Newton, 6- Mega Newton, 7- DecaNewton).
Dim objOpenSTAAD As Object
Dim intInputUnitForForce As Integer
'Get the application object
Set objOpenSTAAD = GetObject( , "StaadPro.OpenSTAAD")
'Set Force Unit
objOpenSTAAD.SetInputUnitForForce intInputUnitForForce