[+Alex+]

Здравствуйте!
Есть такая задача:
В Автокад загружается короткая программа (сценарий), после завершения прописанных операций файл этой программы нужно удалить.
Но пока выполняется эта программа, удалить файл нельзя (он занят).
Можно ли как-то удалить его после, притом что команду на удаление прописать внутри самого файла?

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

Ну а почему бы и нет? Попробуй Код сохранить как c:\test.lsp

Код:

[Выделить все]

(defun test ()
  (alert "Программа загружена!")
  (if (findfile "c:\\test.lsp")
    (progn
      (alert "Файл найден")
      (vl-file-delete "c:\\test.lsp")
      ) ;_ end of progn
    (alert "Файл не существует")
    ) ;_ end of if
  ) ;_ end of defun

(test)

Загрузить в AutoCAD и потом посмотреть, существует ли файл test.lsp.

[+Alex+]

Таким способом файл не удалить. Пока выполняется программа этого файла. Файл будет удален только если указание на выполнение программы этого файла (в данном случае "(test)") убрать из файла, а это нежелательно.

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

+Alex+, ты сохрани файл, потом загрузи его и посмотри, что получится.

[+Alex+]

Что я и сделал еще раз...
(alert "Программа загружена!") -> (alert "Файл найден")
Файл удаляется только после второго вызова программы. А если второго вызова не будет вообще?

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

Значит, такое решение "в лоб" невозможно. Звиняй.

[+Alex+]

...Звиняй.

Да что уж... Вот я сам ничего не могу придумать.
Разве что реализовал сторонний способ, который запускает цикличный процесс удаления (как только это будет возможно), но это выглядит слишком коряво, поэтому и спрашиваю.

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

Я не могу понять - а зачем удалять лисп-файл? Вся последовательность действий какова?

[+Alex+]

В файле содержатся списки будущих примитивов и указания по их созданию. Они актуальны только на данный момент времени. Этот файл генерируется автоматически и он не является самостоятельным приложением и не может понадобиться впредь.

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

Эээээ.... А зачем его вообще генерировать? Не проще ли будет создавать список в памяти и с ним работать?

[+Alex+]

Не все так просто. Нет полноценного доступа к объектной модели Автокада.

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

Как это "нет"?

[+Alex+]

А вот так. Доступ к приложению имеется (только чтение и установка параметров true-false и передача строк), а вот создание вариантов - никак.
Может быть и возможно список в памяти...интересно, но как его создать? Есть ли метод организующий этот буфер?

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

Погнали с самого начала. Что за приложение? Стороннее? Или лисп, запускаемый внутри AutoCAD'a? Кто автор приложения?

[+Alex+]

Приложение - Google SketchUp
Мое приложение реализует быстрый экспорт.

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

Оба-на... Ни себе фига, что же ты им делаешь (если не секрет, конечно)?

[+Alex+]

Не секрет, разрабатываю уже почти полгода комплекс утилит для организации проектирования в SketchUp, но проектирование неразрывно связано с Автокадом, поэтому необходима быстрая передача некоторых данных из приложения-в приложение. Пока это реализовывается посредством временного файла. Например операция "переброса" проекции из файла SketchUp ~300000элементов (тяжелая сцена) в текущий документ Автокада занимает менее 3 секунд! Тем более, что стандартные средства не обеспечивают передачи атрибутов, слоев и многого другого.

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

SketchUp'ом не занимался, поэтому идея на уровне "терять уже нечего": имя файла для обмена предопределить и все время его перезаписывать. Ну болтается и пускай болтается на винте. Или такой номер не прокатит?

[+Alex+]

Такой номер катит так и работает хотелось узнать можно ли аккуратнее.

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

Тогда вариант №2: из "родительского приложения" запустить обработку этого файла. Именно из "родителя". После окончания обработки файл сносить.
А еще лучше (если там в качестве программирования нечто типа VB(A)) попробовать по аналогии с

Код:

