Список форумов Конференция САПР Bentley MicroStation Конференция САПР Bentley MicroStation
www.ustation.ru
 
 FAQFAQ   ПоискПоиск   ПользователиПользователи   ГруппыГруппы   РегистрацияРегистрация 
 ПрофильПрофиль   Войти и проверить личные сообщенияВойти и проверить личные сообщения   ВходВход 

Помогите отсортировать слои в MS XM

 
Начать новую тему   Ответить на тему    Список форумов Конференция САПР Bentley MicroStation -> Работа в MicroStation
Предыдущая тема :: Следующая тема  
Автор Сообщение
Евгений Стахов



Зарегистрирован: 08.02.2007
Сообщения: 4
Откуда: г. Киев

СообщениеДобавлено: Вт Ноя 03, 2009 10:18 am    Заголовок сообщения: Помогите отсортировать слои в MS XM Ответить с цитатой

Добрый день! Ребята помогите, в MS-J у меня есть программка (.ba) которая сортирует слои (перекладывает) их в указанном порядке (порядок указывается в файле .srt).
Может кто-то сталкивался с этим. Нужно тоже делать в MS XM.
Спасибо.
Crying or Very sad
Вернуться к началу
Посмотреть профиль Отправить личное сообщение Отправить e-mail
Евгений Стахов



Зарегистрирован: 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"
Вернуться к началу
Посмотреть профиль Отправить личное сообщение Отправить e-mail
Leonid
давно здесь сидим


Зарегистрирован: 28.01.2006
Сообщения: 598
Откуда: С.-Петербург

СообщениеДобавлено: Вт Ноя 03, 2009 6:34 pm    Заголовок сообщения: Ответить с цитатой

Вопросы из разряда "напишите мне программу" обычно на форумах натыкаюся на непонимание...
Вернуться к началу
Посмотреть профиль Отправить личное сообщение Отправить e-mail
Евгений Стахов



Зарегистрирован: 08.02.2007
Сообщения: 4
Откуда: г. Киев

СообщениеДобавлено: Пт Ноя 20, 2009 10:23 am    Заголовок сообщения: Ответить с цитатой

БОЛЬШОЕ спасибо!
Вернуться к началу
Посмотреть профиль Отправить личное сообщение Отправить e-mail
Показать сообщения:   
Начать новую тему   Ответить на тему    Список форумов Конференция САПР Bentley MicroStation -> Работа в MicroStation Часовой пояс: GMT + 3
Страница 1 из 1

 
Перейти:  
Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете голосовать в опросах


Powered by phpBB © 2001, 2005 phpBB Group