（完成）[求助]：求属性文字转换成TEXT的程序...

liuyj

太感谢了！我已经拷回来了。:1

kfboyxwa

easy

lz76

哦，原来是这样的，我为这个问题苦恼很久了。多谢指教

XDSoft

最初由 kfboyxwa 发布
[B]easy [/B]

概念不对，这个是炸开带属性块里面的属性ATTRIB，不是属性定义ATTDEF。

ATTDEF是你当初制作属性时候用ATTDEF命令写的文字。

efan2000

我试了一下，在R2000下的“快捷工具-文字-转换文字为多行文字”中，选择了属性定义，运行该命令，也确定转到了多行文字，但是它实际上是相应的把TextString转过去，而TagString变没了，所以都变成了空字符串的多行文字。

doongs

晕，我的怎么一选就全都过滤完了，什么也选不上！我的属性字体不单单有字体，还有另外的图元


Command:
Command: XDTB_Att2TXT

请选取要变文字的属性定义<全选>:
Select objects: Specify opposite corner: 2 found
2 were filtered out.

Select objects:

Command:



我又测试了一个，我先要把这个含有属性文字的图块炸开，那个变属性为文字的工具才能用！
那有什么好用！
炸开后带属性的块后那个文字在图纸上就会先显示成tag值，用了变属性的工具后又变到了default值！:(
我用属性可能有很多有相同的图元仅仅是文字说明不一样，这才可能来用属性就显得快，如果都把文字搞得相同了自己还一个一个的来改，那我还不如重写呢！

XDSoft

最初由 doongs 发布
[B]晕，我的怎么一选就全都过滤完了，什么也选不上！我的属性字体不单单有字体，还有另外的图元


Command:
Command: XDTB_Att2TXT

请选取要变文字的属性定义<全选>:
Select objects: Specify opposite corner:... [/B]

这个工具就是做你说的，因为很多人的图有用ATTDEF写的文字。

为了解决把ATTDEF的文字变成正常的文字。

大家要把ATTDEF和ATTTRIB两个实体分开，他们是不同的类型。

ATTDEF叫“属性定义”，单独可以存在，表现跟文字TEXT一样。
ATTTRIB是属性，要和INSERT一起存在。

kfboyxwa

最初由 XDSoft 发布
[B]

概念不对，这个是炸开带属性块里面的属性ATTRIB，不是属性定义ATTDEF。

ATTDEF是你当初制作属性时候用ATTDEF命令写的文字。 [/B]

惭愧惭愧 ......
多谢指点.

心梦相随

对不起，打扰了，。我觉得(if (or (setq ss (ssget '((0 . "ATTDEF"))))
        (setq ss (ssget "x" '((0 . "ATTDEF"))))      )
好象没法选取位于图块内的属性啊，因为这些属性似乎被绑定了呀，？？

w_ch_hua

(defun c:ef()
(setq attb nil)
(setq name (car(entsel)))
(setq da (entget name))
(setq k (cdr(assoc 1 da)))
(setq attnam (entnext name) da (entget attnam) k (cdr (assoc 1 da)))
(setq j 0)
(while (= "ATTRIB" (cdr (assoc 0 da)))
(setq p (cdr (assoc 10 da)));(print p)
(setq h (cdr (assoc 40 da)));(print h)
(setq attb (cons (list k h p) attb))
(if (/= "STAR" (cdr (assoc 2 da)))(command "text" p h 0 k))
(setq attnam (entnext attnam) da (entget attnam) k (cdr (assoc 1 da)))
(setq j (+ j 1))
);while-attrib
(command "explode" name)
(setq ent (ssget "x" (list (cons 0 "ATTDEF"))))
(command "erase" ent "")
)

kfboyxwa

最初由 w_ch_hua 发布
[B](defun c:ef()
(setq attb nil)
(setq name (car(entsel)))
(setq da (entget name))
(setq k (cdr(assoc 1 da)))
(setq attnam (entnext name) da (entget attnam) k (cdr (assoc 1 da)))
(setq j 0)
(while... [/B]

如果UCS不是WORLD,文字的位置会变

zxdvip

ET工具里有个BURST ,可把属性变成文字

cjluokun

最初由 kfboyxwa 发布
[B]easy [/B]

放弃R14,投入高版本Auto CAD的怀抱吧!