Macro microstation

[fendiik]

Hi, I want to write a macro for microstation. I'd like to automatically attach reference file named same as main design file but form different location.

Sample script file below:

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

' Start a command
MbeSendCommand "MDL KEYIN REF DIALOG REFERENCE"

MbeSendCommand "REFERENCE ATTACH "

' When a command brings up a modal dialog,
' a later statement must close the dialog,
' or the MbeState.modalDialogByUser property
' should be set to 1 so that the user must close
' the dialog when the macro is executed.
' Also, you may not use the debugger "Step"
' commands while a modal dialog is displayed.

' Opened modal dialog "Preview Reference"

MbeSendCommand "MDL COMMAND MGDSHOOK,fileList_setFilterCmd *.dgn"

MbeSendCommand "MDL COMMAND MGDSHOOK,fileList_setDirectoryCmd d:\lpis\test4\"

MbeSendCommand "MDL COMMAND MGDSHOOK,fileList_setFileNameCmd filename.dgn"

' Closed modal dialog "Preview Reference"

' Following comment is the command to close a modal dialog
' MbeSendCommand "MBE1 CLOSEMODAL OK"

MbeSendCommand "MDL KEYIN REF DIALOG REFERENCE ATTACH"

' Opened modal dialog "Attach Reference File"

' Closed modal dialog "Attach Reference File"
' MbeSendCommand "MBE1 CLOSEMODAL OK"
End Sub