[Ojster]

Всем привет!
По работе мне постоянно приходится проводить одну и ту же процедуру:
открыть файл -> сохранить как -> выбрать папку для сохранения (адрес меняется раз в год) -> внедрить все внешние ссылки (использую макрос на LISP) -> закрыть сохраненный файл

Проблема в количестве файлов и длинном пути к архивной папке (да, у нас так организован архив версий чертежей..)

Возможно ли автоматизировать этот процесс?

Как я себе это представляю:
Вариант 1 (в идеале) - мы запускаем макрос - появляется окошко для выбора файлов, в котором мы выделяем нужные нам файлы (либо, как вариант, указываем папку с исходными файлами) и после нажатия кнопки OK, копии выделенных файлов сохраняются в заранее заданную папку с теми же именами, но с внедренными внешними ссылками.
Вариант 2 (тоже норм) - мы открываем каждый файл по-отдельности и при запуске макроса этот файл "сохраняется как" в заранее указанную папку, после чего внедряются все внешние ссылки

Прошу помочь, кто в этом шарит!

P.S. Сечас для внедрения всех внешних ссылок использую такой LISP:

Код:

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

 (defun C:BINDALL ()
  (vl-load-com)
  (vlax-for i (vla-get-blocks
                (vla-get-activedocument (vlax-get-acad-object))
              ) ;_ end of vla-get-blocks
    (if (equal (vla-get-isxref i) :vlax-true)
      (vl-catch-all-apply 'vla-bind (list i :vlax-false))
    ) ;_ end of if
  ) ;_ end of vlax-for
  (princ)
) ;_ end

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

А обычного _.etransmit недостаточно?

[Ojster]

Офигеть..! Круто! Спасибо огромное!!!