[vladimirr_b]

В чертеже есть динамический блок с именем "ramka_din". Когда этот блок был не динамическим, то добавление всех этих блоков в набор осуществлял следующим образом:

Код:

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

 (setq sdel (ssget "X" '((2 . "ramka_din") ))) 

После добавления в блок "ramka_din" параметра видимости, код перестал добавлять объекты в набор, так как в поле с dxf-кодом 2 стоит имя "*U75", а не "ramka_din" как раньше.
Как теперь добавлять в набор все блоки с именем "ramka_din"?

[AndruxaZ]

Посмотри здесь http://www.lee-mac.com/effectivename.html
Ищи также темы "эффективное имя блока"

----- добавлено через ~46 мин. -----
Нашёл у себя вот такой код. Правда длинный

Код:

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

 (defun c:test ( / blk )
    (setq blk "Имя блока";Вписать нужное имя блока
	   )
    (if (tblsearch "block" blk)
        (sssetfirst nil (getblockselection blk))
        (princ (strcat "\n" blk " doesn't exist."))
    )
    (princ)
)

(defun getblockselection ( blk )
    (ssget "_X"
        (list '(0 . "INSERT")
            (cons 2
                (apply 'strcat
                    (cons blk
                        (mapcar '(lambda ( x ) (strcat ",`" x))
                            (LM:getanonymousreferences blk)
                        )
                    )
                )
            )
        )
    )
)

(defun LM:getanonymousreferences ( blk / ano def lst rec ref )
    (setq blk (strcase blk))
    (while (setq def (tblnext "block" (null def)))
        (if
            (and (= 1 (logand 1 (cdr (assoc 70 def))))
                (setq rec
                    (entget
                        (cdr
                            (assoc 330
                                (entget
                                    (tblobjname "block"
                                        (setq ano (cdr (assoc 2 def)))
                                    )
                                )
                            )
                        )
                    )
                )
            )
            (while
                (and
                    (not (member ano lst))
                    (setq ref (assoc 331 rec))
                )
                (if
                    (and
                        (entget (cdr ref))
                        (= blk (strcase (LM:al-effectivename (cdr ref))))
                    )
                    (setq lst (cons ano lst))
                )
                (setq rec (cdr (member (assoc 331 rec) rec)))
            )
        )
    )
    (reverse lst)
) ; end of defun
                        
;; Effective Block Name  -  Lee Mac
;; ent - [ent] Block Reference entity

(defun LM:al-effectivename ( ent / blk rep )
    (if (wcmatch (setq blk (cdr (assoc 2 (entget ent)))) "`**")
        (if
            (and
                (setq rep
                    (cdadr
                        (assoc -3
                            (entget
                                (cdr
                                    (assoc 330
                                        (entget
                                            (tblobjname "block" blk)
                                        )
                                    )
                                )
                               '("AcDbBlockRepBTag")
                            )
                        )
                    )
                )
                (setq rep (handent (cdr (assoc 1005 rep))))
            )
            (setq blk (cdr (assoc 2 (entget rep))))
        )
    )
    blk
) ; end of defun

[ProPeller]

Сообщение от AndruxaZ Нашёл у себя вот такой код. Правда длинный

Вот так покороче будет. Только на выходе будет список Vla указателей.

Код:

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

 (vl-remove-if-not
 '(lambda (l1)
   (= (vla-get-EffectiveName l1) "ramka_din")
  )
 (mapcar
  'vlax-ename->vla-object
  (mapcar
   'cadr
   (ssnamex
    (ssget "_X"
	   (list (cons 0 "INSERT")
		 (cons 2 "ramka_din,`*U*")
	   )
    )
   )
  )
 )
)

[gomer]

Сообщение от ProPeller Вот так покороче будет.

Разве этот код не выберет все анонимные блоки? смысл же в том чтоб отфильтровать не нужное на этапе выбора, а не по факту...

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

vl-remove-if и отфильтует...

[kp+]

Подниму старую тему.
Есть ли решение для фильтрации набора по имени дин. блока "на ходу", во время его формирования?
Для обычных блоков было удобно использовать что-то вроде

Код:

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

(setq ss (ssget "_:E" '((0 . "INSERT") (2 . "блок____")))))

В этом случае блоки с определенным именем выбираются путем поочередного указания на каждый из них. При этом наглядно видно, какие блоки выбираются, и сколько их выбрано. Можно ли придумать что-то подобное для динамических блоков?
Приведенные выше коды хорошо справляются с уже сформированными наборами, но формировать их надо "навалом", а фильтрация - после.

Есть идея получить "статические" имена всех экземпляров динблока типа (2 . "*U777") и сформировать на их основе фильтр для ssget с помощью <OR .... OR>, но это кажется извратом. Нет ли более вменяемого решения?

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

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

[VVA]

Сообщение от kp+ Есть идея получить "статические" имена всех экземпляров динблока типа (2 . "*U777")

Как вариант Lisp. Выбор динамических блоков с атрибутам скопом. и Get Anonymous References

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

Offtop: VVA, подобный номер прокатывает только если не учитывать дин.блоки, входящие в другие блоки (насколько я помню; сейчас проверить нет никакой возможности). Если вложенные блоки не требуются, то можно и указанными способами воспользоваться.

[VVA]

Кулик Алексей aka kpblc, Вполне возможно. Просто вспомнил, что "Эту булочку я уже где-то видел" (с)

[kp+]

Спасибо за разъяснения и ссылки. Вложенные блоки не требуются. Буду разбираться