[LISP程序]：属性工具：1属性->文字；2快属性->块+属性

梦断江南

2. 
   
3.   [FONT=courier new]
   
4. ;;xatt=====炸开属性；1属性->文字；2快属性->块+属性----------lxx.2001.5
   
5. (defun c:xatt ()
   
6. (princ "\nxatt=====炸开属性/1属性->文字/2快属性->块+属性----------lxx.2001.5")
   
7. (setq ss (ssget '((-4 . "< OR")(0 . "INSERT")(0 . "ATTDEF")(-4 . "OR >")))
   
8.       i 0)
   
9. (repeat (sslength ss)
   
10. (setq ent (ssname ss i)
    
11.        entl (entget ent)
    
12.        entn (cdr (assoc 0 entl))
    
13.        i (1+ i)
    
14. )
    
15. (if (= "ATTDEF" entn)
    
16.      (progn (princ "/nxattdef start")(xattdef))
    
17.      (xattrib ent);;else
    
18. )
    
19. );end repeat
    
20. )
    
21. ;;;xattdef
    
22. (defun xattdef ()
    
23. (setq  entl (subst (cons 0  "TEXT") (assoc 0 entl) entl)
    
24.        entl (subst (cons 100 "AcDbText") '(100 . "AcDbAttributeDefinition") entl)
    
25. )
    
26. (print entl)
    
27. (entmod entl)
    
28. )
    
29. ;;;;;;   
    
30. (princ "\n xatt=====炸开属性；1属性->文字；2快属性->块+属性----------lxx.2001.5")(princ)
    
31. 
    
32.   [/FONT]
    

<br />   [FONT=courier new]<br /> ;;xatt=====炸开属性；1属性->文字；2快属性->块+属性----------lxx.2001.5<br /> (defun c:xatt ()<br /> (princ "\nxatt=====炸开属性/1属性->文字/2快属性->块+属性----------lxx.2001.5")<br /> (setq ss (ssget '((-4 . "< OR")(0 . "INSERT")(0 . "ATTDEF")(-4 . "OR >")))<br />       i 0)<br /> (repeat (sslength ss)<br /> (setq ent (ssname ss i)<br />        entl (entget ent)<br />        entn (cdr (assoc 0 entl))<br />        i (1+ i)<br /> )<br /> (if (= "ATTDEF" entn)<br />      (progn (princ "/nxattdef start")(xattdef))<br />      (xattrib ent);;else<br /> )<br /> );end repeat<br /> )<br /> ;;;xattdef<br /> (defun xattdef ()<br /> (setq  entl (subst (cons 0  "TEXT") (assoc 0 entl) entl)<br />        entl (subst (cons 100 "AcDbText") '(100 . "AcDbAttributeDefinition") entl)<br /> )<br /> (print entl)<br /> (entmod entl)<br /> )<br /> ;;;;;;    <br /> (princ "\n xatt=====炸开属性；1属性->文字；2快属性->块+属性----------lxx.2001.5")(princ)<br /> <br />   [/FONT]<br />

ll_j

江南，你的程序中使用的“＜”字符以后的部分全部不能显示。顺便问晓东或其他斑竹，是否有什么代码可以控制“＜”的显示，我这里使用的是全角字符。

测试：
“acad< acad”
原来这么简单，空一格就可以了。