[+Alex+]

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

[+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
)