[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'
Рабочая ссылка https://web.archive.org/web/20200203...ownload.htm#32

[TwoZero]

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

[TwoZero]

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

[Ingpro]

Сообщение от VVA VxSsetSelect - ActiveX counterpart to 'ssget'

Ссылка не рабочая, может есть такая же, только рабочая?

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

Сообщение от VVA Выбери объект "таблица"

Ответ кроется в этих словах, КМК )))

[Сергей812]

Сообщение от Ingpro Ссылка не рабочая, может есть такая же, только рабочая?

есть такая интересная и бесплатная (в настоящее время) вещь - как веб-архив

[name02]

Это из веб-архива:

Код:

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

 ;MeSsetSelect - ActiveX counterpart to 'ssget'

;
; -- Function MeSsetSelect
; ActiveX counterpart to 'ssget'.
; Copyright:
;   ©2002 MENZI ENGINEERING GmbH, Switzerland
; Arguments [Type]:
;   Nme = Selection set name [STR]
;   Mde = Select mode [INT] 1)
;         Constants:
;         - acSelectionSetWindow 
;         - acSelectionSetCrossing 
;         - acSelectionSetPrevious 
;         - acSelectionSetLast 
;         - acSelectionSetAll 
;   Pt1 = First window corner[list] 2)
;   Pt2 = Next window corner[list]  2)
;   Flt = Dotted pair list '((0 . "Name")...(8 . "Layer"))[list] 3)
; Return [Type]:
;   > New selection set [VLA-OBJECT]
; Notes:
;   1) If nil, SelectOnScreen is used
;   2) For select modes acSelectionSetWindow and acSelectionSetCrossing
;      only, else nil
;   3) Set to nil if not used
;
(defun MeSsetSelect (Nme Mde Pt1 Pt2 Flt / CurSet FltLst FstPnt NxtPnt)
 (setq CurSet (MeSsetMake Nme)
       FstPnt (cond (Pt1 (vlax-3d-point Pt1)) (T nil))
       NxtPnt (cond (Pt2 (vlax-3d-point Pt2)) (T nil))
       FltLst (cond (Flt (MeSsetFilter Flt)) (T nil))
 )
 (if Mde
  (if FltLst
   (vla-select CurSet Mde FstPnt NxtPnt (car FltLst) (cadr FltLst))
   (vla-select CurSet Mde FstPnt NxtPnt)
  )
  (if FltLst
   (vla-SelectOnScreen CurSet (car FltLst) (cadr FltLst))
   (vla-SelectOnScreen CurSet)
  )
 )
 CurSet
)

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

Как минимум еще нужна функция MeSsetMake )))

[Ingpro]

Сообщение от name02 Это из веб-архива:

Спасибо!

Сообщение от Сергей812 есть такая интересная и бесплатная (в настоящее время) вещь - как веб-архив

Ответ веб-архива:
"Результаты не найдены. Пожалуйста, попробуйте другой поисковый запрос"

[name02]

Нужно вводит адрес (URL) страницы
Ищи макросы тут https://web.archive.org/web/20200203...ownload.htm#32

[Ingpro]

Сообщение от name02 Нужно вводит адрес (URL) страницы Ищи макросы тут https://web.archive.org/web/20200203...ownload.htm#32

Благодарю, ссылка рабочая...