[posetitel]

Добрый день!
Подскажите, возможно ли в автокаде программно или в ручную заменить названия внедренных в чертеж файлов.
Т.е. есть, например, "чертеж1.dwg", он внедрен в файл "общий проект.dwg", на чертеже произошли изменения и он стал "чертеж1_изм1.dwg". Необходимо, чтобы в файле "общий проект.dwg" вместо ссылки на "чертеж1" была ссылка на "чертеж1_изм1"

[Alex.gomel]

https://jtbworld.com/autocad-xrefrename-lsp

[posetitel]

не совсем то.
хотел не вводить имена в ручную, а по аналогии с лиспом по переименованию блоков, ко всем внешним ссылкам дописать "изм1"

[VVA]

Добавление к внешним ссылкам суффикса

Код:

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

(defun C:RXref ( / add bname blk)
;_Rename Xref
 (setq add (getstring "Новый суффикс: "))
 (setvar "CMDECHO" 1)
 (while (setq blk (tblnext "BLOCK" (null blk)))
    (setq bname (cdr(assoc 2 blk)))
    (if (and
          (snvalid bname 0);_Допустимое имя блока
          (assoc 1 blk) ;_Это внешняя ссылка
          (snvalid (strcat bname "_" add) 0);_Допустимое новое имя блока
          )
      (if command-s
        (command-s "_.-RENAME" "_BLOCK" bname (strcat bname "_" add))
        (command "_.-RENAME" "_BLOCK" bname (strcat bname "_" add))
        )
      )
    )
 (princ)
 )
 (princ "\nType RXref in command line to rename xref")(princ)

[VVA]

Версия с переименовыванием имени внешней ссылки и перезагрузкой файла внешней ссылки
Имя внешней ссылки образуется как старое имя файла + суффикс.

Код:

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

(defun C:RXref ( / suf path newpath)
;_Переименовывает и перезагружает внешние ссылки
;_ добавляя к имени ссылки и имени ФАЙЛА ссылки запрашиваемый суффикс
;_ Файл по пути, указанном в ссылке с новым именем <имя ФАЙЛА ссылки><Новый суффикс>.dwg
;_ должен существовать  
  
 (vl-load-com)
 (setq suf (getstring "Новый суффикс: "))
  (vlax-for b (vla-get-blocks (vla-get-activedocument (vlax-get-acad-object)))
       (if (eq :vlax-true (vla-get-isxref b))
         (progn
           (setq path (vla-get-path b))
           (setq newpath
                  (strcat
                    (vl-filename-directory path)
                    "\\"
                    (vl-filename-base path)
                    suf
                    (vl-filename-extension path)
                  ) ;_ end of strcat
                 )
           (if (findfile newpath)
             (progn
               (vla-put-path b newpath)
               (vla-put-name b (strcat (vla-get-name b) suf)) 
               (princ (strcat "\nПерезагружаю " newpath))
             ) ;_ end of progn
             (princ (strcat "\nФайл " newpath " не найден"))
           ) ;_ end of if
         )
        )
    )
  (if command-s (command-s "_.-XREF" "_RELOAD" "*")(command "_.-XREF" "_RELOAD" "*"))
 (princ)
 )
 (princ "\nType RXref in command line to rename xref")(princ)