[Вовочка]

Админ, не баньте, пожалуйста,
Эту тему - http://forum.dwg.ru/showthread.php?t=99874 я смотрел.
Прислали чертеж, в котором есть множество атибутов не привязаных к блокам. Всеми средвами, которые у меня есть я пробовал сделать поиск. Но воз и ныне там.

Большое спасибо.

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

_find ?

[Вовочка]

Найдите, пожалуйста в приложенном файле значение атрибута "084", но не визуально, найти должна программа.

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

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

[Вовочка]

Я поддерживаю Ваше стремление к грамотной передачи проектной документации. Полумера не проходит. Тренирую глаза. Аля AutoCAD Шульце.

[Oleg T]

Сообщение от Вовочка Найдите, пожалуйста в приложенном файле значение атрибута "084", но не визуально, найти должна программа.

Нашел. Разве в автокаде так нельзя? Или я что-то не понял?

[engngr]

_.QSELECT

[Вовочка]

Действительно. Все оказалось банально. Всем спасибо.

[kp+]

Сообщение от Кулик Алексей aka kpblc В качестве "полумеры" - если атрибутам назначить значения, равные их тэгам, то все будет находиться.

_.QSELECT

В качестве радикальной меры - моя старая прога, немного переделанная под данный случай. На место "недоблоков" и "недоатрибутов" вставляются нормальные блоки room_num с нормальными атрибутами, соответствующими именам "недоатрибутов". Масштаб вставки привязан к масштабу текущего размерного стиля.
Гуру, не ругайте за низкий штиль программирования.

Код:

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

 (defun c:premices (/ ELS ERUM MAXP MINP POINT POINTLIST SS SSF TXT TXT_STRING ACAD_APP ADOC ERUM_ATT)

(setq snap_mode (getvar "osmode"))
(setvar "osmode" 0)
  
  (setq acad_app (vlax-get-acad-object))
  (setq adoc (vla-get-activedocument acad_app))

  (vla-StartUndoMark adoc)

  (vl-cmdf "_zoom" "_a")

  (setq ss (ssget "_x" '((2 . "A$C3A4F5D0C") (0 . "INSERT") )))
  (setq ssf (ssnamex ss))
  (setq ssf (mapcar 'cadr ssf))
  (setq ssf (vl-remove-if-not '(lambda (x) (eq (type x) 'ENAME)) ssf))
  (setq ss nil)

  (setq els (mapcar 'vlax-ename->vla-object ssf))

  (foreach x els
    (vla-getboundingbox x 'minp 'maxp)
	    (setq minp (vlax-safearray->list minp))
	    (setq maxp (vlax-safearray->list maxp))

    
    (setq pointlist (list
                   minp
                   (list (nth 0 minp) (nth 1 maxp) (nth 2 minp))
                   maxp
                   (list (nth 0 maxp) (nth 1 minp) (nth 2 minp))
                  )
    )

    (setq ss (ssget "_CP" pointlist '((0 . "ATTDEF"))))

    (setq txt (ssname ss 0))

    (setq ss nil)

    (if txt
      (progn
         (setq txt_string (vla-get-TagString (vlax-ename->vla-object txt)))
	 (setq point (vla-get-insertionpoint (vlax-ename->vla-object txt)))
	 (setq point (vl-catch-all-apply (function vlax-safearray->list) (list (vlax-variant-value point))))

	 (setvar "clayer" (vla-get-layer x))
	
	 (vl-cmdf "_-insert" "room_num" point
		  (cdr (assoc 40 (tblsearch "DIMSTYLE" (getvar "DIMSTYLE"))))
		  (cdr (assoc 40 (tblsearch "DIMSTYLE" (getvar "DIMSTYLE"))))		  
		  0
         )

	 (setq erum (vlax-ename->vla-object (entlast)))

	 (setq erum_att (car (vlax-invoke erum 'Getattributes)))

	 (vla-put-textstring erum_att txt_string)
	 (entdel txt)
	 (vla-erase x)
       )
    )
 )
  (vl-cmdf "_zoom" "_p")
  (vla-EndUndoMark adoc)
  (setvar "osmode" snap_mode)

)