[Krieger]

Как найти блоки в блоках?
1. Есть некий блок bloсk1, который входит в состав блоков block2-1, block2-2 и т. д. Нужно выбрать все блоки в состав которых входят блоки bloсk1.
2. Получить список всех блоков (bloсk1-1, bloсk1-2 и т.д.) входящих в блок (block2-1).

Наверняка кто-то решал подобные задачки, поделитесь примером.

Может быть как то штатными средствами можно это решить? Я вижу только один - расчленить все и найти qselect-ом. Потом все восстанавливать. Но это долго и не удобно.

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

Что-то наподобие

Код:

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

 (vl-load-com)

(defun tt (blk-name / res f)
  (defun f (ent)
    (if (vlax-property-available-p ent 'effectivename)
      (vla-get-effectivename ent)
      (vla-get-name ent)
      ) ;_ end of if
    ) ;_ end of defun

  (vlax-for blk_def (vla-get-blocks (vla-get-activedocument (vlax-get-acad-object)))
    (if (and (equal (vla-get-isxref blk_def) :vlax-false)
             (equal (vla-get-islayout blk_def) :vlax-false)
             ) ;_ end of and
      (vlax-for subent blk_def
        (if (and (wcmatch (strcase (vla-get-objectname subent)) "*BLOCKREF*")
                 (wcmatch (strcase (f subent)) (strcase blk-name))
                 (not (member (f blk_def) res))
                 ) ;_ end of and
          (setq res (cons (f blk_def) res))
          ) ;_ end of if
        ) ;_ end of vlax-for
      ) ;_ end of if
    ) ;_ end of vlax-for
  res
  ) ;_ end of defun

Код не тестировал. blk-name - полное имя искомого блока.

[Krieger]

Спасибо. А что этот код делает? Что то не могу я в него врубиться. Выдает nil.

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

Образец файла приложи, попробую проверить. И укажи, какой блок ищешь.

[Krieger]

Например, ищу кружочки.

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

Код исправил - звездочку одну забыл ))

[Krieger]

Спасибо. Теперь работает. Список создается, дальше допилю.

А по второму пункту не поможешь? Нужен список блоков 1-го уровня вложенности в блоке, например, "Набор1".

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

Если коротко: получаешь указатель на описание блока, проходишь по всем элементам блока. Если элемент удовлетворяет каким-либо требованиям - то его в результирующий список.

[Krieger]

Спасибо. Сам я долго копать буду...

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

Код:

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

 (vl-load-com)

(defun tt1 (/ f ent res)
  (defun f (ent)
    (if (vlax-property-available-p ent 'effectivename)
      (vla-get-effectivename ent)
      (vla-get-name ent)
      ) ;_ end of if
    ) ;_ end of defun

  (if (and (setq ent (car (entsel "\nSelect block <Cancel> : ")))
           (= (cdr (assoc 0 (entget ent))) "INSERT")
           ) ;_ end of and
    (vlax-for subent (vla-item (vla-get-blocks (vla-get-activedocument (vlax-get-acad-object)))
                               (f (vlax-ename->vla-object ent))
                               ) ;_ end of vla-item
      (if (and (= (vla-get-objectname subent) "AcDbBlockReference")
               (not (member (f subent) res))
               ) ;_ end of and
        (setq res (cons (f subent) res))
        ) ;_ end of if
      ) ;_ end of vlax-for
    ) ;_ end of if
  (vl-sort res '<)
  ) ;_ end of defun

[Krieger]

Спасибо. Ты лучший.

[VVA]

Еще похожие темы
Find nested blocks
Nested Block Counter
Как lisp-ом вывести список вхождений блоков?
Extract Nested Block