[求助]：如何批量删除文本中的空字符？

xbx7920

如何批量删除文本中的空字符？例如，把“架  空  层”，“商   铺”
分别变成“架空层”，“商铺”。谢谢！

eachy

http://www.xdcad.net/forum/showt ... 2758606#post2758606

snsj

这个不用编程，直接用find命令即可

sunny314

用命令即可

xyp1964

2. [FONT=courier new]
   
3. (load "xyp_lib.vlx")  ;版本 V.20060430
   
4. ;|下载和加载通用函数(可在签名栏直接下载后放到搜索路径下)
   
5. 利用以下任何一种方式（首选第一种）即可加载和运行通用函数内的所有子程序：
   
6. ★1·在acad.lsp中增加(load"xyp_lib.vlx")
   
7. ■2·在每个程序内增加(load"xyp_lib.vlx")
   
8. ■3·在command下，输入(load"xyp_lib.vlx")
   
9. ■4·在菜单.mnl中增加(load"xyp_lib.vlx")
   
10. ■5·将xyp_lib.vlx文件直接拽到cad屏幕
    
11. ★通用函数下载地址：
    
12. [url]http://www.xdcad.net/forum/attachme...&postid=1606661[/url]
    
13. [url]http://free.ys168.com/?xyp1964[/url]
    
14. |;
    
15. 
    
16. ;;; 批量删除文本中的空字符
    
17. (defun c:test ()
    
18.   (cmdla0)
    
19.   (setq        ss (ssget '((0 . "TEXT")))
    
20.         i  -1
    
21.   )
    
22.   (while (setq s1 (ssname ss (setq i (1+ i))))
    
23.     (setq txt (xyp-get-DXF 1 s1))
    
24.     (while (vl-string-search " " txt)
    
25.       (setq txt (vl-string-subst "" " " txt))
    
26.     )
    
27.     (xyp-SubUpd s1 1 txt)
    
28.   )
    
29.   (cmdla0)
    
30. )
    
31. [/FONT]

[FONT=courier new]<br /> (load "xyp_lib.vlx")  ;版本 V.20060430<br /> ;|下载和加载通用函数(可在签名栏直接下载后放到搜索路径下)<br /> 利用以下任何一种方式（首选第一种）即可加载和运行通用函数内的所有子程序：<br /> ★1·在acad.lsp中增加(load"xyp_lib.vlx")<br /> ■2·在每个程序内增加(load"xyp_lib.vlx")<br /> ■3·在command下，输入(load"xyp_lib.vlx")<br /> ■4·在菜单.mnl中增加(load"xyp_lib.vlx")<br /> ■5·将xyp_lib.vlx文件直接拽到cad屏幕<br /> ★通用函数下载地址：<br /> [url]http://www.xdcad.net/forum/attachme...&postid=1606661[/url]<br /> [url]http://free.ys168.com/?xyp1964[/url]<br /> |;<br /> <br /> ;;; 批量删除文本中的空字符<br /> (defun c:test ()<br />   (cmdla0)<br />   (setq        ss (ssget '((0 . "TEXT")))<br />         i  -1<br />   )<br />   (while (setq s1 (ssname ss (setq i (1+ i))))<br />     (setq txt (xyp-get-DXF 1 s1))<br />     (while (vl-string-search " " txt)<br />       (setq txt (vl-string-subst "" " " txt))<br />     )<br />     (xyp-SubUpd s1 1 txt)<br />   )<br />   (cmdla0)<br /> )<br /> [/FONT]