[oleg_marshinov]

Суть проблемы такова:
Есть атрибуты в пространстве модели, куча нумерующие изделия
Так как они не в блоке, то естественно видно значение параметра "Tag"
нумерация тоже в нем.
Неудобно, так как поиск не работает, хотелось бы в текст превратить.
Как сделать, может Autolisp есть какой?

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

burst из ExpressTools. + на форуме предлагались варианты замены.

[oleg_marshinov]

не могу пока найти варианты для TAG

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

Тогда _explode либо _xplode

[oleg_marshinov]

не подходит

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

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

[oleg_marshinov]

Без поиска плохо

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

??? Это к чему?

[oleg_marshinov]

файл целиком побольше, долго искать иногда да и замена не помешалабы

[Хмурый]

...

[oleg_marshinov]

с текстом удобней

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

Я бы задумывался о лиспе...

[oleg_marshinov]

к сожалению

[Хмурый]

////

[oleg_marshinov]

Он же не большой я так понимаю ))

[VVA]

Пробуй

Код:

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

(Defun C:A2T ( / AENT TENT ILIST INUM item ss)
(if (setq ss (ssget "_X" (list '(0 . "ATTDEF")(cons 410 (getvar "CTAB")))))
  (repeat (setq item (sslength ss)) ;_ end setq
      (setq AENT (entget(ssname ss (setq item (1- item)))))
      (Setq TENT '((0 . "TEXT")))
      (ForEach INUM '(8 6 38 39 62 67 210 10 40 1 50 41 51 7 71 72 73 11 74)
      (If (Setq ILIST (Assoc INUM AENT))(Setq TENT (Cons ILIST TENT))))
      (Setq tent (Subst (Cons 73 (cdr(assoc 74 aent)))(Assoc 74 tent) tent))
      (setq tent (subst (cons 1 (cdr(assoc 2 aent)))(assoc 1 aent) tent))
      (EntMakex (reverse TENT))
      (entdel(cdr(assoc '-1 AENT)))
      ) ;_ end repeat
  )
  )

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

oleg_marshinov, заголовки постов писать не обязательно

Код:

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

(defun c:conv-att-to-text (/ _kpblc-conv-selset-to-ename adoc selset ent_lst)
  (defun _kpblc-conv-selset-to-ename (selset / tab item)
                                     ;|
*    Преобразование набора, полученного через ssget, в список ename-представлени
* примитивов.
*    Параметры вызова:
	selset	набор примитивов
*    Примеры вызова:
(_kpblc-conv-selset-to-ename (ssget))
|;
    (cond
      ((not selset) nil)
      ((= (type selset) 'pickset)
       (repeat (setq tab  nil
                     item (sslength selset)
                     ) ;_ end setq
         (setq tab (cons (ssname selset (setq item (1- item))) tab))
         ) ;_ end repeat
       )
      ((listp selset) selset)
      ) ;_ end of cond
    ) ;_ end of defun

  (vl-load-com)
  (vla-startundomark (setq adoc (vla-get-activedocument (vlax-get-acad-object))))
  (if (= (type
           (setq selset (vl-catch-all-apply (function (lambda () (ssget "_:L" '((0 . "ATTDEF") (70 . 0)))))))
           ) ;_ end of type
         'pickset
         ) ;_ end of =
    (progn
      (foreach item (_kpblc-conv-selset-to-ename selset)
        (setq ent_lst (vl-remove-if
                        (function (lambda (x)
                                    (or (member (car x) '(-1 1 3 280 330 5 70 74))
                                        (equal x '(100 . "AcDbAttributeDefinition"))
                                        ) ;_ end of or
                                    ) ;_ end of lambda
                                  ) ;_ end of function
                        (entget item)
                        ) ;_ end of vl-remove-if
              ) ;_ end of setq
        (entmakex (subst (cons 1 (cdr (assoc 2 ent_lst)))
                         (assoc 2 ent_lst)
                         (subst (cons 0 "TEXT") (assoc 0 ent_lst) ent_lst)
                         ) ;_ end of subst
                  ) ;_ end of entmakex
        (entdel item)
        ) ;_ end of foreach
      ) ;_ end of progn
    ) ;_ end of if
  (vla-endundomark adoc)
  (princ)
  ) ;_ end of defun

(princ "\nВызов: conv-att-to-text\n")

[oleg_marshinov]

Даже не понял сначала что сработало ))

[oleg_marshinov]

спасибо оба варианта то что надо

[perpetule]

Обратная задача текст в атрибут, кому интересно

http://forum.dwg.ru/showpost.php?p=1...postcount=1979