[Yura Agafonov]

Всем здравствуйте.
Дано: Активный чертеж 1.dwg, пространство модели. В него вставленная внешняя ссылка 2.dwg. Файл 2.dwg содержит в себе графический объект типа text.
Требуется: Находясь в файле 1.dwg программно получить содержимое текста в файле 2.dwg
Спасибо тем кто откликнутся.

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

Открывай ссылку как блок и читай ее (проходи по составу блоков).

[Yura Agafonov]

Может кто-нибудь кинет ссылок, где можно про это почитать?

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

В "Готовых программах", кажется, была программа по нормализации блоков.

[Yura Agafonov]

http://forum.dwg.ru/showthread.php?t=21492
Спасибо.
Интересно, а можно решить эту задачу бес ActiveX? В Полещуке ничего не нашел...

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

DXF Reference -> TABLES -> BLOCK
По-моему, там должно быть описание, как получать состав блока / ссылки.

[Yura Agafonov]

А объект типа внешняя ссылка не считается сложным объектом? -> (entnext) не прокатывает

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

Yura Agafonov, а ты понимаешь разницу между вхождением блока и описанием блока?

[Yura Agafonov]

ну да.

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

Блин, проще код написать:

Код:

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

 (defun test (/ ent lst)
  (if (and (= (type
                (setq ent (vl-catch-all-apply (function (lambda () (car (entsel "\nSelect XRef reference <Cancel> : "))))))
                ) ;_ end of type
              'ename
              ) ;_ end of =
           (= (cdr (assoc 0 (entget ent))) "INSERT")
           (setq ent (vla-item (vla-get-blocks (vla-get-activedocument (vlax-get-acad-object)))
                               (vla-get-name (vlax-ename->vla-object ent))
                               ) ;_ end of vla-item
                 ) ;_ end of setq
           (equal (vla-get-isxref ent) :vlax-true)
           ) ;_ end of and
    (progn
      (vlax-for subent ent
        (setq lst (cons subent lst))
        ) ;_ end of vlax-for
      lst
      ) ;_ end of progn
    (princ "\nCan't execute : nothing selected or selected entity is not an XRef")
    ) ;_ end of if
  ) ;_ end of defun