Евгений Стахов
Зарегистрирован: 08.02.2007 Сообщения: 4 Откуда: г. Киев
|
Добавлено: Вт Ноя 03, 2009 10:23 am Заголовок сообщения: |
|
|
кстати вот фрагмент этой програмки, может это поможет!
*********************************************************
'Re-sorts the levels in dgn
Sub main
Dim fileName As String
Dim nl As string
stat = MbeFileOpen (fileName, "*.srt", "*.srt", "MS_MACRO", "fff")
if stat = MBE_Success then
open filename for Input Access Read as 1
else
MbeSendCommand "echo"
Exit sub
end if
'-----------------------------------------------------------------------------
While not Eof(1)
Line Input #1, nl
MbeWriteMessage "Processing level "+ nl
Select Case val(nl)
Case 1
MbeSendCommand "MDL SILENTLOAD SELECTBY dialog"
MbeSetAppVariable "SELECTBY", "selectorGlobals.level[0]", 1&
MbeSetAppVariable "SELECTBY", "selectorGlobals.level[1]", 0&
MbeSetAppVariable "SELECTBY", "selectorGlobals.level[2]", 0&
MbeSetAppVariable "SELECTBY", "selectorGlobals.level[3]", 0&
MbeSendCommand "SELECTBY EXECUTE "
MbeSendKeyin "wset add"
MbeSendKeyin "wset drop"
MbeSendCommand "MBE1 CLOSEMODAL CANCEL"
MbeSendCommand "MDL UNLOAD SELECTBY"
Case 2
MbeSendCommand "MDL SILENTLOAD SELECTBY dialog"
MbeSetAppVariable "SELECTBY", "selectorGlobals.level[0]", 2&
MbeSetAppVariable "SELECTBY", "selectorGlobals.level[1]", 0&
MbeSetAppVariable "SELECTBY", "selectorGlobals.level[2]", 0&
MbeSetAppVariable "SELECTBY", "selectorGlobals.level[3]", 0&
MbeSendCommand "SELECTBY EXECUTE "
MbeSendKeyin "wset add"
MbeSendKeyin "wset drop"
MbeSendCommand "MBE1 CLOSEMODAL CANCEL"
MbeSendCommand "MDL UNLOAD SELECTBY"
Case 3
MbeSendCommand "MDL SILENTLOAD SELECTBY dialog"
MbeSetAppVariable "SELECTBY", "selectorGlobals.level[0]", 4&
MbeSetAppVariable "SELECTBY", "selectorGlobals.level[1]", 0&
MbeSetAppVariable "SELECTBY", "selectorGlobals.level[2]", 0&
MbeSetAppVariable "SELECTBY", "selectorGlobals.level[3]", 0&
MbeSendCommand "SELECTBY EXECUTE "
MbeSendKeyin "wset add"
MbeSendKeyin "wset drop"
MbeSendCommand "MBE1 CLOSEMODAL CANCEL"
MbeSendCommand "MDL UNLOAD SELECTBY"
Case 4
MbeSendCommand "MDL SILENTLOAD SELECTBY dialog"
MbeSetAppVariable "SELECTBY", "selectorGlobals.level[0]", 8&
MbeSetAppVariable "SELECTBY", "selectorGlobals.level[1]", 0&
MbeSetAppVariable "SELECTBY", "selectorGlobals.level[2]", 0&
MbeSetAppVariable "SELECTBY", "selectorGlobals.level[3]", 0&
MbeSendCommand "SELECTBY EXECUTE "
MbeSendKeyin "wset add"
MbeSendKeyin "wset drop"
MbeSendCommand "MBE1 CLOSEMODAL CANCEL"
MbeSendCommand "MDL UNLOAD SELECTBY" |
|