申请一个LSP程序，将框选的字符分别加上前缀，前缀是所选各字符各自对应的图层名

lengliqun

申请一个LSP程序，将框选的字符分别加上前缀，前缀是所选各字符各自对应的图层名
如字符BBB123所在的图层为AAA，则改为AAA BBB123，(前缀后最好能有个空格)

yshf

2. 
   
3. (defun c:cc()
   
4.     (if (setq p1 (getpoint "\n左上角:"))
   
5.         (if (setq p2 (getcorner p1 "\n右下角:"))
   
6.             (if (setq ssa (ssget "w" p1 p2 '((0 . "TEXT"))))
   
7.                 (progn
   
8.                     (setq i  0  n (sslength ssa))
   
9.                     (repeat n
   
10.                         (setq ent (ssname ssa i)
    
11.                               dxf (entget ent)
    
12.                               zfc (assoc 1 dxf)
    
13.                               tcm (assoc 8 dxf)
    
14.                               dxf (subst (cons 1 (strcat (cdr tcm) " " (cdr zfc))) zfc dxf)
    
15.                         )
    
16.                         (entmod dxf)
    
17.                         (setq i (1+ i))
    
18.                     )
    
19.                 )
    
20.              )
    
21.          )
    
22.      )
    
23. )
    

<br /> (defun c:cc()<br />     (if (setq p1 (getpoint "\n左上角:"))<br />         (if (setq p2 (getcorner p1 "\n右下角:"))<br />             (if (setq ssa (ssget "w" p1 p2 '((0 . "TEXT"))))<br />                 (progn<br />                     (setq i  0  n (sslength ssa))<br />                     (repeat n<br />                         (setq ent (ssname ssa i)<br />                               dxf (entget ent)<br />                               zfc (assoc 1 dxf)<br />                               tcm (assoc 8 dxf)<br />                               dxf (subst (cons 1 (strcat (cdr tcm) " " (cdr zfc))) zfc dxf)<br />                         )<br />                         (entmod dxf)<br />                         (setq i (1+ i))<br />                     )<br />                 )<br />              )<br />          )<br />      )<br /> )<br />

lengliqun

多谢三楼，cad2004测试可用。

lichunyu

谢谢分享！！！！！

alexmai

yshf 发表于 2011-3-14 14:32

如果要支持属性块的文字？应该改哪里？