#====================================================
# 	Created by Carl Kastner
# 	20180913
# 	MicroStation V8i SS4 | Win 7
# 	Lines preceded with '#' are ignored
#====================================================
#The following will turn off all views and turn View 1 on and unrotate:
VIEW OFF ALL
VIEW ON 1
VIEW TOP
SELVIEW 1
#Design File Settings listed by Category order:
AA=0
LOCK ANGLE OFF
AS=1
XS=1
YS=1
ZS=1
LOCK SCALE OFF
vba execute ActiveSettings.AngleFormat = msdFormatDD_DDDD
vba execute ActiveSettings.AngleAccuracy = msdAngleAccuracy8
LOCK AXIS OFF
SET HILITE YELLOW
SET XOR WHITE
LV=0
CO=BYLEVEL
LC=BYLEVEL
WT=BYLEVEL
ACTIVE CLASS PRIMARY
ACTIVE LINESTYLESCALE 1
LOCK FENCE INSIDE
LOCK GRID OFF
SET GRID OFF
SELVIEW 1
LOCK ISOMETRIC OFF
LOCK LEVEL OFF
LOCK GGROUP OFF
LOCK ACS OFF
LOCK TEXTNODE OFF
LOCK ASSOCIATION ON
LOCK SNAP KEYPOINT
KY=2
VIEW ON 1
vba execute ActiveSettings.CoordinateFormat = MUSU
SET UNITS Feet Inches
#Master Unit Label: must be changed/set manually
#Sub Unit Label: must be changed/set manually
vba execute ActiveSettings.CoordinateAccuracy = msdAccuracy6
#vba execute ActiveSettings.CoordinateAccuracy = msdAccuracyHalf
#vba execute ActiveSettings.CoordinateAccuracy = msdAccuracy4th
#vba execute ActiveSettings.CoordinateAccuracy = msdAccuracy8th
#vba execute ActiveSettings.CoordinateAccuracy = msdAccuracy16th
#vba execute ActiveSettings.CoordinateAccuracy = msdAccuracy32nd
#vba execute ActiveSettings.CoordinateAccuracy = msdAccuracy64th
#vba execute ActiveSettings.CoordinateAccuracy = msdAccuracyE8
vba execute ActiveModelReference.UORsPerStorageUnit = 96000
#Resolution per <unit> is Read Only and must be changed/set manually
#Next line is Save Settings
FILEDESIGN