Carl Kastner's Activities

V8i View Attributes Settings Macro for 2D Design Files

Carl Kastner — Sun, 11 Nov 2018 21:18:02 GMT

This macro will change the View Attributes settings for a 2D design file.
Copy and paste into your text editor, modify as needed.

'====================================================
'   Created by Carl Kastner
'   20180913
'   MicroStation V8i SS4 | Win 7
'====================================================

' Turns off/on (False/True) attributes on the View Attributes dialog.

Sub main
Dim startPoint As MbePoint
Dim point As MbePoint, point2 As MbePoint

' Send a keyin that can be a command string
MbeSendKeyin "MDL KEYIN BENTLEY.VIEWATTRIBUTESDIALOG,VAD VIEWATTRIBUTESDIALOG SETATTRIBUTE 0 ACSTriad True"

MbeSendKeyin "MDL KEYIN BENTLEY.VIEWATTRIBUTESDIALOG,VAD VIEWATTRIBUTESDIALOG SETATTRIBUTE 0 Background False"

MbeSendKeyin "MDL KEYIN BENTLEY.VIEWATTRIBUTESDIALOG,VAD VIEWATTRIBUTESDIALOG SETATTRIBUTE 0 BoundaryDisplay False"

MbeSendKeyin "MDL KEYIN BENTLEY.VIEWATTRIBUTESDIALOG,VAD VIEWATTRIBUTESDIALOG SETATTRIBUTE 0 ClipVolume True"

MbeSendKeyin "MDL KEYIN BENTLEY.VIEWATTRIBUTESDIALOG,VAD VIEWATTRIBUTESDIALOG SETATTRIBUTE 0 Constructions True"

MbeSendKeyin "MDL KEYIN BENTLEY.VIEWATTRIBUTESDIALOG,VAD VIEWATTRIBUTESDIALOG SETATTRIBUTE 0 DefaultLighting False"

MbeSendKeyin "MDL KEYIN BENTLEY.VIEWATTRIBUTESDIALOG,VAD VIEWATTRIBUTESDIALOG SETATTRIBUTE 0 Dimensions True"

MbeSendKeyin "MDL KEYIN BENTLEY.VIEWATTRIBUTESDIALOG,VAD VIEWATTRIBUTESDIALOG SETATTRIBUTE 0 DataFields True"

MbeSendKeyin "MDL KEYIN BENTLEY.VIEWATTRIBUTESDIALOG,VAD VIEWATTRIBUTESDIALOG SETATTRIBUTE 0 Displayset False"

MbeSendKeyin "MDL KEYIN BENTLEY.VIEWATTRIBUTESDIALOG,VAD VIEWATTRIBUTESDIALOG SETATTRIBUTE 0 FastCells False"

MbeSendKeyin "MDL KEYIN BENTLEY.VIEWATTRIBUTESDIALOG,VAD VIEWATTRIBUTESDIALOG SETATTRIBUTE 0 Fill True"

MbeSendKeyin "MDL KEYIN BENTLEY.VIEWATTRIBUTESDIALOG,VAD VIEWATTRIBUTESDIALOG SETATTRIBUTE 0 Grid False"

MbeSendKeyin "MDL KEYIN BENTLEY.VIEWATTRIBUTESDIALOG,VAD VIEWATTRIBUTESDIALOG SETATTRIBUTE 0 LevelOverrides False"

MbeSendKeyin "MDL KEYIN BENTLEY.VIEWATTRIBUTESDIALOG,VAD VIEWATTRIBUTESDIALOG SETATTRIBUTE 0 LinesStyles True"

MbeSendKeyin "MDL KEYIN BENTLEY.VIEWATTRIBUTESDIALOG,VAD VIEWATTRIBUTESDIALOG SETATTRIBUTE 0 LineWeights True"

MbeSendKeyin "MDL KEYIN BENTLEY.VIEWATTRIBUTESDIALOG,VAD VIEWATTRIBUTESDIALOG SETHUDMARKERVISIBILITY ON 0 ""\"""

MbeSendKeyin "MDL KEYIN BENTLEY.VIEWATTRIBUTESDIALOG,VAD VIEWATTRIBUTESDIALOG SETATTRIBUTE 0 Patterns True"

MbeSendKeyin "MDL KEYIN BENTLEY.VIEWATTRIBUTESDIALOG,VAD VIEWATTRIBUTESDIALOG SETATTRIBUTE 0 Tags True"

MbeSendKeyin "MDL KEYIN BENTLEY.VIEWATTRIBUTESDIALOG,VAD VIEWATTRIBUTESDIALOG SETATTRIBUTE 0 Text True"

MbeSendKeyin "MDL KEYIN BENTLEY.VIEWATTRIBUTESDIALOG,VAD VIEWATTRIBUTESDIALOG SETATTRIBUTE 0 TextNodes False"

MbeSendKeyin "MDL KEYIN BENTLEY.VIEWATTRIBUTESDIALOG,VAD VIEWATTRIBUTESDIALOG SETATTRIBUTE 0 Transparency True"
End Sub

Discussion Starter I

Sat, 17 Nov 2018 15:48:12 GMT

Start a discussion in a forum that receives 5 replies.

V8i Design File Settings by Category: List of Keyins and VBA Strings for 2D Design Files

Carl Kastner — Sun, 11 Nov 2018 20:43:42 GMT

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 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

communities.bentley.com/.../Design-File-Settings_5F00_2D.txt