[Выделить все]

Dim oACAD As Object
  Set oACAD = GetObject(,"AutoCAD.Application")
Dun oDoc As Object
  Set oDoc = oACAD.ActiveDocument
  oDoc.ModelSpace.AddLine<...>

Код пишу "насухую" и для варианта позднего связывания. Если работать с ранним связыванием (то есть внедрить все необходимые библиотеки), то методы и свойства каждого примитива будут уже более очевидны.

[+Alex+]

Да, нечто подобное. Только вариант не создать для AddLine, или я незнаю как, документации почти нет, а методом тыка не находится.
Файл сейчас удаляется методами Sketchup, После завершения сеанса подключения к Автокаду, но способ несколько некрасивый, возможны ошибки, например, если Автокад не отвечает(юзер задумался, что делать дальше) и файл нельзя удалить. Это тоже решаемо, просто мне хотелось узнать как проще.

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

По поводу AddLine и прочего - см.справку самого AutoCAD'a. Там, правда, все время идет обращение к ThisDrawing, но это не проблема

[+Alex+]

Я знаю,
...но столько нюансов, буду копать дальше.

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

Да там из нюансов только одно - OCS (системы координат объектов). С ними могут быть приличные проблемы, а так-то все просто достаточно...

[+Alex+]

Самая сложность обеспечение быстроты преобразований. Далеко не все возможно получить сразу, приходится пересчитывать всю модель, а это лишнее время.
Те же координаты, кстати. По- разному ухищряясь свел вычисления к минимуму.
Вот где сложности!

[Sleekka]

Код:

[Выделить все]

(defun test ()
  (alert "Программа загружена!")
  (if (findfile "c:\\test.lsp")
    (progn
      (alert "Файл найден")
      (vl-file-delete "c:\\test.lsp")
      ) ;_ end of progn
    (alert "Файл не существует")
    ) ;_ end of if
  ) ;_ end of defun

