[Алиевич]

Найти блок в чертеже по значению атрибута

[Vova]

_find

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

Алиевич, это - не готовые программы, а неизвестно что. Топик перемещен.

[Алиевич]

А если тзгов с десяток?. Спасибо за оперативный ответ.

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

Алиевич, а если расписать задачу пополнее?

[Алиевич]

Задача.
В чертеже 114 разнообразных блоков;
- с разными или с одинаковыми именами
- с разным количеством тэгов
- атрибуты создавались на разных слоях
- атрибуты имеют различный режим отображения
- блоки могут находится на невидимых слоях
Найти блок с указанным именем по значению выбранного тэга и зуммировать его.
Если блоков с указанными параметрами более одного, то показать их по нажатию любой клавиши (листать)...

Есть еще что расписать, но думаю это будет сверх нахальством.

Спасибо еще раз за оперативный ответ.

[bernata]

Может _filter поможет ?
Там можно вручную прописать название тэга.
А для удобства работы с большим количеством объектов можно создать именованные фильтры (named filters) и по очереди их использовать...
пока не запутаешся окончательно

[fixo]

Сообщение от Алиевич Задача. В чертеже 114 разнообразных блоков; - с разными или с одинаковыми именами - с разным количеством тэгов - атрибуты создавались на разных слоях - атрибуты имеют различный режим отображения - блоки могут находится на невидимых слоях Найти блок с указанным именем по значению выбранного тэга и зуммировать его. Если блоков с указанными параметрами более одного, то показать их по нажатию любой клавиши (листать)... Есть еще что расписать, но думаю это будет сверх нахальством. Спасибо еще раз за оперативный ответ.

Делал для себя нечто похоже
думаю для основы подойдет
Переделывай под свои нужды сам -
у меня времени нет

Код:

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

;; local defun
;; extract blocks by desired tag and particular value of an attribute
(defun get-blocks-by-attvalue (bname tag value / catch data elist ent flag ss ss2)
  (if
  (setq ss (ssget "_X" (list (cons 0 "INSERT")
			     (cons -4 "<AND")
			     (cons 410 (getvar "CTAB"))
			     (cons 2 bname)
			     (cons 66 1)	     
			     (cons -4 "AND>"))))
  (progn
    (setq ss2 (ssadd))
  (while
    (setq ent (ssname ss 0) catch ent)
    (setq flag nil)
    (setq data (entget ent))
    (while (not (eq (cdr (assoc 0 data)) "SEQEND"))
     (setq ent (entnext ent))
     (setq data (entget ent))
     (if
      (and
       (= (cdr (assoc 0 data)) "ATTRIB")
       	 (eq (strcase (cdr (assoc 2 data)))(strcase tag))
	 (eq (cdr (assoc 1 data)) value)
      )
      (setq flag T)
      )
      )
    (if flag
      (ssadd catch ss2)
      )
    (ssdel catch ss)
    )
  )
  )
  ss2
  )

;;=================main part================;;

(defun c:demo (/ )
(if
  ;|"MyBlock" - block name
    "TAG1" - tag name
    "Value1" - attribute value|;
(setq ss (get-blocks-by-attvalue "MyBlock" "TAG1" "Value1"))
(progn
  (alert "Press any key to zoom\nobjects one by another\ntill the loop end up")
(setq i 0)
 (while (< i (sslength ss))
    (setq ent (ssname ss i))
    (if (read-char)
      (command "_.zoom" "_Object" ent "")
      )
   (setq i (1+ i))
   )
  )
)
  (command "_.zoom" "_Extents")
(princ)
)
;|autorun|; (c:demo)

~'J'~

[Алиевич]

fixo, если бы я умел "переделывать под себя"....
Т=-274 град/С - абсолютный нуль.
-281 град/С - мое умение программировать.

[Composter]

вот мой вариант

Код:

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

(defun zod40 (zz / i ss1 ss2)
(princ "\nИщет текст в атирибутах блоков и выделяет блоки")
(setq	i	0
	ss2 	(ssadd)
	ss1	(ssget "_X" '((0 . "INSERT")))
)
(repeat (sslength ss1)
(if	(numberp(vl-catch-all-apply 'length(list(setq Att_s (vl-catch-all-apply 'vlax-safearray->list(list(vlax-variant-value(vla-GetAttributes (vlax-ename->vla-object (ssname ss1 i))))))))))
	(progn	(mapcar	'(lambda (name)
			(if	(equal (vla-get-TextString name) zz)
				(ssadd (ssname ss1 i) ss2)
			)
			)
		Att_s)
	)
)
(setq i (1+ i))
)
(sssetfirst nil ss2)
(princ)
)

лисп ищет текст во всех блоках(в модели и в листах,не удивляетесь если у вас выделено несколько блоков,а вы их не видете в модели) чтобы запустить наберите (zod40 "искомый текст")