Акад2006-пропадают внешние ссылки

Акад2006-пропадают внешние ссылки · 20.11.2006, 23:28

Открываем текущий файл (главный) и выясняется,что все или некоторые внешние ссылки (x-refs) not found.Если все файлы сидят в одной директории,всё нормально.Кто-нибудь сталкивался с такой проблемой?

Vova · 21.11.2006, 02:28

Проверь путь к xref. Скорее всего либо файл в котором xref передвинули либо переименовали

Роб Рой · Регистрация: 17.11.2006

это я проверил первым делом,и несколько раз выходил с сохранением,и путь переписывал через browse и save path...
здесь что-то другое

Кулик Алексей aka kpblc · 21.11.2006, 08:05

По-моему, при вставке (не внедрении) внешних ссылок можно указывать не абсолютный, а относительный путь. Может, в этом порылась собака?

Роб Рой · 22.11.2006, 22:28

Спасибо за совет!Если правильно понял,относительный путь- это имя xrefa без указания директории?
Но тогда поиск идет там,где сидит главный файл...Но если и главный и xrefы лежат в одной директории,всё прекрасно читается.Проблема в том,что сервер не резиновый и все эти собирания в кучу-временное спасение

MIP · 23.11.2006, 10:48

>>Роб Рой

Цитата:

Открываем текущий файл (главный) и выясняется,что все или некоторые внешние ссылки (x-refs) not found.Если все файлы сидят в одной директории,всё нормально.Кто-нибудь сталкивался с такой проблемой?

Есть два пути вставки внешних ссылок: с полным путем и с относительным путем.
В первом случае путь к файлу внешней ссылки записывается полность и по идее внешняя ссылка должна всегда находиться, но при перемещении самого файла, каталога содержащего файл, файла внешней ссылки, каталога файла внешней ссылки из одного каталога в другой может происходить сбой по нахождению пути файла внешней ссылки. Если файл внешней ссылки находился в одном каталоге с файлом куда она была вставлена или в каталогах прописанных как пути доступа к вспомогательным файлам, то Автокад скорее всего (вообщто должен) найдет и загрузит ее но уже с новым "Эффективны" путем который будет виден в менеджере внешних ссылок, т.е. Автокад сам попытается найти файл в известных ему каталогах. В других случаях можно получить надпись "файл внешней сселки не найден".

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

Отсюда мораль, для полного пути все внешние ссылки должны находиться в одном каталоге путь к которому не изменяеться. Если файлы внешних ссылок явлються какми то библиотечными элементами, то неплохо прописывать каталог с такими файлами в пути поддержки и поиска файлов.
Для внешних ссылок с относительным путем при перемещении файла содержащего внешние ссылки необходимо копировать всю структуру каталогов содержащих файлы внешних ссылок относительно каталога файла.

Есть еще возможность написать или найти программку позволяющую автоматически переписывать пути файлов внешних ссылок из указанного пользователем каталога (ов). Тогда работать становиться значительно приятней.
Такая програмка у нас разработана и ее можно поросить у VVA чтобы он выложил ее код.

Роб Рой · 27.11.2006, 20:32

Всем спасибо!В конце-концов save path помог.Видимо, проблема в том,что чертежи "от архитекторов"! Сразу открывает всё,но при следующем входе уже не видит некоторые (опять же не все!) Xref-ы.
Проблема сотрудницы,сразу все подробности вытянуть не удалось.
Виноват!

Пока что всё загружается
Обязательно попрошу программу,спасибо,MIP

PL · 27.11.2006, 21:02

>MIP

Цитата:

Есть два пути вставки внешних ссылок: с полным путем и с относительным путем.

Если открыть help там будет 3 пути с 6 вариантами для относительного пути.

Цитата:

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

Нету никакой морали, есть разные варианты для разных случаев жизни

Цитата:

Есть еще возможность написать или найти программку позволяющую автоматически переписывать пути файлов внешних ссылок из указанного пользователем каталога (ов). Тогда работать становиться значительно приятней..

The Autodesk Reference Manager ?

VVA · Регистрация: 11.05.2005

Упоминавшиеся выше программы

Код:

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

;;;Для изменения абсолютного / относительного пути используются программы
;;; Петра Лоскутова (Alaspher)
;;; url=http://uniip.ru/start.html#content=http://uniip.ru/lib/download/download.html
;;; Адаптация Владимир Азарко (VVA) 2006 г. МинскИнжПроект
;;; Опубликовано: http://forum.dwg.ru/showthread.php?p=105300#post105300
;| ****************************************************************************************
*                                  ОПИСАНИЕ
*   Определены 2 команды:
    MIP_CHARPATH - изменение пути растров и вн.ссылок на
                   абсолютный / относительный
                   Путь определяется по отношению к пути текущего рисунка
    MIP_CHPATH -   изменение абсолютного (сохраненного) пути растров и вн.ссылок
