[815wsw]

Помогите с командой/макросом/лиспом в автокаде "выделить все блоки" и "выделить все штриховки" ? Постоянно нужно выделять, через команду быстрый выбор теряется много времени, а команда выбрать подобные работает только на одинаковые объекты, находящиеся только в одном слое

[Ilez]

Сообщение от 815wsw Помогите с командой/макросом/лиспом в автокаде "выделить все блоки" и "выделить все штриховки" ?

1) Скорее всего вы пользуетесь командой "выбрать подобные" предварительно выбрав требуемые объекты. Попробуйте, не выделив никаких объектов, запустить эту команду _SelectSimilar, затем через командную строку зайдите в настройки (этой команды). Там снимите все галочки - теперь при использовании он должен выделять все блоки, попробуйте. Эта настройка данной команды сохранится, пока не измените.

2)В команде Фильтр создать именованный фильтр. Кроме того, последний фильтр сохранится. Но этот способ несущественно быстрее, чем через Быстрый выбор.

[815wsw]

спасибо, про настройки команды выбрать подобные не знал. проблема в том, что приходится искать объект для подобия, а если на большом чертеже остается всего пару блоков, то их просто не найдешь. через команду фильтр тоже хороший вариант, но хотелось бы уйти вообще в одно нажатие, чтобы экономить время

[VVA]

ObjectARX. SelSim - выбор по образцу Очень мощный и простой инструмент для выбора

[trir]

https://github.com/triroakenshield/R...RViewer1/mitab

[skkkk]

Код:

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

(if (setq ss (ssget "_X" '((0 . "INSERT"))))(sssetfirst nil ss))

Код:

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

(if (setq ss (ssget "_X" '((0 . "HATCH"))))(sssetfirst nil ss))

[815wsw]

спасибо! то что нужно

[Gretech89]

А как выделить все блоки, содержащие штриховку?

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

Тогда уж проще будет сначала выделить блоки, потом пройтись по составу каждого, и оставить только те, в которых а) есть штриховка и б) она видима.

[Сергей812]

Сообщение от Кулик Алексей aka kpblc Тогда уж проще будет сначала выделить блоки, потом пройтись по составу каждого, и оставить только те, в которых а) есть штриховка и б) она видима.

выделить?)

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

Я подразумевал, что юзер выбирает, а потом кодом уже фильтруется

----- добавлено через ~2 мин. -----
ИМХО в любом случае простого кода типа ssget тут не получится

[Сергей812]

Сообщение от Gretech89 А как выделить все блоки, содержащие штриховку?

имхо - получить все вставки блоков в текущем пространстве, в их определениях проверить наличие примитивов штриховки и выделить нужные вставки блоков в текущем пространстве.

----- добавлено через ~3 мин. -----
или наоборот, сначала выбрать определения блоков с наличием примитивов штриховки, затем в текущем пространстве отфильтровать и выделить вставки блоков.

[Gretech89]

Не тем путем пошел?

Код:

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

 (defun c:sel_BlockHatch (/ ss eo blst bcol b)
 (if (ssget "_:L" '((0 . "INSERT")))
 (progn
 (setq ss (vla-get-ActiveSelectionSet (vla-get-ActiveDocument (vlax-get-acad-object))))
 (vlax-for eo ss
 (if (not (vl-position (vla-get-EffectiveName eo) blst))
 (setq blst (cons (vla-get-EffectiveName eo) blst))
 )
 )
 (vla-Delete ss)
 )
 )
 (setq bcol (vla-get-Blocks (vla-get-ActiveDocument (vlax-get-acad-object))))
 (foreach ss blst
 (setq b (vla-Item bcol ss))
 (if (and
 (eq :vlax-false (vla-get-isxref b))
 (eq :vlax-false (vla-get-islayout b))
 )
 (vlax-for eo b
 (if (wcmatch (vla-get-ObjectName eo) "AcDbHatch")
 (sssetfirst nil (ssadd (entlast)))
 )
 )
 )
 )
 (vla-Regen (vla-get-ActiveDocument (vlax-get-acad-object)) acAllViewports)
 (princ)
)

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

Как-то больно странно код написан ИМХО.

Код:

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

 (vl-load-com)

(defun c:select-block-hatch (/ adoc base_selset doc_blocks block_list)
  (if (= (type (setq base_selset
                      (vl-catch-all-apply
                        (function
                          (lambda ()
                            (ssget '((0 . "INSERT")))
                          )
                        )
                      )
               )
         )
         'pickset
      )
    (progn
      (setq adoc       (vla-get-activedocument (vlax-get-acad-object))
            doc_blocks (vla-get-blocks adoc)
            block_list (vl-remove-if-not
                         (function
                           (lambda (ent / def has_hatch)
                             (setq def (vla-item doc_blocks (cdr (assoc 2 (entget ent)))))
                             (vlax-for subent def
                               (if (and (not has_hatch)
                                        (equal (vla-get-visible subent) :vlax-true)
                                   )
                                 (setq has_hatch (equal (vla-get-objectname subent) "AcDbHatch"))
                               )
                             )
                             has_hatch
                           )
                         )
                         ((lambda ()
                            (repeat
                              (setq
                                tab
                                     nil
                                item
                                     (sslength base_selset)
                              ) ;_ end setq
                               (setq tab (cons (ssname base_selset (setq item (1- item))) tab))
                            )
                          )
                         )
                       )
      )
      (if block_list
        (progn
          (setq selset (ssadd))
          (foreach item block_list
            (setq selset (ssadd item selset))
          )
          (sssetfirst selset selset)
        )
        (sssetfirst nil nil)
      )
    )
  )
  (princ)
)

[Gretech89]

Кулик Алексей aka kpblc, спасибо за отличный вариант!