[ASLYS]

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

Код:

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

(defun c:change-xpath( / file-act Doc-actual L-xref path-new vla-Xref-act)
 (setq file-act(getfiled "Select the dwg" "" "dwg" 0))
 (setq Doc-actual (vla-open(vla-get-documents(vlax-get-acad-object)) file-act))
 ;задатет новый путь
 (setq path-new "c:\\")
 ;ищет Xref и задает новый путь
 (setq L-xref nil) 
 (vlax-for vla-Xref-act(vla-get-blocks Doc-actual)
  (if(=(vla-get-IsXRef vla-Xref-act):vlax-true)
   (setq L-xref(cons vla-Xref-act L-xref))
  )
 )
 ;меняет путь  ;(setq vla-xref-act(car L-xref))
 (if L-xref
  (foreach vla-xref-act L-xref
   (vla-put-path vla-xref-act (strcat path-new (vl-filename-base(vla-get-path vla-xref-act))".dwg")) 
  )
 )
 ;сохранить и закрыть
 [b](VLA-close Doc-actual :vlax-true file-act)[/b] 
(vl-catch-all-apply '(lambda()(vlax-release-object Doc-actual))) (gc)
)

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

Посмотри код Alaspher'a : http://uniip.ru/lib/download/files/lisp/PL_XRefChgr(0.91).zip

[PL]

Есть стандартные средства - Reference Manager (AdRefMan.exe) в папке C:\Program Files\AutoCAD 2004 например

[VVA]

И здесь посмотри
http://forum.dwg.ru/showthread.php?t=9117

[ASLYS]

VVA, я как раз пользуюсь MIP_CHPATH. Премного благодарен!
мне сейчас понапобилось его немного "апгрейдить"- изменить пути сразу нескольких чертежей или целой папки, и др.
PL, честно говоря никогда не обращал внимания на AdRefMan.exe, спасибо за подсказку, в понедельник попробую

[Кочетков Андрей]

Из почти стандартных средств есть еще Тулпак.
Группа меню XREF
Там есть необходимая операция.

[Alxd]

утилитка для изменения путей внешних ссылок без открытия акада в файлах dwg есть? желательно легко управляемые из COM или .NET, на крайняк - bat.