[Yura Agafonov]

Дано: Есть несколько файлов .dwg с одинаковым именем но в разных папках. Например D:\1\1.dwg D:\2\1.dwg D:\3\1.dwg.
Во всех файлах различное содержимое. Все они через (command "_Xref") вставляются в один и тот же файл, а дальше вполне предсказуемо происходит совпадение имен и все ссылки имеют одинаковое содержимое.

Требуется: Не меняя названия файлов и, не переименовывая программно уже вставленные ссылки, заставить автокад не уравнивать содержимое внешних ссылок с одинаковыми именами, но разными путями к файлу.

Спасибо.

[VVA]

Используй vla-attachexternalreference
Аргумент Name (The name for the xref to be created.) формируй программно, чтобы имя было уникальным. Ниже пример - директория+ имя файла. Символы ":\" заменены подчеркиванием "_"

Код:

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

(vl-load-com)
(setq fname1 (findfile "D:\\1\\1.dwg"))
(setq fname2 (findfile "D:\\2\\1.dwg"))
(vla-attachexternalreference
			 (vla-get-modelspace (vla-get-activedocument (vlax-get-acad-object)))
			 fname1
			(vl-string-translate ":\\" "__" (strcat (vl-filename-directory fname1) "-" (vl-filename-base fname1)))
			 (vlax-3d-point '(0 0 0))
			 1
			 1
			 1
			 0
                        :vlax-true
	       )
(vla-attachexternalreference
			 (vla-get-modelspace (vla-get-activedocument (vlax-get-acad-object)))
			 fname2
			 (vl-string-translate ":\\" "__" (strcat (vl-filename-directory fname2) "-" (vl-filename-base fname2)))
			 (vlax-3d-point '(0 0 0))
			 1
			 1
			 1
			 0
                        :vlax-true
	       )

[Yura Agafonov]

не переименовывая программно уже вставленные ссылки

Спасибо. Наверное это действительно единственный адекватный вариант.