[Grinzaid]

Как переделать атрибуты в тексты? Проблема в том, что конструктор вместо текстов исползовал атрибуты (не в блоке, а просто атрибуты). Когда я подгружаю файл конструктора XREF-ом, все атрибуты пропадают. Как можно быстро исправить?

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

открыть файл с атрибутами вместо текстов и применить burst. По крайней мере попытаться можно...

[Victor]

попробуй

Код:

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

(defun c:test( / )
(setq nameset (ssget "_:L" '(( 0 . "ATTDEF"))))
(setq setlength (sslength nameset))
(setq i -1)
(repeat setlength
    (setq i (1+ i)) 
    (setq namtxtrun (ssname nameset i))
    (setq txtrun (entget namtxtrun))
    (setq text_a (cdr(assoc 2 txtrun)))
    (setq p_text (cons 1 text_a))
    (setq p_kord (assoc 10 txtrun))
    (setq p_sloy (assoc 8 txtrun))
    (setq p_styl (assoc 7 txtrun))
    (setq p_ugol (assoc 50 txtrun))
    (setq p_heig (assoc 40 txtrun))
    (setq spis_st (list '(0 . "TEXT")   
                    '(100 . "AcDbEntity") p_sloy '(100 . "AcDbText")                     
                    p_kord p_heig p_text p_ugol p_styl))
    (entmake spis_st)
    (entdel namtxtrun)
)
)

[Grinzaid]

Большое спасибо, Виктор, работает.

[хашмаль]

Будет ли это работать с ZWcadом? И куда нужно вставить этот код? Первый раз я такое хочу сделать) Извините за наивный вопрос.