Александр Александров
Администратор
Всего сообщений: 660
Дата регистрации: 31.05.2008
|
Создано:
15.04.2013 18:59:15
|
 |
| Цитата |
|---|
SET Rastr = CreateObject("astra.rastr?")
PathToRastrScript="C:\LOO?P\work\import.rbs"
Res = Rastr.ExecMacroPath( PathToRastrScript,"")
так должно быть? Не запускается макрос...
|
Что говорит ?
Из системы запускается ?
Система 32/64 ?
| Цитата |
|---|
Еще вопрос: хочу опрос модуля гет_тм сделать из макроса растра с вводом времени с клавиатуры. Допустим
vrem=Rastr.SendCommandMai?n(8,"Введите время в формате ЧЧ:ММ:СС:ДД:ММ:ГГ","",0)
как правильно ввести эту переменную в запрос к гет_тм?
objShell.Run ("C:\LOOP\TM\get_tm\Get_t?m.exe C:\LOOP\TMP\ 13:00:00:15:04:13 /OIK=atata /dump")
|
Есть уже штатная переменная дата время с панели
Растра в формате Космоса
<PAR VAL="[KDATE]" />
У Вас получится, что то похожее на
<TASK NAME = "GET_TI_RDU" ENABLE="1" PATH = "D:\КОСМОС1\get_tm\Get_TM.exe" >
<PAR VAL = "C:\LOOP\TMP" QUOTS="NO" />
<PAR VAL = "[KDATE]" QUOTS="NO" />
<OK VAL = "/Белгородское РДУ СК7\ckMain\" QUOTS="NO" />
<PAR VAL="/dump:1" QUOTS="NO" />
<PAR VAL="/debug_level:7" QUOTS="NO" />
<OK VAL = "0" />
</TASK>
|
|
|
Василий Пантелеев
Посетитель
Всего сообщений: 41
Дата регистрации: 10.10.2007
|
Создано:
15.04.2013 19:22:57
|
|
| Цитата |
|---|
<PAR VAL="[KDATE]" />
У Вас получится, что то похожее на
<TASK NAME = "GET_TI_RDU" ENABLE="1" PATH = "D:\КОСМОС1\get_tm\Get_TM.exe" >
<PAR VAL = "C:\LOOP\TMP" QUOTS="NO" />
<PAR VAL = "[KDATE]" QUOTS="NO" />
<OK VAL = "/Белгородское РДУ СК7\ckMain\" QUOTS="NO" />
<PAR VAL="/dump:1" QUOTS="NO" />
<PAR VAL="/debug_level:7" QUOTS="NO" />
<OK VAL = "0" />
</TASK>
|
это имеет смысл, только если заработает запуск макроса из
| Цитата |
|---|
Запуск макроса VBScript
- <TASK NAME="GET_TI_RND" ENABLE="0" PATH="%WINDIR%\system32\cscript.exe">
<PAR VAL="C:\LOOP\get_ti_rnd.vbs" />
<PAR VAL="\\B" />
<PAR VAL="\\U" />
<OK VAL="0" />
</TASK>
Запуск из VBScript макроса Растр ( PathToRastrScript )
SET Rastr = CreateObject("astra.rastr")
Res = Rastr.ExecMacroPath( PathToRastrScript, Parameters ) |
но он пока не работает...
| Цитата |
|---|
Что говорит ?
Из системы запускается ?
Система 32/64 ? |
Система 32. При прогонке хмл только на запуск .vbs ошибок не возвращает, пишет "завершено успешно, но макрос .rbs не отрабатывает.
макрос .vbs:
SET Rastr = CreateObject("astra.rastr")
Res = Rastr.ExecMacroPath( "C:\LOOP\work\import1.rbs","")
макрос import1.rbs, допустим:
Rastr.load RG_REPL,"","C:\LOOP\work\rg.rg2"
Rastr.load RG_REPL,"","C:\LOOP\work\anc.anc"
Rastr.load RG_REPL,"","C:\LOOP\work\grf.grf"
Rastr.load RG_REPL,"","C:\LOOP\work\sch.sch"
Rastr.load RG_REPL,"","C:\LOOP\work\sd.form"
|
|
|
Александр Александров
Администратор
Всего сообщений: 660
Дата регистрации: 31.05.2008
|
Создано:
15.04.2013 19:34:34
|
Все скорее всего все работает, просто Ком-Объект Растра в файле .vbs и заканчивает свое существование. Скорее всего нам придется сделать, какой-то тип задачи, исполняющий макрос, существующим Ком-объектом Растра внутри Растр3.
|
|
|
Василий Пантелеев
Посетитель
Всего сообщений: 41
Дата регистрации: 10.10.2007
|
Создано:
16.04.2013 10:42:35
|
| Цитата |
|---|
| Все скорее всего все работает, просто Ком-Объект Растра в файле .vbs и заканчивает свое существование. Скорее всего нам придется сделать, какой-то тип задачи, исполняющий макрос, существующим Ком-объектом Растра внутри Растр3. |
"Нам" это вам (разработчикам) или нам Вам и мне? =)
Если мы пропишем SET Rastr = CreateObject("astra.rastr") в файле макроса для растра (rbs) и попытаемся запустить его средствами cscript.exe через xml эффект, как мне кажется, получает тот же, что и запуск через vbs.
В objShell.Run не реально переменной задавать один из параметров?
|
|
|
Александр Александров
Администратор
Всего сообщений: 660
Дата регистрации: 31.05.2008
|
Создано:
16.04.2013 10:54:03
|
Разработчики добавят возможность передачи скрипта текущему объекту Растра.
objShell.Run
ХЕЛП
Run(<Command>,<WindowStyle>,<WaitOnReturn>)
видно, что переменные не передаются, в своем скрипте можно читать некий файл с параметрами.
|
|
|
Василий Пантелеев
Посетитель
Всего сообщений: 41
Дата регистрации: 10.10.2007
|
Создано:
16.04.2013 12:29:13
|
с objShell.Run все получилось, спасибо!
Александр, подскажите, есть ли возможность обратиться в макросе на Время ввода телеметрии ([kdate] в хмл)? Точнее получить в виде переменной?
|
|
|
Александр Александров
Администратор
Всего сообщений: 660
Дата регистрации: 31.05.2008
|
Создано:
16.04.2013 13:06:18
|
Вы можете передать [kdate] как параметр макроса vbs и получить его в макросе.
Set objArg = WScript.Arguments
if objArg.count = 0 then
MSGBOX "Не введен ключ командной строки", 16
Set objArg = nothing
WScript.Quit
end if
MSGBOX objArg(0)
Set objArg = nothing
|
|
|
Василий Пантелеев
Посетитель
Всего сообщений: 41
Дата регистрации: 10.10.2007
|
Создано:
16.04.2013 13:16:23
|
Я, наверное, неполно описал. Интересует переменная [kdate] во внутреннем макросе растра (rbs).
|
|
|
Александр Александров
Администратор
Всего сообщений: 660
Дата регистрации: 31.05.2008
|
Создано:
16.04.2013 13:46:37
|
ExecMacroPath - как раз крайним параметром и
передаются параметры через двое точее,
Res = Rastr.ExecMacroPath( PathToRastrScript,"")
пример
xz=2:xxz=3:
у Вас получается следующая схема,
Цикл
vbs+ [KDATE]
rbs + "d=[расшифровка КДАТЫ]:"
|
|
|
Василий Пантелеев
Посетитель
Всего сообщений: 41
Дата регистрации: 10.10.2007
|
Создано:
17.04.2013 12:39:13
|
Александр, есть ли возможность подключить WScript для использования во внутренних макросах растра?
Так же интересует возможность настройки выводного файла "ВРДОрекомендации.тхт". Хотелось бы для изменения анцапф видеть диспетчерское наименование тр-ра, а не только ветви начала и конца.
|
|
|
Александр Александров
Администратор
Всего сообщений: 660
Дата регистрации: 31.05.2008
|
Создано:
17.04.2013 13:17:19
|
WScript не получится, это хост для выполнения скриптов в Виндовс.
|
|
|
Максименко Дмитрий
Гость
|
Создано:
17.04.2013 13:31:09
|
Под диспетчерским наименованием имеется ввиду просто название линии поле Название(name) или именно поле Дисп.назв.(dname) ?
Настройка формата вывода не предусмотрена пользователем. Формат зашит в программу. Возможно добавим вывод названия в будущем или сделаем вывод настраиваемым, если есть еще пожелания предлагайте, попробуем учесть.
|
|
|
Василий Пантелеев
Посетитель
Всего сообщений: 41
Дата регистрации: 10.10.2007
|
Создано:
17.04.2013 13:56:22
|
Дмитрий, имеется ввиду dname. Хотелось бы иметь возможность настройки вывода, т.к. протокол недостаточно читабелен для пользователя.
Александр, подскажите пожалуйста, можно ли силами внутренних макросов очистить область в нижней части окна запуска макроса (аналог кнопки Очистить)?
Так же интересно вывести в это поле рекомендации ВРДО или просто отдельным окном. Я для этого хотел использовать wscript, но не вышло. Интересует возможность выполнения этого силами внутренних макросов Растра.
|
|
|
Александр Александров
Администратор
Всего сообщений: 660
Дата регистрации: 31.05.2008
|
Создано:
17.04.2013 14:35:55
|
Очистить лог из скрипта нельзя.
не понял про окно с рекомендациям ВРДО, не могли бы Вы поподробней все описать. Может какой пример на Экселе, желаемого вида.
|
|
|
Василий Пантелеев
Посетитель
Всего сообщений: 41
Дата регистрации: 10.10.2007
|
Создано:
17.04.2013 15:07:43
|
| Цитата |
|---|
| не понял про окно с рекомендациям ВРДО, не могли бы Вы поподробней все описать. Может какой пример на Экселе, желаемого вида. |
По-сути, речь идет о выдаче информации из файла ВРДОрекомендации.тхт в некое всплывающее окошко после выполнения цикла ВРДО, чтобы не рыться в протоколе.
|
|
|
Максименко Дмитрий
Гость
|
Создано:
17.04.2013 15:32:41
|
Существуют еще таблицы: открыть-ВРДО-узлы_Различия (Ветви_Различия) по этим таблицам формируются рекомендации. Можете по этим данным попробовать создать свое окно в скрипте с необходимым форматом вывода.
|
|
|
Василий Пантелеев
Посетитель
Всего сообщений: 41
Дата регистрации: 10.10.2007
|
Создано:
17.04.2013 15:44:25
|
Точно, забыл про них! Спасибо за совет!
|
|
|
Василий Пантелеев
Посетитель
Всего сообщений: 41
Дата регистрации: 10.10.2007
|
Создано:
17.04.2013 16:50:43
|
Господа, подскажите, при импорте оцененного режима из космоса, импортируется ли таблица Трансформаторы, конкретно интересует Х_тек (номер анцапфы), .
|
|
|
Максименко Дмитрий
Гость
|
Создано:
17.04.2013 17:15:44
|
Таблица трансформаторы импортируется , но конкретно X_тек нет. Это было связано с возможным несоответствием в космосе Ктр, и номера анцапфы, в растре Ктр автоматически выставится по номеру анцапфы если он есть, соответственно теоретически при импорте можно получить разные режимы . Однако как показывает практика это пожелание исходит от многих пользователей, поэтому в следующей версии растра+врдо (1.6) номер анцапфы будет импортироваться. Ответственность за соответствие н_анц и Ктр в Космосе ляжет на плечи пользователя.
|
|
|
Василий Пантелеев
Посетитель
Всего сообщений: 41
Дата регистрации: 10.10.2007
|
Создано:
17.04.2013 17:44:34
|
Если в растре анцапфы задаются импортированной из космоса таблицей Анцапфы_БД, номер анцапфы получаем из ТИ, то о каком несоответствии может идти речь? Мне кажется тут все достаточно прозрачно...
|
|
|
Василий Пантелеев
Посетитель
Всего сообщений: 41
Дата регистрации: 10.10.2007
|
Создано:
18.04.2013 11:33:42
|
Существует ли возможность запуска процедуры ВРДО силами внутренних макросов, как расчет режима Rastr.rgm??
|
|
|
Максименко Дмитрий
Гость
|
Создано:
18.04.2013 12:54:23
|
да
' аналог кнопки OPF
rastr.opf "" - запуск чистой оптимизации растра
'аналог кнопки ВРДО
SET CK = CreateObject("COM.CK")
CK.SetRastr Rastr
CK.Kosm_VRDO Rastr
'аналог кнопки ВРДО по срезу
SET CK = CreateObject("COM.CK")
CK.SetRastr Rastr
pathToBaseArh = "D:\Net\Kocmoc\Cycle.cnf"
pathToAstra_0 = "D:\Net\Kocmoc\ocenka\v_koc"
pathToShablVRDO = С:\projects\VRDO_distr\Тестирование\врдо.vrd"
CK.Cycle Rastr , pathToAstra_0 ,pathToBaseArh, pathToShablVRDO
|
|
|
Василий Пантелеев
Посетитель
Всего сообщений: 41
Дата регистрации: 10.10.2007
|
Создано:
18.04.2013 13:06:12
|
Дмитрий, спасибо!
|
|
|
Василий Пантелеев
Посетитель
Всего сообщений: 41
Дата регистрации: 10.10.2007
|
Создано:
23.04.2013 11:49:51
|
Добрый день! Господа, мягкие ограничения теперь отсутствуют в ПК? Конкретно интересуют ограничения по модулю напряжения. В документации они описываются в соответствующих разделах.
|
|
|
Максименко Дмитрий
Гость
|
Создано:
23.04.2013 12:00:59
|
Добрый! Присутствуют, файл должен быть загружен по шаблону врдо.vrd поля Us_min , Us_max , вероятно вы работаете с файлом по шаблону режим.rg2 там мягких ограничений нет. Или я неверно понял вопрос?
|
|
|
