[TwoZero]

Есть такая проблема, нужно отследить (узнать объект) таблицы на чертеже, но таблицы эти нужно отслеживать не на текущем чертеже (активном документе) а на только что созданном документе (программным путем) который не активен.
Краткий пример того что мне нужно:
1. Программным путем создается новый документ (он неактивен)
2. Идет вставка примитивов в том числе и таблицы
3. Необходимо отследить объекты таблиц чтобы в дальнейшем заполнить эти таблицы данными (?)

Все таблици на чертеже можно отследить при помощи этого кода, который я написал:
;|=============================================================================
* Функция отслеживает все таблицы в AutoCAD
*
* Локальные переменные:
* table_data - Список с характеристиками примитива таблицы
* table_ent - Примитив таблицы
* n - Вспомогательная перменная (кол-во таблиц на чертеже)
*
=============================================================================|;
(defun SHPIL-BLOCKS_TABLES ( / n table_ent table_data)
(setq table_ent (entnext))

(setq n 0)
(while table_ent
(setq table_data (entget table_ent))

(if (= (cdr (assoc 0 table_data)) "ACAD_TABLE")
(setq n (+ n 1))
); end of if

(setq table_ent (entnext table_ent))
); end of while

(princ (itoa n))
); end of SHPIL-BLOCKS_TABLES

Но этот код отслеживает таблици лиш на текущем чертеже (активном документе), а мне нужно отследить таблици на соседнем документе.
Подскажите как это можно реализовать.

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

Что значит "отслеживает"? Что тебе надо получить от таблицы? Потому как работа через ActiveX более удобна.

[TwoZero]

Сообщение от Кулик Алексей aka kpblc Что значит "отслеживает"? Что тебе надо получить от таблицы? Потому как работа через ActiveX более удобна.

для того чтобы заполнять определенные яйчейки таблици нужно знать объект таблици, так вот мне этот объект и нужно узнать

[TwoZero]

Код:

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

(defun _kpblc-get-table-objects (doc / res)
                                ;|
*    Получение списка объектов ACAD_TABLE документа
*    Параметры вызова:
     doc     обрабатываемый документ. nil -> текущий
|;
  (or doc (setq doc (vla-get-activedocument (vlax-get-acad-object))))
  (vlax-for blk_def (vla-get-blocks doc)
    (if (equal (vla-get-islayout blk_def) :vlax-true)
      (vlax-for sub blk_def
        (if (= (vla-get-objectname sub) "AcDbTable")
          (setq res (cons sub res))
          ) ;_ end of if
        ) ;_ end of vlax-for
      ) ;_ end of if
    ) ;_ end of vlax-for
  res
  ) ;_ end of defun

[TwoZero]

Код:

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

(defun _kpblc-get-table-objects-within-blocks (doc / res)
                                              ;|
*    Получение списка объектов ACAD_TABLE документа
*    Параметры вызова:
     doc     обрабатываемый документ. nil -> текущий
|;
  (or doc (setq doc (vla-get-activedocument (vlax-get-acad-object))))
  (vlax-for blk_def (vla-get-blocks doc)
    (vlax-for sub blk_def
      (if (= (vla-get-objectname sub) "AcDbTable")
        (setq res (cons sub res))
        ) ;_ end of if
      ) ;_ end of vlax-for
    ) ;_ end of vlax-for
  res
  ) ;_ end of defun

[VVA]

Выбери объект "таблица" в нужном документе с помощью ActiveX. Пример здесь: VxSsetSelect - ActiveX counterpart to 'ssget'

[TwoZero]

Первый вариант только по протранствам модели/листа, второй пройдет и по блокам (точнее, по описаниям блоков).
Вхождения таблиц в конкретные блоки смысла делать ноль

[TwoZero]

ПОСЛЕДНИИ ДВА КОДА И ОТВЕТЫ ПРИНАДЛЕЖАТ КУЛИКУ АЛЕКСЕЮ