*****************************************************************************************|;
;;; PL_XRefChgr.LSP
;;;*****************************************************************************************
;;; Copyright ©2003 Пётр Лоскутов (Alaspher)
;;; http://uniip.ru/start.html#content=http://uniip.ru/lib/download/download.html
;;; e-mail: [email protected]
;;;*****************************************************************************************
;;; ВЕРСИЯ: 0.91 ПРЕРЕЛИЗ
;;;*****************************************************************************************
;;; ОГРАНИЧЕНИЕ ГАРАНТИЙ
;;; ПРОГРАММА РАСПРОСТРАНЯЕТСЯ НА УСЛОВИЯХ "КАК ЕСТЬ".
;;; АВТОР НЕ БЕРЕТ НА СЕБЯ И НЕ ПОДРАЗУМЕВАЕТ КАКИХ-ЛИБО ГАРАНТИЙНЫХ ОБЯЗАТЕЛЬСТВ.
;;; ВЫ ИСПОЛЬЗУЕТЕ  ПРОГРАММУ НА СВОЙ РИСК.
;;; АВТОР НЕ БЕРЕТ НА СЕБЯ ОТВЕТСТВЕННОСТЬ ЗА ПОТЕРЮ ДАННЫХ, УЩЕРБ, ПОТЕРЮ ПРИБЫЛИ ИЛИ ЛЮБЫЕ
;;; ДРУГИЕ ПОТЕРИ, ПРОИЗОШЕДШИЕ ВО ВРЕМЯ ИСПОЛЬЗОВАНИЯ ИЛИ НЕПРАВИЛЬНОГО ИСПОЛЬЗОВАНИЯ
;;; ДАННОГО ПРОГРАММНОГО ОБЕСПЕЧЕНИЯ.
;;;*****************************************************************************************
;;; Разрешается   использовать,  копировать,  изменять,  и  распространять  это  программное
;;; обеспечение бесплатно, при  условии, что программное обеспечение, полностью или частично
;;; включающее данное ПО, будет распространяться  на тех-же условиях, а указанные  выше знак
;;; авторского права и примечания об ограничениях гарантий будут приводиться во всех копиях.
;;;*****************************************************************************************
;;;
 (vl-load-com)
