[AVF83]

Здравствуйте! Всех с майскими праздниками!
Посмотрел на форуме, но не нашёл решения по внедрению внешней ссылки в чертёж (всех внешних ссылок) одной командой. Можно, конечно, вручную в каждом чертеже операцию провести, но их 500! Цель такая: освободить чертёж от всевозможных ссылок-связей и сделать его автономным (чтобы можно было "выдернуть" файл из пачки и он не потерял "вид"). Такое возможно осуществить?
Планирую использовать bat и scr:

FOR %%f in (..\*.dwg) do start /wait C:\"Program Files"\Autodesk\"AutoCAD 2012 - Russian"\acad.exe "%%f" /b dluse-1.scr

_DATALINKUPDATE _U _K _QSAVE _QUIT

Кстати, в первом случае (внедрить внешние ссылки) ответа найти не смог. А во втором (расчленение всех связей, блоков и пр.) вот что думаю:
Использую _ai_selall _explode в командной строке - всё работает! Но когда вставляю этот же набор команд в dluse-1.scr (между _K и _QSAVE ), то ничего не происходит! А точнее, после того, как чертёж открылся, после команды _EXPLODE в командной строке предлагается выбрать объекты и _QSAVE не является объектом. Т.е. связка _ai_selall _explode в сценарии не работает! Почему так происходит, кто-нибудь сталкивался?

[5hev]

Внедрение (в файле scr)

Код:

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

 (vlax-for i (vla-get-blocks (vla-get-ActiveDocument (vlax-get-acad-object)))
  (if (equal (vla-get-isxref i) :vlax-true)
    (vla-bind i :vlax-false)
  )
)

Далее уже сохранение и выход.

[AVF83]

Спасибо, попробовал!
В файле сценария добавил dluse-1.lsp таким образом (на время эксперимента всё лишнее удалил из сценария):

(load "dluse-1.lsp") _QSAVE

Однако, в командной строке пишет:

Команда: (load "dluse-1.lsp") ; ошибка: no function definition: VLAX-GET-ACAD-OBJECT Команда: _QSAVE

Что-то не работает.
Может быть архив выслать?

[5hev]

В начале файла с программкой должно стоять

Код:

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

 (vl-load-com)

Я не добавил, потому что у меня это в автозагрузке по умолчанию

[AVF83]

Огромное спасибо! Отлично сработало! Теперь так все файлы буду прогонять.

[Sart]

Добрый день. Подскажите как сделать лисп из кода в сообщении 2 для внедрения ссылок? Что то не получается, не дружу я с лиспом.

[VVA]

Sart,

Код:

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

 
(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 

[Sart]

Спасибо огромное