[求助]：提高文字编辑效率的2个lisp

逐月飞鸿

提高文字编辑效率的2个lisp
1.批量修改字体高度：
有没有这样的lisp，在打开图纸的中，执行一个命令，就可以把所有小于一定高度（比如2.5）的字体全部改为高度为定值（比如2.5），这样要比过滤后在修改要快的多。
2.批量修改字体样式
在平时打开别人的图纸中，有好多字体样式，能否有这样的lisp。执行一个命令，除字体样式hz1（T仿宋GB2312）外的其他样式一下全部改为hz2（hztxt－e.shx，hhztxt.shx）？或者说能否象word里面的自动更正功能一样，一打开图纸就自动完成样式的替换？
在此先谢高手了！

xyp1964

2. [FONT=courier new](load "xyp_lib")
   
3. ;|加载通用函数(可在签名栏直接下载)
   
4. 如果已经下载xyp_lib并放到搜索路径下可以不再下载!
   
5. 利用以下任何一种方式即可加载和运行通用函数内的所有子程序：
   
6. 1.在acad.lsp中增加(load"xyp_lib")
   
7. 2.在每个程序内增加(load"xyp_lib")
   
8. 3.在command下，输入(load"xyp_lib")
   
9. 4.在菜单.mnl中增加(load"xyp_lib")
   
10. 5.将xyp_lib.vlx文件直接拽到cad屏幕
    
11. [COLOR=red] ★通用函数下载地址：[/COLOR][url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url]|;
    
12. 
    
13. ;;;把所有小于一定高度（比如2.5）的字体全部改为高度为定值（比如2.5）
    
14. (defun c:test1 ()
    
15.   (CMDLA0)
    
16.   (setq        ss (ssget "x" '((0 . "*TEXT") (-4 . "<") (40 . 2.5)))
    
17.         i  -1
    
18.   )
    
19.   (while (setq s1 (ssname ss (setq i (1+ i))))
    
20.     (sub_upd s1 40 2.5)
    
21.   )
    
22.   (CMDLA1)
    
23. )
    
24. 
    
25. ;;;除字体样式hz1(T仿宋GB2312)外的其他样式一下全部改为hz2(hztxt-e.shx，hhztxt.shx)
    
26. (defun C:test2 ()
    
27.   (CMDLA0)
    
28.   (command "_style"          "hz2"                 "hztxt-e.shx,hhztxt.shx"
    
29.            "0"                  "1"                 "0"                ""
    
30.            ""
    
31.           )
    
32.   (setvar "textstyle" "hz2")
    
33.   (setq        ss1 (ssget "x" '((0 . "*TEXT")))
    
34.         ss2 (ssget "x" '((0 . "*TEXT") (7 . "hz1")))
    
35.         ss  (SSDIFF SS1 SS2)
    
36.         i   -1
    
37.   )
    
38.   (while (setq s1 (ssname ss (setq i (1+ i))))
    
39.     (sub_upd s1 7 "hz2")
    
40.   )
    
41.   (CMDLA1)
    
42. )[/FONT]

[FONT=courier new](load "xyp_lib")<br /> ;|加载通用函数(可在签名栏直接下载)<br /> 如果已经下载xyp_lib并放到搜索路径下可以不再下载!<br /> 利用以下任何一种方式即可加载和运行通用函数内的所有子程序：<br /> 1.在acad.lsp中增加(load"xyp_lib")<br /> 2.在每个程序内增加(load"xyp_lib")<br /> 3.在command下，输入(load"xyp_lib")<br /> 4.在菜单.mnl中增加(load"xyp_lib")<br /> 5.将xyp_lib.vlx文件直接拽到cad屏幕<br /> [COLOR=red] ★通用函数下载地址：[/COLOR][url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url]|;<br /> <br /> ;;;把所有小于一定高度（比如2.5）的字体全部改为高度为定值（比如2.5）<br /> (defun c:test1 ()<br />   (CMDLA0)<br />   (setq        ss (ssget "x" '((0 . "*TEXT") (-4 . "<") (40 . 2.5)))<br />         i  -1<br />   )<br />   (while (setq s1 (ssname ss (setq i (1+ i))))<br />     (sub_upd s1 40 2.5)<br />   )<br />   (CMDLA1)<br /> )<br /> <br /> ;;;除字体样式hz1(T仿宋GB2312)外的其他样式一下全部改为hz2(hztxt-e.shx，hhztxt.shx)<br /> (defun C:test2 ()<br />   (CMDLA0)<br />   (command "_style"          "hz2"                 "hztxt-e.shx,hhztxt.shx"<br />            "0"                  "1"                 "0"                ""<br />            ""<br />           )<br />   (setvar "textstyle" "hz2")<br />   (setq        ss1 (ssget "x" '((0 . "*TEXT")))<br />         ss2 (ssget "x" '((0 . "*TEXT") (7 . "hz1")))<br />         ss  (SSDIFF SS1 SS2)<br />         i   -1<br />   )<br />   (while (setq s1 (ssname ss (setq i (1+ i))))<br />     (sub_upd s1 7 "hz2")<br />   )<br />   (CMDLA1)<br /> )[/FONT]

逐月飞鸿

谢谢了，xyp1964  ！不过在使用test2时候。命令行的提示如下：
“请回答“是”或“否”。
是否垂直? <N>

“HZ2”是当前文字样式。”
字体样式并没有更改，请你在看看是怎么回事！谢谢。。。。
（我把hztxt_e.shx错误写成了hztxt-e.shx）

xshrimp

(defun C:test2 ()
  (CMDLA0)
  (command "_style"          "hz2"                 "hztxt-e.shx,hhztxt.shx[/COLOR] "
           "0"                  "1"                 "0"                ""
           ""
          )
  (setvar "textstyle" "hz2")
  (setq        ss1 (ssget "x" '((0 . "*TEXT")))
        ss2 (ssget "x" '((0 . "*TEXT") (7 . "hz1[/COLOR] ")))
        ss  (SSDIFF SS1 SS2)

文中红色的地方好像是错的。

userzhluserzhl

2楼:
命令: test
hhztxt.shx 是常规字体，不是大字体。未知命令“0”。按 F1 查看帮助。
未知命令“1”。按 F1 查看帮助。
未知命令“0”。按 F1 查看帮助。
未知命令“TEST”。按 F1 查看帮助。
未知命令“TEST”。按 F1 查看帮助。
; 错误: AutoCAD 变量设置被拒绝: "textstyle" "hz2"