Логотип сайта поддержки пользователей САПРО сайте поддержки пользователей САПР Translate to:

Переименование внешних ссылок и обновление путей

Назад к списку функций

Эту функцию можно использовать в случае, если вы хотите переместить внешнюю ссылку в другое местоположение или если вы хотите одновременно переименовать внешнюю ссылку и переместить ее в другой каталог.

Первый аргумент - старое имя,
второй аругмент - новое имя
третий аргумент - путь к новому размещению внешней ссылки
Пример: (fixref "XR_01-LIB A" "XR_201" "W:\\project\\1234\\")

(defun XrefRename (oldname newname newpath)
  (if (and (findfile (strcat newpath newname ".dwg"))
    (ssget "X" (list '(0 . "INSERT") (cons 2 oldname))))
    (progn
      ; переименовать внешнюю ссылку, если указано
      (command "rename" "b" oldname newname)
      ; изменить путь к внешней ссылке, если указано
     (command
       "-xref"
       "p"
       newname
       (strcat newpath newname)
     )
   )
  )
)



Copyright © Сайт поддержки пользователей САПР by Victor Tkachenko