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

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