The following and attachment is as complete a list of V8i Design File Settings keyins and VBA strings for 2D as I could find.
Usefull when running as a Batch Process routine to standardize design files.
Note: The accuracy numbers are the maximum allowed, modify as needed.
#====================================================# 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 ALLVIEW ON 1VIEW TOPSELVIEW 1#Design File Settings listed by Category order:AA=0LOCK ANGLE OFFAS=1XS=1YS=1ZS=1LOCK SCALE OFFvba execute ActiveSettings.AngleFormat = msdFormatDD_DDDDvba execute ActiveSettings.AngleAccuracy = msdAngleAccuracy8LOCK AXIS OFFSET HILITE YELLOWSET XOR WHITELV=0CO=BYLEVELLC=BYLEVELWT=BYLEVELACTIVE CLASS PRIMARYACTIVE LINESTYLESCALE 1LOCK FENCE INSIDELOCK GRID OFFSET GRID OFFSELVIEW 1LOCK ISOMETRIC OFFLOCK LEVEL OFFLOCK GGROUP OFFLOCK ACS OFFLOCK TEXTNODE OFFLOCK ASSOCIATION ONLOCK SNAP KEYPOINTKY=2VIEW ON 1vba execute ActiveSettings.CoordinateFormat = MUSUSET UNITS Feet Inches#Master Unit Label: must be changed/set manually#Sub Unit Label: must be changed/set manuallyvba 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 = msdAccuracyE8vba execute ActiveModelReference.UORsPerStorageUnit = 96000#Resolution per <unit> is Read Only and must be changed/set manually#Next line is Save SettingsFILEDESIGN
#==================================================== # 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