(defun C:MIP_CHARPATH ( / _LNGLST _CHOICE _TMP *error* _COUNT)
(defun *error* (msg)(princ msg)(foreach item *kpblc-list-layer-status*
(vla-put-lock (car item) (cdr (assoc "lock" (cdr item)))))
(setq *kpblc-list-layer-status* nil)(vla-EndUndoMark *kpblc-activedoc*))
;;;Helper function  
(defun _PL:XPathChgr (AR / _SEL _I _ENT _TMP _OLD _NEW _TYPE)
(setq _SEL (ssget "X" '((-4 . "<OR")(0 . "IMAGE")(0 . "INSERT")(-4 . "OR>"))) _I   -1.0) ;_ end of setq
(while (setq _ENT (ssname _SEL (setq _I (1+ _I))))(setq _TMP (vlax-ename->vla-object _ENT) _NEW  nil
_TYPE nil _OLD (if(= (setq _TYPE (strcase (vla-get-objectname _TMP))) "ACDBRASTERIMAGE") ;_ end of =
(vla-get-imagefile _TMP)(if (vlax-property-available-p _TMP 'Path)(vla-get-path _TMP)))) ;_ end of setq
(if _OLD (setq _NEW (cond ((= AR "Clear")(strcat (vl-filename-base _OLD)(vl-filename-extension _OLD)))
((null AR)(PL:PRel->Abs _OLD))(t (PL:PAbs->Rel _OLD))))) ;_ end of if
(if _NEW (if (= _TYPE "ACDBRASTERIMAGE")(vla-put-imagefile _TMP _NEW)(vla-put-path _TMP _NEW)))) ;_ end of while
(1+ _I)) ;_ end of defun
(defun PL:PAbs->Rel (OldPath / _TMP _DWG _NAME _PRE _IS)(setq _TMP (reverse (PL:String->List OldPath "\\"))
 _DWG (reverse (cdr (reverse (PL:String->List (getvar "DWGPREFIX") "\\"))))
_PRE "" _NAME (car _TMP) _TMP (reverse (cdr _TMP)) _TMP(if _TMP (mapcar 'strcase _TMP))
_DWG (mapcar 'strcase _DWG)) ;_ end of setq
(if(and _TMP (= (car _TMP) (car _DWG)))	(progn(if (= "" (car _TMP))
(setq _TMP (if (= (nth 3 _TMP) (nth 3 _DWG)) (cddr _TMP))  _DWG (cddr _DWG)))
(while (and _TMP _DWG (= (car _TMP) (car _DWG)))(setq _TMP (cdr _TMP) _DWG (cdr _DWG) _IS  t)) ;_ end of while
(if _IS (progn (if _TMP (setq _TMP (apply 'strcat (PL:StrLstSuf _TMP "\\")))(setq _TMP ""))
(if _DWG (repeat (length _DWG) (setq _PRE (strcat "..\\" _PRE))))(strcase (strcat _PRE _TMP _NAME) t)))))) ;_ end of defun
(defun PL:PRel->Abs (OldPath / _TMP _DWG _NAME _CHK)
(setq _TMP  (reverse (PL:String->List OldPath "\\")) _DWG  (cdr (reverse (PL:String->List (getvar "DWGPREFIX") "\\")))
      _NAME (car _TMP) _TMP  (reverse (cdr _TMP))) ;_ end of setq
(if(and (/= (setq _CHK (car _TMP)) "") (or (not _CHK) (/= (substr _CHK 2 1) ":")))
 (progn (setq _TMP (if _TMP (mapcar 'strcase _TMP)) _DWG (mapcar 'strcase _DWG)) ;_ end of setq
 (while (and _TMP _DWG (= (car _TMP) ".."))(setq _TMP (cdr _TMP) _DWG (cdr _DWG)))
  (strcase(strcat(apply 'strcat (PL:StrLstSuf (append (reverse _DWG) _TMP) "\\")) _NAME) t))))
(defun PL:StrLstSuf (StrLst Suf / _TMP)(if(setq _TMP (car StrLst))
  (cons (strcat _TMP Suf) (PL:StrLstSuf (cdr StrLst) Suf))))
(defun PL:String->List (_STR _BR / _POS)(if(setq _POS (vl-string-search _BR _STR))
  (cons(substr _STR 1 _POS)(PL:String->List (substr _STR(+ (strlen _BR) _POS 1)) _BR))(cons _STR '())))
;;Main programm  
(or *kpblc-activedoc* (setq *kpblc-activedoc* (vla-get-activedocument (vlax-get-acad-object))))
(vla-startUndoMark *kpblc-activedoc*)    
;;;Разблокируем слои и сохраняем в списке *kpblc-list-layer-status*
;;;вида '(vla-указатель ("lock" . :vlax-false))
(if *kpblc-list-layer-status* (setq *kpblc-list-layer-status* nil)) ;_ end of if
(vlax-for item (vla-get-layers *kpblc-activedoc*)
(setq *kpblc-list-layer-status* (append *kpblc-list-layer-status*
(list(list item(cons "lock" (vla-get-lock item)))))) ;_ end of setq
(vla-put-lock item :vlax-false))(vla-StartUndoMark *kpblc-activedoc*)  
(setq _LNGLST (if (= (strcase (getvar "SYSCODEPAGE")) "ANSI_1251")
'("\nПреобразовать в [Абсолютный/Относительный] формат <О>: "
"Абсолютный Absolutly Относительный Relative _Absolutly Absolutly Relative Relative"
)
'("\nConvert to [Absolutly/Relative] format <R>: " "Absolutly Relative"))) ;_ end of setq
(initget (setq _TMP (nth 1 _LNGLST)))(setq _CHOICE (getkword (nth 0 _LNGLST)))
(setq _COUNT (if (= _CHOICE "Absolutly")(_PL:XPathChgr nil)(_PL:XPathChgr t)))
(princ (if (= (strcase (getvar "SYSCODEPAGE")) "ANSI_1251")
 (strcat "Обработано "(itoa (fix _COUNT)) " объектов")
 (strcat (itoa (fix _COUNT)) " objects are processed")))
;;;Восстанавливаем состояние слоев
  (foreach item *kpblc-list-layer-status*
    (vla-put-lock (car item) (cdr (assoc "lock" (cdr item)))))
(setq *kpblc-list-layer-status* nil)(vla-EndUndoMark *kpblc-activedoc*)    
(princ)) ;_ end of defun
;|=============================================================================
*    функция z-files-in-directory возвращает список файлов находящаяся в заданной
* директории
*    Автор : Зуенко Виталий (ZZZ)
*  Параметры:
*    directory  путь к папке например "D:\\Мои документы\\ZEF\\Lisp"
*    pattern    шаблон например "*.lsp" или список '("*.dwg" "*.dxf")
*    nested    искать в вложенных папках: t (да) или nil (нет)
* Пример вызова:
(z-files-in-directory "D:\\Мои документы\\ZEF\\Lisp" "*.dwg" t)
(z-files-in-directory "D:\\Мои документы\\ZEF\\Lisp" '("*.dwg" "*.dwt") t)
=============================================================================|;
(defun z-files-in-directory (directory pattern nested /)
  (if (not (listp pattern))(setq pattern (list pattern)))
  (if nested (apply 'append (append (mapcar	'(lambda (_pattern)
   (mapcar '(lambda (f) (strcat directory "\\" f))
   (vl-directory-files directory _pattern 1)))	pattern) ;_ mapcar
   (mapcar '(lambda (d) (z-files-in-directory (strcat directory "\\" d)
   pattern nested))
  (vl-remove "." (vl-remove ".." (vl-directory-files directory nil -1))))))
  (apply 'append (mapcar '(lambda (_pattern)(mapcar '(lambda (f) (strcat directory "\\" f))
  (vl-directory-files directory _pattern 1))) pattern))))

(defun C:MIP_CHPATH ( / what to pat )
(defun BrowseFolder ( / ShlObj Folder FldObj OutVal)
;;;http://www.autocad.ru/cgi-bin/f1/board.cgi?t=21054YY    
;;; С отображение файлов (setq Folder (vlax-invoke-method ShlObj 'BrowseForFolder 0 "" 16384))   
(vl-load-com)(setq ShlObj (vla-getInterfaceObject (vlax-get-acad-object) "Shell.Application")
Folder (vlax-invoke-method ShlObj 'BrowseForFolder 0 "Укажите целевую папку c растрами и рисунками" 16384))
(vlax-release-object ShlObj)(if Folder (progn (setq FldObj (vlax-get-property Folder 'Self)
OutVal (vlax-get-property FldObj 'Path))(vlax-release-object Folder)(vlax-release-object FldObj)))
OutVal)
(initget "Растры Image внСсылки Xref Все All Отмена Undo _Image Image Xref Xref All All Undo Undo")
(setq what (getkword "\nИзменить путь [Растры/внСсылки/Все/Отмена] <Все> :"))
(cond ((= what "Image")(setq pat 1))((= what "Xref")(setq pat 2))((= what "Undo")(setq pat nil))
(t (setq pat 3)))(if (and pat (setq to (BrowseFolder)))(mip_ch_path to pat))(princ))
;;; to - путь куда
;;;pat - сумма 1 - растры 2 - вн ссылки
;;;(logand pat 1)=1 - растры
;;;(logand pat 2)=2 - вн ссылки
(defun mip_ch_path ( to pat / files sset item_list *error*)
(defun *error* (msg)(princ msg)(foreach item *kpblc-list-layer-status*
  (vla-put-lock (car item) (cdr (assoc "lock" (cdr item)))))
  (setq *kpblc-list-layer-status* nil)(vla-EndUndoMark *kpblc-activedoc*))
(vl-load-com)(or *kpblc-activedoc*
(setq *kpblc-activedoc* (vla-get-activedocument (vlax-get-acad-object))))
(setq files (z-files-in-directory to "*.*" nil))
(setq files (mapcar '(lambda(x)(strcase(strcat (VL-FILENAME-BASE x)(VL-FILENAME-EXTENSION x)))) files))
(setq to (VL-STRING-RIGHT-TRIM "\\" to))
  ;;;Разблокируем слои и сохраняем в списке *kpblc-list-layer-status*
  ;;;вида '(vla-указатель ("lock" . :vlax-false))
  (if *kpblc-list-layer-status* (setq *kpblc-list-layer-status* nil)) ;_ end of if
  (vlax-for item (vla-get-layers *kpblc-activedoc*)
    (setq *kpblc-list-layer-status* (append *kpblc-list-layer-status*
      (list(list item(cons "lock" (vla-get-lock item)))))) ;_ end of setq
      (vla-put-lock item :vlax-false))(vla-StartUndoMark *kpblc-activedoc*)  
;;(setq to (lib:BrowseFolder))    
    (if (=(logand pat 1) 1);_Растры
	(progn (princ "\n===== Image =====") 
          (setq sset nil sset (ssget "_X" '((0 . "IMAGE"))))
	  (if sset
	    (setq item_list (mapcar 'vlax-ename->vla-object(vl-remove-if 'listp (mapcar 'cadr (ssnamex sset)))))
	    (setq item_list nil))
	   (mapcar '(lambda(img / ipath)
			(setq ipath (vla-get-ImageFile img))
			(setq ipath (strcase(strcat (VL-FILENAME-BASE ipath)(VL-FILENAME-EXTENSION ipath))))
			(if (and (member ipath files)(vlax-write-enabled-p img))(progn
				(princ "\nМеняем ")(princ(vla-get-ImageFile img))(princ "->")
				(setq ipath (strcat to "\\" ipath))
				(vla-put-ImageFile img ipath)
				(princ ipath)))) item_list)))
    (if (=(logand pat 2) 2);_Вн ссылки
	(progn (princ "\n===== Xref =====") 
          (setq sset nil sset (ssget "_X" '((0 . "INSERT"))))
	  (if sset
	   (setq item_list (mapcar 'vlax-ename->vla-object(vl-remove-if 'listp (mapcar 'cadr (ssnamex sset)))))
	   (setq item_list nil))
	   (mapcar '(lambda( xrf / ipath)
                     (if (and (vlax-property-available-p xrf 'Path)(vlax-write-enabled-p xrf))(progn
                      (setq ipath (vla-get-Path xrf))
		      (setq ipath (strcase(strcat (VL-FILENAME-BASE ipath)(VL-FILENAME-EXTENSION ipath))))
		      (if (member ipath files)(progn
                        (princ "\nМеняем ")(princ(vla-get-Path xrf))(princ "->")
			(setq ipath (strcat to "\\" ipath))(vla-put-Path xrf ipath)
                        (princ ipath)))))) item_list)))
;;;Восстанавливаем состояние слоев
(princ " ")(foreach item *kpblc-list-layer-status*
    (vla-put-lock (car item) (cdr (assoc "lock" (cdr item)))))
(setq *kpblc-list-layer-status* nil)(vla-EndUndoMark *kpblc-activedoc*)
(vla-regen *kpblc-activedoc* acallviewports))
(princ "\nЗагружены команды MIP_CHARPATH и MIP_CHPATH")

Определены 3 команды:
MIP_CHARPATH - изменение пути растров и вн.ссылок на абсолютный / относительный. Путь определяется по отношению к пути текущего рисунка.
MIP_CHPATH - изменение абсолютного (сохраненного) пути растров и вн.ссылок.
MIP_CHPATHTIF - изменение абсолютного (сохраненного) пути растров и вн.ссылок. Для растров, если в указанной папке есть tif файл, то меняется и расширение, если нет, то расширение растра остается прежним, т.е. работа аналогична команде MIP_CHPATH
PS Новая версия во вложении mip_chpath.LSP

perpetule · 13.11.2012, 13:41

Системные переменные
PROJECTNAME

или
через настройку, и не забываем клацнуть "установить",

и сложить все в папку обозначенную вышеуказанным способом
например
./image

T.Bagdat · 21.03.2013, 08:28

Команда MIP_CHPATH работает безупречно

Команда: MIP_CHARPATH сначала тоже работала хорошо. Пока пробовал. Как дошло до дела (30 планшетов полосы отвода) зачем-то начала всё усложнять (хотя, тут не пойман не вор, это я уже потом обнаружил), к примеру:
файл polosa.dwg лежит в "C:\1\2\3\4"
Планшеты лежат в "C:\1\2\3\4\images"
А абсолютный путь у меня почему-то вместо ".\images" получился "..\..\..\..\1\2\3\4\images"

Ну да бог с ним, хотя конечно вопрос нужно решать. Дальше ещё интереснее. Теперь реакция на вызов команды вообще неадекватная:
Команда: MIP_CHARPATH no function definition: VLAX-GET-ACAD-OBJECTнет
определения функции: VLA-ENDUNDOMARK

И это не в каком-то одном файле, а в принципе. Подскажите, пожалуйста, как побороть.

Кулик Алексей aka kpblc · 21.03.2013, 09:16

http://autolisp.ru/2010/06/09/no-fun...t-acad-object/

T.Bagdat · 21.03.2013, 14:14

Большое спасибо, помогло.

VVA · 22.03.2013, 16:15

Цитата:

Сообщение от T.Bagdat

файл polosa.dwg лежит в "C:\1\2\3\4"
Планшеты лежат в "C:\1\2\3\4\images"
А абсолютный путь у меня почему-то вместо ".\images" получился "..\..\..\..\1\2\3\4\images"

Вставь растр командой _imageattach и выбери относительный путь. Посмотри какой она пропишет путь. Хотя по мне путь должен быть таким

Цитата:

".\images"

Немного измененные команды

Код:

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

;;;*****************************************************************************************
;;; ОГРАНИЧЕНИЕ ГАРАНТИЙ
;;; ПРОГРАММА РАСПРОСТРАНЯЕТСЯ НА УСЛОВИЯХ "КАК ЕСТЬ".
;;; АВТОР НЕ БЕРЕТ НА СЕБЯ И НЕ ПОДРАЗУМЕВАЕТ КАКИХ-ЛИБО ГАРАНТИЙНЫХ ОБЯЗАТЕЛЬСТВ.
;;; ВЫ ИСПОЛЬЗУЕТЕ  ПРОГРАММУ НА СВОЙ РИСК.
;;; АВТОР НЕ БЕРЕТ НА СЕБЯ ОТВЕТСТВЕННОСТЬ ЗА ПОТЕРЮ ДАННЫХ, УЩЕРБ, ПОТЕРЮ ПРИБЫЛИ ИЛИ ЛЮБЫЕ
;;; ДРУГИЕ ПОТЕРИ, ПРОИЗОШЕДШИЕ ВО ВРЕМЯ ИСПОЛЬЗОВАНИЯ ИЛИ НЕПРАВИЛЬНОГО ИСПОЛЬЗОВАНИЯ
;;; ДАННОГО ПРОГРАММНОГО ОБЕСПЕЧЕНИЯ.
;;;*****************************************************************************************
;;; Разрешается   использовать,  копировать,  изменять,  и  распространять  это  программное
;;; обеспечение бесплатно, при  условии, что программное обеспечение, полностью или частично
;;; включающее данное ПО, будет распространяться  на тех-же условиях, а указанные  выше знак
;;; авторского права и примечания об ограничениях гарантий будут приводиться во всех копиях.
;;;*****************************************************************************************
;;;
(vl-load-com)
(defun C:MIP_CHARPATH (/ _LNGLST _CHOICE _TMP *error* _COUNT)
  (defun *error* (msg)
    (princ msg)
    (mip:layer-status-restore)
    (vla-endundomark *kpblc-activedoc*)
  ) ;_ end of defun
;;;Helper function
    (defun mip:layer-status-restore () 
    (_kpblc-layer-status-restore)
    ) ;_ end of defun 
  (defun mip:layer-status-save ()
      (_kpblc-layer-status-save nil)
    );_ end of defun
    ;|=============================================================================
*    Восстановление состояния слоев из глобального списка
* *kpblc-list-layer-status*
*    Параметры вызова:
*  нет
*    Примеры вызова:
(_kpblc-layer-status-restore)
=============================================================================|;
    (defun _kpblc-layer-status-restore (/ item)
      (or *kpblc-activedoc*
          (setq *kpblc-activedoc*
                 (vla-get-activedocument
                   (vlax-get-acad-object)
                 ) ;_ end of vla-get-activedocument
          ) ;_ end of setq
      ) ;_ end of or
      (if *kpblc-list-layer-status*
        (progn
          (foreach item *kpblc-list-layer-status*
            (if (vlax-write-enabled-p (car item))
;;;_ Add VVA 06072009
              (progn
                (VL-CATCH-ALL-APPLY '(lambda()
                (vla-put-layeron
                  (car item)
                  (cdr (assoc "on" (cdr item)))
                ) ;_ end of vla-put-layeron
                (vla-put-lock
                  (car item)
                  (cdr (assoc "lock" (cdr item)))
                ) ;_ end of vla-put-lock
                (if (not (equal (strcase (getvar "CLAYER"))
                                (strcase (vla-get-name (car item)))
                         ) ;_ end of equal
                    ) ;_ end of not
                  (vla-put-freeze
                    (car item)
                    (cdr (assoc "freeze" (cdr item)))
                  ) ;_ end of vla-put-freeze
                ) ;_ end of if
                                       )
                  )
              ) ;_ end of progn
            ) ;_ end of if
          ) ;_ end of foreach
          (setq *kpblc-list-layer-status* nil)
        ) ;_ end of progn
      ) ;_ end of if
    ) ;_ end of defun
    ;|=============================================================================
*    Разблокировка и разморозка всех слоев активного документа. Состояние
* сохраняется в глобальном списке *kpblc-list-layer-status* вида
* '(vla-указатель ("freeze" . :vlax-true) ("lock" . :vlax-false))
*    Параметры вызова:
*  layers-on  включать слои (t) или нет (nil)
*    Примеры вызова:
(_kpblc-layer-status-save t)
=============================================================================|;
    (defun _kpblc-layer-status-save (layers-on / item)
      (or *kpblc-activedoc*
          (setq *kpblc-activedoc*
                 (vla-get-activedocument
                   (vlax-get-acad-object)
                 ) ;_ end of vla-get-activedocument
          ) ;_ end of setq
      ) ;_ end of or
      (if *kpblc-list-layer-status*
        (setq *kpblc-list-layer-status* nil)
      ) ;_ end of if
      (vlax-for item (vla-get-layers *kpblc-activedoc*)
        (setq *kpblc-list-layer-status*
               (append *kpblc-list-layer-status*
                       (list
                         (list item
                               (cons "freeze" (vla-get-freeze item))
                               (cons "lock" (vla-get-lock item))
                               (cons "on" (vla-get-layeron item))
                         ) ;_ end of list
                       ) ;_ end of list
               ) ;_ end of append
        ) ;_ end of setq
        (if layers-on
          (progn
            (vla-put-layeron item :vlax-true)
          ) ;_ end of if
        ) ;_ end of progn
        (vla-put-lock item :vlax-false)
        (if (not (equal (vla-get-activelayer *kpblc-activedoc*) item))
          (vla-put-freeze item :vlax-false)
        ) ;_ end of if
      ) ;_ end of vlax-for
    ) ;_ end of defun

(defun mip-error-catch 
       (protected-function on-error-function / catch_error_result) 
  (setq catch_error_result (vl-catch-all-apply protected-function)) 
  (if (and (vl-catch-all-error-p catch_error_result) 
      on-error-function 
      ) ;_ end of and 
    (apply on-error-function 
      (list (vl-catch-all-error-message catch_error_result)) 
      ) ;_ end of APPLY 
    catch_error_result 
    ) ;_ end of if 
  )
  (defun LM:Relative->Full ( dir path ) (setq dir (vl-string-right-trim "\\" dir))
  ;;-------------=={ Relative Path to Full Path }==-------------;;
;;                                                            ;;
;;  Converts a Relative XRef path to a Full Path.             ;;
;;------------------------------------------------------------;;
;;  Author: Lee Mac, Copyright © 2011 - www.lee-mac.com       ;;
;;------------------------------------------------------------;;
;;  Arguments:                                                ;;
;;  dir  - Directory of the Drawing in which the Xref resides ;;
;;  path - Relative Xref Path                                 ;;
;;------------------------------------------------------------;;
;;  Returns:  Full XRef Path                                  ;;
;;------------------------------------------------------------;;

;;;	;;;;;USE
;;;	;;;_$ (LM:XRef:Relative->Full "C:\\Folder1\\Folder2\\Folder3" ".\\XRef.dwg")
;;;	;;;"C:\\Folder1\\Folder2\\Folder3\\XRef.dwg"
;;;	;;;
;;;	;;;_$ (LM:XRef:Relative->Full "C:\\Folder1\\Folder2\\Folder3" "..\\XRef.dwg")
;;;	;;;"C:\\Folder1\\Folder2\\XRef.dwg"
;;;	;;;
;;;	;;;_$ (LM:XRef:Relative->Full "C:\\Folder1\\Folder2\\Folder3" "..\\..\\Folder4\\XRef.dwg")
;;;	;;;"C:\\Folder1\\Folder4\\XRef.dwg"
  (setq dir (strcase dir) path (strcase path))
  (cond
    ( (eq ".." (substr path 1 2))

      (LM:Relative->Full
        (substr dir 1 (vl-string-position 92 dir nil t))
        (substr path 4)
      )
    )
    ( (eq "."  (substr path 1 1))

      (strcat dir (substr path 2))
    )
    ( (strcat dir "\\" path) )
  )
)
  (defun LM:Full->Relative ( dir path / p q ) (setq dir (vl-string-right-trim "\\" dir))
  ;;-------------=={ Full Path to Relative Path }==-------------;;
;;                                                            ;;
;;  Converts a Full XRef path to a Relative Path.             ;;
;;------------------------------------------------------------;;
;;  Author: Lee Mac, Copyright © 2011 - www.lee-mac.com       ;;
;;------------------------------------------------------------;;
;;  Arguments:                                                ;;
;;  dir  - Directory of the Drawing in which the Xref resides ;;
;;         путо к папке dwg файла куда вставленя ссылки       ;;
;;  path - Full Xref Path (путь внешней ссылки                ;;
;;------------------------------------------------------------;;
;;  Returns:  Relative XRef Path                              ;;
;;------------------------------------------------------------;;

;;USE
;;;	;;;_$ (LM:XRef:Full->Relative "C:\\Folder1\\Folder2\\Folder3" "C:\\Folder1\\Folder2\\Folder3\\XRef.dwg")
;;;	;;;".\\XRef.dwg"
;;;	;;;
;;;	;;;_$ (LM:XRef:Full->Relative "C:\\Folder1\\Folder2\\Folder3" "C:\\Folder1\\Folder2\\XRef.dwg")
;;;	;;;"..\\XRef.dwg"
;;;	;;;
;;;	;;;_$ (LM:XRef:Full->Relative "C:\\Folder1\\Folder2\\Folder3" "C:\\Folder1\\Folder4\\XRef.dwg")
;;;	;;;"..\\..\\Folder4\\XRef.dwg"
  (setq dir (strcase dir) path (strcase path))
  (cond
    ( (and
        (setq p (vl-string-position 58  dir))
        (setq q (vl-string-position 58 path))
        (not (eq (strcase (substr dir 1 p)) (strcase (substr path 1 q))))
      )     
      path
    )
    ( (and
        (setq p (vl-string-position 92  dir))
        (setq q (vl-string-position 92 path))
        (eq (strcase (substr dir 1 p)) (strcase (substr path 1 q)))
      )
      (LM:Full->Relative (substr dir (+ 2 p)) (substr path (+ 2 q)))
    )
    ( (and
        (setq q (vl-string-position 92 path))
        (eq (strcase dir) (strcase (substr path 1 q)))
      )
      (strcat ".\\" (substr path (+ 2 q)))
    )
    ( (eq "" dir)
      path
    )
    ( (setq p (vl-string-position 92 dir))
      (LM:Full->Relative (substr dir (+ 2 p)) (strcat "..\\" path))
    )
    ( (LM:Full->Relative "" (strcat "..\\" path)) )
  )
)
  (defun _PL:XPathChgr (AR / _SEL _I _ENT _TMP _OLD _NEW _TYPE)
    (setq _SEL (ssget
		 "_X"
		 '((-4 . "<OR") (0 . "IMAGE") (0 . "INSERT") (-4 . "OR>"))
	       ) ;_ end of ssget
	  _I   -1.0
    ) ;_ end of setq
    (while (setq _ENT (ssname _SEL (setq _I (1+ _I))))
      (setq _TMP  (vlax-ename->vla-object _ENT)
	    _NEW  nil
	    _TYPE nil
	    _OLD
		  (if (= (setq _TYPE (strcase (vla-get-objectname _TMP)))
			 "ACDBRASTERIMAGE"
		      ) ;_ end of =

		    (mip-error-catch '(lambda () (vla-get-imagefile _TMP)) nil)
		    (if	(vlax-property-available-p _TMP 'Path)
		      (mip-error-catch '(lambda () (vla-get-path _TMP)) nil)
		    ) ;_ end of if
		  ) ;_ end of if
      ) ;_ end of setq
      (if (VL-CATCH-ALL-ERROR-P _OLD)
	(setq _OLD nil)
      )
      (if _OLD
	(setq _NEW (cond ((= AR "Clear")
			  (strcat (vl-filename-base _OLD)
				  (vl-filename-extension _OLD)
			  ) ;_ end of strcat
			 )
			 ((null AR) (LM:Relative->Full (getvar "DWGPREFIX")  _OLD))
			 (t (LM:Full->Relative (getvar "DWGPREFIX")  _OLD))
		   ) ;_ end of cond
	) ;_ end of setq
      ) ;_ end of if
      (if _NEW
	(if (= _TYPE "ACDBRASTERIMAGE")
	  (mip-error-catch '(lambda () (vla-put-imagefile _TMP _NEW)) nil)
	  (mip-error-catch '(lambda () (vla-put-path _TMP _NEW)) nil)
	) ;_ end of if
      ) ;_ end of if
    ) ;_ end of while
    (1+ _I)
  ) ;_ end of defun
  
      (setq *kpblc-activedoc*
	     (vla-get-activedocument (vlax-get-acad-object))
      ) ;_ end of setq
  (vla-startundomark *kpblc-activedoc*)
  (mip:layer-status-save)
  (setq	_LNGLST
	 (if (= (strcase (getvar "SYSCODEPAGE")) "ANSI_1251")
	   '("\nПреобразовать в [Абсолютный/Относительный] формат <О>: "
	     "Абсолютный Absolutly Относительный Relative _Absolutly Absolutly Relative Relative"
	    )
	   '("\nConvert to [Absolutly/Relative] format <R>: "
	     "Absolutly Relative"
	    )
	 ) ;_ end of if
  ) ;_ end of setq
  (initget (setq _TMP (nth 1 _LNGLST)))
  (setq _CHOICE (getkword (nth 0 _LNGLST)))
  (setq	_COUNT (if (= _CHOICE "Absolutly")
		 (_PL:XPathChgr nil)
		 (_PL:XPathChgr t)
	       ) ;_ end of if
  ) ;_ end of setq
  (princ
    (if	(= (strcase (getvar "SYSCODEPAGE")) "ANSI_1251")
      (strcat "Обработано " (itoa (fix _COUNT)) " объектов")
      (strcat (itoa (fix _COUNT)) " objects are processed")
    ) ;_ end of if
  ) ;_ end of princ
  (mip:layer-status-restore)
  (vla-endundomark *kpblc-activedoc*)
  (princ)
)
;|=============================================================================
*    функция z-files-in-directory возвращает список файлов находящаяся в заданной
* директории
*    Автор : Зуенко Виталий (ZZZ)
*  Параметры:
*    directory  путь к папке например "D:\\Мои документы\\ZEF\\Lisp"
*    pattern    шаблон например "*.lsp" или список '("*.dwg" "*.dxf")
*    nested    искать в вложенных папках: t (да) или nil (нет)
* Пример вызова:
(z-files-in-directory "D:\\Мои документы\\ZEF\\Lisp" "*.dwg" t)
(z-files-in-directory "D:\\Мои документы\\ZEF\\Lisp" '("*.dwg" "*.dwt") t)
=============================================================================|;
(defun z-files-in-directory (directory pattern nested /)
  (if (not (listp pattern))(setq pattern (list pattern)))
  (if nested (apply 'append (append (mapcar	'(lambda (_pattern)
   (mapcar '(lambda (f) (strcat directory "\\" f))
   (vl-directory-files directory _pattern 1)))	pattern) ;_ mapcar
   (mapcar '(lambda (d) (z-files-in-directory (strcat directory "\\" d)
   pattern nested))
  (vl-remove "." (vl-remove ".." (vl-directory-files directory nil -1))))))
  (apply 'append (mapcar '(lambda (_pattern)(mapcar '(lambda (f) (strcat directory "\\" f))
  (vl-directory-files directory _pattern 1))) pattern))))

(defun C:MIP_CHPATH ( / what to pat )
(defun BrowseFolder ( / ShlObj Folder FldObj OutVal)
;;;http://www.autocad.ru/cgi-bin/f1/board.cgi?t=21054YY    
;;; С отображение файлов (setq Folder (vlax-invoke-method ShlObj 'BrowseForFolder 0 "" 16384))   
(vl-load-com)(setq ShlObj (vla-getInterfaceObject (vlax-get-acad-object) "Shell.Application")
Folder (vlax-invoke-method ShlObj 'BrowseForFolder 0 "Укажите целевую папку c растрами и рисунками" 16384))
(vlax-release-object ShlObj)(if Folder (progn (setq FldObj (vlax-get-property Folder 'Self)
OutVal (vlax-get-property FldObj 'Path))(vlax-release-object Folder)(vlax-release-object FldObj)))
OutVal)
(initget "Растры Image внСсылки Xref Все All Отмена Undo _Image Image Xref Xref All All Undo Undo")
(setq what (getkword "\nИзменить путь [Растры/внСсылки/Все/Отмена] <Все> :"))
(cond ((= what "Image")(setq pat 1))((= what "Xref")(setq pat 2))((= what "Undo")(setq pat nil))
(t (setq pat 3)))(if (and pat (setq to (BrowseFolder)))(mip_ch_path to pat))(princ))
;;; to - путь куда
;;;pat - сумма 1 - растры 2 - вн ссылки
;;;(logand pat 1)=1 - растры
;;;(logand pat 2)=2 - вн ссылки
(defun mip_ch_path ( to pat / files sset item_list *error*)
(defun *error* (msg)(princ msg)(foreach item *kpblc-list-layer-status*
  (vla-put-lock (car item) (cdr (assoc "lock" (cdr item)))))
  (setq *kpblc-list-layer-status* nil)(vla-EndUndoMark *kpblc-activedoc*))
(vl-load-com)(or *kpblc-activedoc*
(setq *kpblc-activedoc* (vla-get-activedocument (vlax-get-acad-object))))
(setq files (z-files-in-directory to "*.*" nil))
(setq files (mapcar '(lambda(x)(strcase(strcat (VL-FILENAME-BASE x)(VL-FILENAME-EXTENSION x)))) files))
(setq to (VL-STRING-RIGHT-TRIM "\\" to))
  ;;;Разблокируем слои и сохраняем в списке *kpblc-list-layer-status*
  ;;;вида '(vla-указатель ("lock" . :vlax-false))
  (if *kpblc-list-layer-status* (setq *kpblc-list-layer-status* nil)) ;_ end of if
  (vlax-for item (vla-get-layers *kpblc-activedoc*)
    (setq *kpblc-list-layer-status* (append *kpblc-list-layer-status*
      (list(list item(cons "lock" (vla-get-lock item)))))) ;_ end of setq
      (vla-put-lock item :vlax-false))(vla-StartUndoMark *kpblc-activedoc*)  
;;(setq to (lib:BrowseFolder))    
    (if (=(logand pat 1) 1);_Растры
	(progn (princ "\n===== Image =====") 
          (setq sset nil sset (ssget "_X" '((0 . "IMAGE"))))
	  (if sset
	    (setq item_list (mapcar 'vlax-ename->vla-object(vl-remove-if 'listp (mapcar 'cadr (ssnamex sset)))))
	    (setq item_list nil))
	   (mapcar '(lambda(img / ipath)
			(setq ipath (vla-get-ImageFile img))
			(setq ipath (strcase(strcat (VL-FILENAME-BASE ipath)(VL-FILENAME-EXTENSION ipath))))
			(if (and (member ipath files)(vlax-write-enabled-p img))(progn
				(princ "\nМеняем ")(princ(vla-get-ImageFile img))(princ "->")
				(setq ipath (strcat to "\\" ipath))
				(vla-put-ImageFile img ipath)
				(princ ipath)))) item_list)))
    (if (=(logand pat 2) 2);_Вн ссылки
	(progn (princ "\n===== Xref =====") 
          (setq sset nil sset (ssget "_X" '((0 . "INSERT"))))
	  (if sset
	   (setq item_list (mapcar 'vlax-ename->vla-object(vl-remove-if 'listp (mapcar 'cadr (ssnamex sset)))))
	   (setq item_list nil))
	   (mapcar '(lambda( xrf / ipath)
                     (if (and (vlax-property-available-p xrf 'Path)(vlax-write-enabled-p xrf))(progn
                      (setq ipath (vla-get-Path xrf))
		      (setq ipath (strcase(strcat (VL-FILENAME-BASE ipath)(VL-FILENAME-EXTENSION ipath))))
		      (if (member ipath files)(progn
                        (princ "\nМеняем ")(princ(vla-get-Path xrf))(princ "->")
			(setq ipath (strcat to "\\" ipath))(vla-put-Path xrf ipath)
                        (princ ipath)))))) item_list)))
;;;Восстанавливаем состояние слоев
(princ " ")(foreach item *kpblc-list-layer-status*
    (vla-put-lock (car item) (cdr (assoc "lock" (cdr item)))))
(setq *kpblc-list-layer-status* nil)(vla-EndUndoMark *kpblc-activedoc*)
(vla-regen *kpblc-activedoc* acallviewports))
(princ "\nЗагружены команды MIP_CHARPATH и MIP_CHPATH")

ЗЫ Добывил vl-load-com

VVA · 19.05.2016, 09:04

В #9 добавлена новая команда MIP_CHPATHTIF. Необходимость и подробности см тему Инвертируются битовые изображения из bmp-файлов

Цитата:

Сообщение от kserg

Проблема:
инвертируются битовые изображения из bmp-файлов, вставленных в dwg.
Наблюдается в AutoCAD 2016 и AutoCAD 2017.

Решение

Цитата:

Сообщение от Александр Ривилис

Если это работает, то пока это единственное реальное решение. Ничего другого пока Autodesk не предлагает, если не считать ручную замену BMP на TIF.

a-m-i-s · 19.05.2016, 09:54

Acad 2012.
При попытке поменять пути:
"Команда: MIP_CHPATH
Изменить путь [Растры/внСсылки/Все/Отмена] <Все> :С
слишком длинная спецификация имени файла"

При попытке поменять абсолютный на относительный:
"Команда: MIP_CHARPATH
Преобразовать в [Абсолютный/Относительный] формат <О>: О
no function definition: VLAX-ENAME->VLA-OBJECTнет определения функции:
VLAX-ERASED-P"
По поводу переустановки Acad для устранения последней ошибки уже слышал, может что-то изменилось?

VVA · 19.05.2016, 18:40

Цитата:

Сообщение от a-m-i-s

По поводу переустановки Acad для устранения последней ошибки уже слышал, может что-то изменилось?

пока другого пути, кроме как "до основания, а затем ..." не придумали

a-m-i-s · 20.05.2016, 15:57

После переустановки Acad 2012:

"Команда: MIP_CHPATH
Изменить путь [Растры/внСсылки/Все/Отмена] <Все> :В
; ошибка: no function definition: VLAX-GET-ACAD-OBJECT"

"Команда: MIP_CHARPATH
no function definition: VLAX-GET-ACAD-OBJECTнет определения функции:
VLA-ENDUNDOMARK"

Кулик Алексей aka kpblc · 20.05.2016, 16:35

http://autolisp.ru/2010/06/09/no-fun...t-acad-object/

a-m-i-s · 20.05.2016, 17:12

"Было как-то у меня подобное - попросту слетело несколько настроек. Но разбираться мне было лень, и я тупо переустановил AutoCAD (в полном объеме - т.е. снос, чистка реестра, установка)."
Так и сделал: снос, чистка, установка, даже код редактировал (vl-load-com) - результат нулевой.

20.11.2006, 23:28		#1
Акад2006-пропадают внешние ссылки Роб Рой Строитель-дорожник Зурбаган Регистрация: 17.11.2006 Сообщений: 25 Открываем текущий файл (главный) и выясняется,что все или некоторые внешние ссылки (x-refs) not found.Если все файлы сидят в одной директории,всё нормально.Кто-нибудь сталкивался с такой проблемой? __________________ Зачем человек лезет вверх?
Просмотров: 12079

Опции темы	Поиск в этой теме
	Поиск в этой теме: Расширенный поиск