[Евгений V]

Подскажите, пожалуйста, в каком направлении копать?
В рисунке нужно найти блоки, в которых отсутствуют примитивы определенного типа, в частности, 3d solid. Как это сделать с помощью lisp?

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

К примеру, так:

Код:

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

(vl-load-com)

(defun check-block-definitions-within-type (mask / adoc res f)
                                           ;|
*    Выводит имена всех блоков, в которых есть примитив указанной маски
|;
  (vlax-for blk_def (vla-get-blocks (setq adoc (vla-get-activedocument (vlax-get-acad-object))))
    (if (and (not (equal (vla-get-modelspace adoc) blk_def))
             (equal (vla-get-islayout blk_def) :vlax-false)
             (equal (vla-get-isxref blk_def) :vlax-false)
             ) ;_ end of and
      (progn
        (setq f    nil
              mask (strcat "*" (vl-string-trim "*" (strcase mask)) "*")
              ) ;_ end of setq
        (vlax-for ent blk_def
          (if (and (not f)
                   (or (wcmatch (strcase (vla-get-objectname ent)) mask)
                       (wcmatch (strcase (cdr (assoc 0 (entget (vlax-vla-object->ename ent))))) mask)
                       ) ;_ end of or
                   ) ;_ end of and
            (setq res (cons (vla-get-name blk_def) res)
                  f   t
                  ) ;_ end of setq
            ) ;_ end of if
          ) ;_ end of vlax-for
        ) ;_ end of progn
      ) ;_ end of if
    ) ;_ end of vlax-for
  res
  ) ;_ end of defun

[Евгений V]

Буду разбираться, спасибо.