[求助]：将属性转为单行文字？

yjtdkj

如题，记在论坛上看到过，现在找不到了，有没有好心人能上传一个？

xyp1964

签名栏下“文本编辑套件”之取消属性

yjtdkj

试用以后，成功！但有三点问题不知是可以改进？
1。在选择对象时把单行文字也选进去了，能不能过滤掉单行文字？
2。属性定义转文字以后文字位置变化（我的属性定义为中间对齐）。
3。属性定义转文字以后文字图层随了当前层，能不能不改变原有图层？

marcoyuwen

用ET里的BURST不行吗？

chdragon

et可以

busymouse

长见识了，谢谢！

yyh1981

你的意思是把多行文字转变问单行文字吗?炸开不就可以了 ,呵呵("X")

lshpool

如何将属性的标记转化为单行文字 我说的属性不是属性块，而是直接用ATTDEF写的属性标记

雨箭风刀

[php]
; ----------------------------------------------------------------------
;            (Converts ATTDEF's default value to TEXT objects)
;            Copyright (C) 1997 DotSoft, All Rights Reserved
;                      Website: www.dotsoft.com
; ----------------------------------------------------------------------
; DISCLAIMER:  DotSoft Disclaims any and all liability for any damages
; arising out of the use or operation, or inability to use the software.
; FURTHERMORE, User agrees to hold DotSoft harmless from such claims.
; DotSoft makes no warranty, either expressed or implied, as to the
; fitness of this product for a particular purpose.  All materials are
; to be considered 慳s-is? and use of this software should be
; considered as AT YOUR OWN RISK.
; ----------------------------------------------------------------------

(defun C:TAG2TXT ()
  (setq sset (ssget '((0 . "ATTDEF"))))
  (setq num (sslength sset) itm 0)
  (while (< itm num)
    (setq hnd (ssname sset itm))
    (setq ent (entget hnd))
    (setq new '((0 . "TEXT")))
    (setq new (append new (list (cons 1 (cdr (assoc 2 ent))))))
    (setq dolst (list 7 8 10 11 39 40 41 50 51 62 71 72 73))
    (foreach grp dolst
      (setq addto (assoc grp ent))
      (if (/= addto nil)
        (setq new (append new (list (assoc grp ent))))
      )
    )
    (entdel hnd)
    (entmake new)
    (setq itm (1+ itm))
  )
  (princ)
)

[/php]

yjtdkj

试用成功，论坛的高手就是多!!!谢谢！！
小弟不才稍微解释了一下，不知道是否理解的对？

2. 
   
3.   [FONT=courier new]
   
4. (defun C:TAG2TXT (/ addto dolst ent hnd itm new num sset)
   
5.     (setq sset (ssget '((0 . "ATTDEF")))) ;选择属性定义并过滤掉其它对象
   
6.     (setq num (sslength sset)                ;计算选择集的数量
   
7.           itm 0                                ;起始值为0
   
8.     )
   
9.     (while (< itm num)                        ;循环次数＝选择集的数量
   
10.         (setq hnd (ssname sset itm))        ;取得选择集中第N个对象名称
    
11.         (setq ent (entget hnd))                ;取得对象名称的数据列表
    
12.         (setq new '((0 . "TEXT")))        ;建立一个类型为文字的“点对列表”
    
13.         (setq new (append new (list (cons 1 (cdr (assoc 2 ent))))))
    
14.                                         ;组合两个“点对列表”第一个为(0 . "TEXT")，第二个为(1 . "文字内容（等于ATTDEF中的标记内容）")
    
15.         (setq dolst (list 7 8 10 11 39 40 41 50 51 62 71 72 73))
    
16.                                         ;建立一个有关“TEXT群码”的表
    
17.         (foreach grp dolst
    
18.             (setq addto (assoc grp ent))
    
19.             (if        (/= addto nil)
    
20.                 (setq new (append new (list (assoc grp ent))))
    
21.             )
    
22.         )                                ;从“属性定义”中提取与“TEXT群码”值相对应的“点对列表”添加到新文字的数据列表中
    
23.         (entdel hnd)                        ;删除属性定义
    
24.         (entmake new)                        ;建立新文字
    
25.         (setq itm (1+ itm))                ;计数参数＋1
    
26.     )
    
27.     (princ)
    
28. )
    
29.   [/FONT]
    

<br />   [FONT=courier new]<br /> (defun C:TAG2TXT (/ addto dolst ent hnd itm new num sset)<br />     (setq sset (ssget '((0 . "ATTDEF")))) ;选择属性定义并过滤掉其它对象<br />     (setq num (sslength sset)                ;计算选择集的数量<br />           itm 0                                ;起始值为0<br />     )<br />     (while (< itm num)                        ;循环次数＝选择集的数量<br />         (setq hnd (ssname sset itm))        ;取得选择集中第N个对象名称<br />         (setq ent (entget hnd))                ;取得对象名称的数据列表<br />         (setq new '((0 . "TEXT")))        ;建立一个类型为文字的“点对列表”<br />         (setq new (append new (list (cons 1 (cdr (assoc 2 ent))))))<br />                                         ;组合两个“点对列表”第一个为(0 . "TEXT")，第二个为(1 . "文字内容（等于ATTDEF中的标记内容）")<br />         (setq dolst (list 7 8 10 11 39 40 41 50 51 62 71 72 73))<br />                                         ;建立一个有关“TEXT群码”的表<br />         (foreach grp dolst<br />             (setq addto (assoc grp ent))<br />             (if        (/= addto nil)<br />                 (setq new (append new (list (assoc grp ent))))<br />             )<br />         )                                ;从“属性定义”中提取与“TEXT群码”值相对应的“点对列表”添加到新文字的数据列表中<br />         (entdel hnd)                        ;删除属性定义<br />         (entmake new)                        ;建立新文字<br />         (setq itm (1+ itm))                ;计数参数＋1<br />     )<br />     (princ)<br /> )<br />   [/FONT]<br />