[LISP程序]：自编的几个关于文字的程序！

haijiangl

程序都很简单，但比较实用。
1。统计文字数量：选择多个文字，将每种文字的数量统计出来，适合统计门窗表。
2。统一修改文字：对多个文字同时修改内容。
3。数字修正：对多个数字进行四则运算，可设定保留的小数位数。
4。文字内容格式刷：作目录单时，不用拷贝粘贴了。

fylinwater

4。文字内容格式刷的增强 对MTEXT的处理

2. 
   
3. (defun c:ct17(/ text0 mode  x OTEXT mode2)
   
4. 
   
5.     (princ "\n文本修改增强:使文本内容相同")
   
6.         (command "undo" "be")
   
7. 
   
8.         (setq text0 (entget (car (entsel "\n请选择源文本:"))))
   
9.         (setq mode (cdr (assoc 0 text0)))
   
10.         (SETQ OTEXT (assoc 1 text0))
    
11.         (IF (= mode "mtext") (Princ "\n警告：你选择了多行文本，只可以对多行文本处理！"))
    
12.         (if        (or (= mode "TEXT")(= mode "MTEXT"))
    
13.                 (progn
    
14.                         (setq text0 (cdr (assoc 1 text0)))
    
15.                         (setq x (car (entsel "\n请选择要修改内容的文字:")))
    
16.                         (while x
    
17.                                
    
18.                                 (setq x (entget x))
    
19.                                 (setq mode2 (cdr (assoc 0 x)))
    
20.                              (if (or (= mode2 "MTEXT") (equal mode2 mode) )
    
21.                                 (progn
    
22.                                     (setq x (subst OTEXT (assoc 1 x) x))
    
23.                                     (entmod x)
    
24.                                  )
    
25.                                ;;;;else
    
26.                                  (if (= mode "MTEXT")
    
27.                                     (princ "  选择的实体类型不对：必须是多行文本。")
    
28.                                     (princ "  选择的实体类型不对：必须是单行文本和多行文本。")
    
29.                                  )
    
30.                                )
    
31.                           (setq x (car (entsel "\n请选择要修改内容的文本:")))
    
32.                         )
    
33.                   
    
34.                 )
    
35.           
    
36.         )
    
37. 
    
38.         (command "undo" "e")
    
39.         (princ)
    
40. 
    
41. )
    

<br /> (defun c:ct17(/ text0 mode  x OTEXT mode2)<br /> <br />     (princ "\n文本修改增强:使文本内容相同")<br />         (command "undo" "be")<br /> <br />         (setq text0 (entget (car (entsel "\n请选择源文本:"))))<br />         (setq mode (cdr (assoc 0 text0)))<br />         (SETQ OTEXT (assoc 1 text0))<br />         (IF (= mode "mtext") (Princ "\n警告：你选择了多行文本，只可以对多行文本处理！"))<br />         (if        (or (= mode "TEXT")(= mode "MTEXT"))<br />                 (progn<br />                         (setq text0 (cdr (assoc 1 text0)))<br />                         (setq x (car (entsel "\n请选择要修改内容的文字:")))<br />                         (while x<br />                                 <br />                                 (setq x (entget x))<br />                                 (setq mode2 (cdr (assoc 0 x)))<br />                              (if (or (= mode2 "MTEXT") (equal mode2 mode) )<br />                                 (progn<br />                                     (setq x (subst OTEXT (assoc 1 x) x))<br />                                     (entmod x)<br />                                  )<br />                                ;;;;else<br />                                  (if (= mode "MTEXT")<br />                                     (princ "  选择的实体类型不对：必须是多行文本。")<br />                                     (princ "  选择的实体类型不对：必须是单行文本和多行文本。")<br />                                  )<br />                                )<br />                           (setq x (car (entsel "\n请选择要修改内容的文本:")))<br />                         )<br />                   <br />                 )<br />           <br />         )<br /> <br />         (command "undo" "e")<br />         (princ)<br /> <br /> )<br />

unzbx

已收下, 先谢了...

zxf309

最初由 haijiangl 发布
[B]......
2。统一修改文字：对多个文字同时修改内容。
[/B]

怎么修改内容? 是把数字统一修改成一个数值还是能把数值减一个常数?
比如:减0.1,即原数字2.3 ,2.5 改成2.2 , 2.4

silen618

统一修改，增减值的帖子论坛上很多呀！

zxf309

我只找到了这个，还不能用。。。
楼上的兄弟，还有其他代码吗？麻烦给咱一份，谢谢！

2sunny2

我找了很久终于找到，可时效性每了，谁能帮帮我，我想下到这个附件啊
油箱sunsunnysun@126.com