Работа со скриптами

[Алексей Федоров]

Доброго времени суток!

Написал программу, открывающую и закрывающую DWG-файлы и выполняющие с каждым файлом определенные действия. Открытие-закрытие DWG-файлов выполняю скриптом. После окончания перебора всех файлов нужно запустить функцию. Почему-то выполнение функции происходит перед выполнением скрипта, хотя в программе она стоит после.

Код - Auto/Visual Lisp [Выбрать]

1. (setq fo (open (strcat path_ritm_sudno "\\tmp\\myscript.scr") "w"))  
2. (while (< i le_spis_file)
3. (write-line "_.OPEN" fo)
4. (write-line (strcat ORDER_DIR "DWG\\" (nth i spis_file)) fo)
5. (write-line "(np_l \"fa_stat_f_l.vlx\")" fo)  
6. (write-line "(one_pos_stat)" fo)
7. (write-line "_.SAVE" fo)
8. (write-line (strcat ORDER_DIR "DWG\\" (nth i spis_file)) fo)
9. (write-line "_.CLOSE" fo)
10. (setq i (+ i 1))
11. )  
12. (write-line "(np_l \"fa_stat_f_l.vlx\")" fo)  
13. (write-line "(fa_svod_f_l)" fo)
14. (close fo)
15.  
16. (setvar "SDI" 0)
17. (command "_.delay" 1000)
18. (command "_.SCRIPT" (strcat path_ritm_sudno "\\tmp\\myscript.scr"))
19. (vl-file-delete (strcat path_ritm_sudno "\\tmp\\myscript.scr"))
20. (fa_svod_f_l)

Подскажите почему так происходит и что мне сделать, чтоб функция (fa_svod_f_l) выполнялась после скрипта?

[Алексей Кулик]

Ничего не понял. Что ты собираешься делать с открытыми документами? Это самый главный вопрос.
Вопрос номер два: можно ли те же вещи сделать в консольном AutoCAD? Если да, то почему не делается в нем?
Скрипт, конечно, вещь хорошая - но я бы поискал альтернативные решения.

[Алексей Федоров]

Алексей, с каждого открытого документа я считываю уникальные значения атрибутов блока. Мне нужно перебрать все DWG-файлы папки и считать с каждого определенную информацию. Насколько я знаю в Лиспе открывать DWG-файлы можно только с помощью скриптов.

[Алексей Кулик]

Ай-яй-яй, неправда ваша А ObjectDBX на что? Открываем файл, считываем содержимое блока пространства модели и анализируем его как угодно. Другой момент, если во вхождениях блоков используются поля - тогда ситуация становится значительно более печальной.

[Алексей Кулик]

В крайнем случае есть другой вариант: вставить файл как внешнюю ссылку, пройтись по нему как по обычному блоку, выгрузить ссылку. И так далее, пока список файлов не кончится

[Алексей Федоров]

Понимаете, Алексей, программу я уже практически написал, и с использованием скриптов. Просто она с состоит из двух частей: первая часть - перебор файлов и запись нужных мне данных в блокнотовский файл;вторая - работа с получившимся блокнотовским файлом. Если запускать эти части программы последовательно порознь, то все получается как надо. Просто хотелось бы объединить эти две программы в одну.

[Алексей Кулик]

Ну, меня один ))
Я бы все же через ObjectDBX, наверное, шел - проще и дешевле. И ошибки отловить можно запросто. И сообщений о ненайденных шрифтах / ссылках / типах линий не появляется (но все это будет зависеть от состава блоков). Сейчас из описания я понял только то, что я ничего не понял...

[Александр Ривилис]

Алексей Федоров
Зачем SDI устанавливаешь в 0? Для такой обработки скорее SDI следовало устанавливать в 1. _CLOSE придётся убрать.

[Александр Ривилис]

Алексей, с каждого открытого документа я считываю уникальные значения атрибутов блока. Мне нужно перебрать все DWG-файлы папки и считать с каждого определенную информацию.

Если только считываешь информацию, то зачем файл сохранять?

[Алексей Кулик]

Я боюсь, что во вхождениях блоков (в атрибутах) участвуют поля, которые следует пересчитывать.

[Александр Ривилис]

Я боюсь, что во вхождениях блоков (в атрибутах) участвуют поля, которые следует пересчитывать.

И? Для этого чертеж всё-равно не обязательно сохранять.

[Алексей Кулик]

Логично С другой стороны, кто его знает - что там на событие сохранения "повешено"

[Алексей Федоров]

Алексей Федоров
Зачем SDI устанавливаешь в 0? Для такой обработки скорее SDI следовало устанавливать в 1. _CLOSE придётся убрать.

Александр, если SDI равен 1, то задает вопрос "Really want to discard all changes to drawing?" и при любом ответе работа программы заканчивается.

[Алексей Кулик]

Алексей Федоров, приведи код своих функций. Я почему-то думаю, что можно обойтись и другими методами, без скриптов и проч. Ну или действительно задействовать консольный ACAD...

[Александр Ривилис]

Александр, если SDI равен 1, то задает вопрос "Really want to discard all changes to drawing?" и при любом ответе работа программы заканчивается.

Если у тебя в коде _SAVE, то откуда этот запрос?