[Gaa]

Кто знает?
как можно определить,не заглядывая в XREF manager, какие внешние файлы подгружаются в чертеж ?

или это сист. переменная?
или лисп прога?

[Vook]

А зачем, если не секрет?

[Gaa]

Не секрет.
В сопроводиловке и в четеже указать имя главного файла ну и все остальное. Чтобы упростить жизнь пользователю ну и для себя - после долгого перерыва быстрее разобраться.

[Vook]

Лучше не передавать чертежи со ссылками. Ссылки нужны для удобства работы. А при выпуске их нужно встраивать в чертеж (Bind)

[Gaa]

А при выпуске их нужно встраивать в чертеж (Bind)

Это многократно утяжеляет чертеж, и каждый раз пересылать смежнику до 80% не меняемого баласта???

[Alaspher]

Попробуй так:

Код:

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

(vl-load-com)

(defun demo ()
  (vlax-for b (vla-get-Blocks (vla-get-ActiveDocument (vlax-get-acad-object)))
    (if (= (vla-get-IsXRef b) :vlax-true)
      (print (vla-get-Path b))
    )
  )
  (princ)
)

Вызов:

Код:

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

(demo)

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

Сообщение от Vook Лучше не передавать чертежи со ссылками. Ссылки нужны для удобства работы. А при выпуске их нужно встраивать в чертеж (Bind)

ИМХО, много раз ИМХО: а не лучше ли использовать _etransmit? Все в одно место закинет, и мучиться не надо.

[Gaa]

попробовал, он выдает ошибку:

Command: (demo) ; error: ActiveX Server returned the error: unknown name: Path

[Alaspher]

Сообщение от Gaa попробовал, он выдает ошибку: Command: (demo) ; error: ActiveX Server returned the error: unknown name: Path

Значит у тебя AutoCAD версии ниже 2004. Сорри!

[Gaa]

Значит у тебя AutoCAD версии ниже 2004. Сорри!

Плеазе!
Ваша правда АСАД 2000,
но все равно спасибо за помощь!

[Vook]

etransmit тоже решение спорное... Получается файл в папке с кучей всякой фигни (ссылок, шрифтов и т.п.).

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

А лучше выдавать dwf или pdf и не париться

[Alaspher]

для R15 могу предложить только что-то такое (наскоро):

Код:

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

(defun demo (/ func)
  (setq	func (if (< (atof (getvar "acadver")) 16)
	       vla-get-Name
	       vla-get-Path
	     )
  )
  (vlax-for b (vla-get-Blocks
		(vla-get-ActiveDocument (vlax-get-acad-object))
	      )
    (if	(= (vla-get-IsXRef b) :vlax-true)
      (print (func b))
    )
  )
  (princ)
)

Выдаст (хотя-бы) имена блоков являющихся ссылками (не обязательно, что совпадают с именами файлов). В R16 функциональность прежняя (должна быть 8)).

[Gaa]

Спасибо Alaspher.

Пошло!