(vlax-invoke-method (vla-get-activedocument (vlax-get-acad-object)) 'sendcommand "(test) ")

И еще раз сначала - вот так у меня работает.

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

У меня нет SketchUp'a, так что мало чем помочь могу

[Sazanoff_e]

Ребят, зажигалка есть? курить очень хочется...
Стока словов умных, шо пипец...

[Makswell]

Sleekka, у меня не работает...

[CB]

>+Alex+
Можешь привести пример файла, который нужно удалять?

[+Alex+]

>+Alex+ Можешь привести пример файла, который нужно удалять?

это обыкновенный lisp файл- программа.

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

.lsp или .vlx?

[+Alex+]

Это Lsp файл содержащий как правило 1-2 временных функций.

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

Большой файл (в Кб)?

[+Alex+]

Размер разный, от 10 кб и выше. Более 300 кб - это редкость. А вообще размер зависит от количества перебрасываемой информации.

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

Каким образом этот lsp-файл загружается в AutoCAD и затем производится попытка удаления?

[Sleekka]

Sleekka, у меня не работает...

Плохо, но главное чтобы у автора работало.
Ну может быть так. если голый 2008 кад то он сразу (vl-load-com) не делает.

Код:

[Выделить все]

(defun test ()
(vl-load-com)
  (alert "Программа загружена!")
  (if (findfile "c:\\test.lsp")
    (progn
      (alert "Файл найден")
      (vl-file-delete "c:\\test.lsp")
      ) ;_ end of progn
    (alert "Файл не существует")
    ) ;_ end of if
  ) ;_ end of defun

(vlax-invoke-method (vla-get-activedocument (vlax-get-acad-object)) 'sendcommand "(test) ")

[+Alex+]

Sendcommand.
А удаляется, как только освободится, sketchup-ом

[+Alex+]

Да, собственно говоря, все работает и так. А вот, что не находится более красивый способжалко.

[CB]

>+Alex+
Я не зря задавал вопрос про временный lsp-файл, т.к. не понятно одно - это функция или набор строк кода? К примеру на диске С существует файл test.lst такого содержания:

Код:

[Выделить все]

;;;здесь идет выполняемый код, например
(setq a 10)
(setq b 20)
;;;здесь мы пытаемся уничтожить файл, но увы...
(if (findfile "c:\\test.lsp")
  (progn
     (if (vl-file-delete "c:\\test.lsp")
      (alert "Файл уничтожен!")
      (alert "Файл занят!")
    ) ;_ end of if
  ) ;_ end of progn
  (alert "Файл не существует")
) ;_ end of if

Загружаем файл : (load "c:\\test.lsp") и видим, что он естественно занят и не удаляется. Но, неужели программа, которая умеет создавать lsp-файл, умеет его загружать, не может сделать набор кода - функцией, т.е. добавить в начало (defun $temp (), а в конец закрывающую скобку? и после загрузки файла (load "c:\\test.lsp") выполнить эту функцию: ($temp).

Код:

[Выделить все]

(defun $temp ()
;;;здесь идет выполняемый код, например
(setq a 10)
(setq b 20)
;;;здесь мы пытаемся уничтожить файл
 (if (findfile "c:\\test.lsp")
  (progn
      (if (vl-file-delete "c:\\test.lsp")
      (alert "Файл уничтожен!")
      (alert "Файл занят!")
    ) ;_ end of if
  ) ;_ end of progn
  (alert "Файл не существует")
) ;_ end of if
)

[+Alex+]

Это и есть не список кода, а одна общая функция, содержащая 1-3 локальных.
После этой функции идет указание на ее выполнение, затем обнуление ее же.

[CB]

Так вот - указание на ее выполнение должно быть в функции, которая загружает lsp-файл...

[+Alex+]

Функция загружается в Автокад из sketchup-a, используется sendcommand, и если вызов ее прописать (в sendcommand далее) проблем нет, просто не хочется добавлять мусор в командную строку. Сначала именно так и было.

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

Ну так поставь временно cmdecho в 0, menuecho, по-моему, в 3 и nomutt в 1, передавай в ком.строку чего хочешь. Потом восстанови старые значения системных переменных...

[Sleekka]

Загружаем файл : (load "c:\\test.lsp") и видим, что он естественно занят и не удаляется. Но, неужели программа, которая умеет создавать lsp-файл, умеет его загружать, не может сделать набор кода - функцией, т.е. добавить в начало (defun $temp (), а в конец закрывающую скобку? и после загрузки файла (load "c:\\test.lsp") выполнить эту функцию: ($temp).

А вот это действительно вопрос интересный, можно ли в лиспе реализовать прочтение txt файла и все содержимое дефинировать как фукцию?

[+Alex+]

Кулик Алексей aka kpblc
Спасибо, за наводку на menuecho и nomutt! То, что надо!

Сообщение от Sleekka А вот это действительно вопрос интересный, можно ли в лиспе реализовать прочтение txt файла и все содержимое дефинировать как фукцию?

Очень интересно!

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

Курите (read) и (eval).

[Sleekka]

понятно что в eval вся сила мира, но там жо нада список подготовить, пока неуверен но подумаю, в любом случае спасибо за наводку.
НЕУЖЕЛИ ЭТО РЕАЛЬНО?

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

Кха, а какая (принципиальная) разница между списком и описанием функции?

[Елпанов Евгений]

Сообщение от Sleekka А вот это действительно вопрос интересный, можно ли в лиспе реализовать прочтение txt файла и все содержимое дефинировать как фукцию?

Можно, но еще проще, сменить расширение и использовать load
а вообще, я использовал добавление в начало файла "'(" а в конец ")" потом, все это read потом осталось только в цикле загрузить - eval...

ps. Самое главное - лисп поддерживает рекурсивную загрузку через load. Т.е. нет проблем, чтоб программа загружала другую под тем же именем! Делайте выводы...

[Sleekka]

Спасибо попробую.