[smigami]

Как вставить в один файл много ссылок на .dwg? (многократная команда xattach) а то по одной как-то скучно...

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

http://www.google.ru/cse?cx=partner-...%BA&gsc.page=1

[VVA]

Вариант отсюда
Вставляет из подпапки с именем XREF все чертежи как внешние ссылки на слой Xref
1. В корневой папке с чертежом создаешь подпапку с именем XREF
2. Копируешь туда чертежи
3. Загружаешь лисп. Команда XATT

Код:

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

 
(defun C:XATT (/ path lst sett)
;;;Attach Xref from a subfolder named XREF of the main drawing
;;;Posted http://www.cadtutor.net/forum/showthread.php?91669-looking-for-a-lisp-or-script-to-attach-a-xref
;;;http://forum.dwg.ru/showthread.php?p=1387542
  (vl-load-com)
  (setvar "TILEMODE" 1) ;_switch to Model
  (setq sett (mapcar '(lambda (x)(getvar x))
  '("INSUNITSDEFSOURCE" "INSUNITSDEFTARGET" "INSUNITS" "EXPERT")
  ))
  (vl-cmdf "_Layer" "_Make" "Xref" "") ;_make Layer named Xref
  (setq	path (vl-string-right-trim "\\" (getvar "DWGPREFIX")) ;_get path of the main drawing
	path (strcat path "\\" "Xref") ;_get path to subfolder named Xref
  )
  (mapcar '(lambda (x)
	     (vl-catch-all-apply
	       '(lambda	()
		  (vla-attachexternalreference
		    (vla-get-modelspace
		      (vla-get-activedocument (vlax-get-acad-object))
		    )
		    x
		    (vl-string-translate
		      ",.$#=@^\`"
		      "-_dpeaut"
		      (vl-filename-base x)
		    )
		    (vlax-3d-point '(0 0 0))
		    1
		    1
		    1
		    0
		    :vlax-true
		  )
		)
	     )
	   )
	  (setq lst (z-files-in-directory path "*.dwg" nil))
  )
  (mapcar '(lambda (x y)(setvar x y))
  '("INSUNITSDEFSOURCE" "INSUNITSDEFTARGET" "INSUNITS" "EXPERT")
  sett
  )
  (if lst
    (alert
      (strcat (itoa (length lst)) " xref attached from\n" path)
    )
    (alert (strcat "Nothing xref found in\n" path))
  )
  (princ)
)
;;;* Function z-files-in-directory returns a list of files located in a given
;;;* directory
;;;*    Author: Vitaly Zuenko (ZZZ)
;;;* Parameters:
;;;*    Directory - path eg "D:\\my documents\\ZEF\\Lisp"
;;;*    Pattern - template such as "*. lsp", or a list'("*. dwg "" *. dxf ")
;;;*    Nested  -  search in subfolders: t (yes) or nil (no)
;;;* Example call:
;;;(Z-files-in-directory "D:\\my documents\\ZEF\\Lisp" "*. dwg" t)
;;;(Z-files-in-directory "D:\\my documents\\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
	   )
    )
  )
)
(princ "\nType XATT in command line")
(vl-load-com)

[shartal]

Почему бы просто не выделить все нужные с shift или ctrl в окне выбора файла ссылки. Так только с растрами нельзя поступать, но вопрос то про dwg.

[smigami]

Спасибо! попытаюсь попробовать.

Теперь задача, правда, немного изменилась...
папка с чертежами .dxf стопиццот штук (чертежи пластин из адванса)
как бы их всех оптом внедрить в dwg? в идеале - чтоб еще и ссылка была живая)))

----- добавлено через ~16 мин. -----

Сообщение от shartal Почему бы просто не выделить все нужные с shift или ctrl в окне выбора файла ссылки

не знаю, как у Вас, у меня автокад 2012, и в окне выбора ссылки можно указать только один файл.......

[VVA]

Сообщение от smigami папка с чертежами .dxf стопиццот штук (чертежи пластин из адванса)

Нужно сконвертировать в dwg
1. Есть платные конвертеры
2. DWG TrueView Но там, неверное, придется по обному файлу
3. Добро пожаловать в сценарии (script) Автокада
Применить ко многим файлам можно с помощью Script Writer от Lee Mac'a
Правда чтобы обрабатывал dxf нужно в коде найти строку "*.dwg" и заменить на "*.dxf"
Строка скрипта для применения такая

_.open *file* _.saveas 2007 _.close

Обращаю внимание на пробелы!!!! между 2007 и _.close два пробела
2007 - версия dwg файла (возможные варианты 2004, 2007, 2010, 2013)

PS Добавил во вложение модифицированный лисп. Достаточно указать директорию и ввести требую версию dwg файла (2004 2007 2010 2013)

[baksconstructor]

Сообщение от smigami Теперь задача, правда, немного изменилась... папка с чертежами .dxf стопиццот штук (чертежи пластин из адванса) как бы их всех оптом внедрить в dwg?

Ну как вариант сделать этим.