[编程申请]：字符串里的空格怎么删去

走过小桥

请教各位高手
我的图面上有许多MTEXT对象,我想把每个字符串中的空格删除，该怎么编代码

ljpnb

[php]
(defun c:test ()
  (prompt "\n选择要修改的文字......")
  (setq ss (ssget '((0 . "*TEXT"))))
  (setq i 0)
  (repeat (sslength ss)
    (setq ent (ssname ss i))
    (setq data (entget ent))
    (setq tex (cdr (assoc 1 data)))
    (while (setq n (vl-string-position (ascii " ") tex))
      (setq tex (vl-string-subst "" " " tex n))
      (setq n (1+ n))
    )
    (setq data (subst (cons 1 tex) (assoc 1 data) data))
    (entmod data)
    (setq i (1+ i))
  )
)
[/php]

狂刀

用ｆｉｎｄ命令　也可
" "替换为""

mmmm

1: mtext文本很长时，仅仅dxf1是不完全的。
2:这样的话，mtext 控制符中的空格也会被干掉！

舟自横

(VL-LIST->STRING (VL-REMOVE 32 (VL-STRING->LIST "  Y O U ")))
一切搞定

走过小桥

谢谢各位热心人
我本来是用ljpnb的方法，不过有问题
狂刀 的方法根本不能用
还是舟自横的最完善

狂刀

狂刀 的方法根本不能用

你试过么？？？？！！！！！
不要乱说话

YueFeng

最初由 狂刀 发布
[B]
你试过么？？？？！！！！！
不要乱说话 [/B]

在LISP程序不能支持FIND命令的使用吧。

它山之石

最初由 YueFeng 发布
[B]
在LISP程序不能支持FIND命令的使用吧。 [/B]

　　狂刀也没说是用在LISP程序中啊。CAD本身的命令能解决的问题为什么还要编写所谓的代码呢？
　　

最初由 走过小桥 发布
[B]

狂刀 的方法根本不能用[/B]

别人帮你解决问题，楼主你自己不试一下就下结论，也未免有点不太尊重别人了吧。

YueFeng

最初由 它山之石 发布
[B]

　　狂刀也没说是用在LISP程序中啊。CAD本身的命令能解决的问题为什么还要编写所谓的代码呢？
　　
[QUOTE]最... [/B]

这个版块就是LISP开发技术版呀。这又不是AutoCAD软件使用版。
在程序中有时会需要用到查找替换的，在LISP中可以引用这个命令更好，不能引用的话，只有修改对象数据表了，偏麻烦。
可见这个还是有所谓的。:)

狂刀

因为１楼没有说要ｌｉｓｐ，所以。。。。只要能解决问题，就是个办法

xyp1964

可以利用vl-string-search和vl-string-subst函数：

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]
    
12. [url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url]
    
13. [url]http://www.mjtd.com/bbs/dispbbs.asp?boardID=3&ID=37554&page=1[/url]|;
    
14. 
    
15. 
    
16. ;;;删除字符串中的空格
    
17. (defun c:test1 ()
    
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 (DXF 1 (entget s1)))
    
24.     (while (vl-string-search " " txt)
    
25.       (setq txt (vl-string-subst "" " " txt))
    
26.     )
    
27.     (SUB_UPD s1 1 txt)
    
28.   )
    
29.   (CMDLA1)
    
30. )
    
31. 
    
32. ;;;删除字符串中特定的字符
    
33. (defun c:test2 ()
    
34.   (CMDLA0)
    
35.   (setq        txt1 (USTR 1 "\n输入要删除的字符" txt1 nil)
    
36.         ss   (ssget '((0 . "*TEXT")))
    
37.         i    -1
    
38.   )
    
39.   (while (setq s1 (ssname ss (setq i (1+ i))))
    
40.     (setq txt (DXF 1 (entget s1)))
    
41.     (while (vl-string-search txt1 txt)
    
42.       (setq txt (vl-string-subst "" txt1 txt))
    
43.     )
    
44.     (SUB_UPD s1 1 txt)
    
45.   )
    
46.   (CMDLA1)
    
47. )[/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]<br /> [url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url]<br /> [url]http://www.mjtd.com/bbs/dispbbs.asp?boardID=3&ID=37554&page=1[/url]|;<br /> <br /> <br /> ;;;删除字符串中的空格<br /> (defun c:test1 ()<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 (DXF 1 (entget s1)))<br />     (while (vl-string-search " " txt)<br />       (setq txt (vl-string-subst "" " " txt))<br />     )<br />     (SUB_UPD s1 1 txt)<br />   )<br />   (CMDLA1)<br /> )<br /> <br /> ;;;删除字符串中特定的字符<br /> (defun c:test2 ()<br />   (CMDLA0)<br />   (setq        txt1 (USTR 1 "\n输入要删除的字符" txt1 nil)<br />         ss   (ssget '((0 . "*TEXT")))<br />         i    -1<br />   )<br />   (while (setq s1 (ssname ss (setq i (1+ i))))<br />     (setq txt (DXF 1 (entget s1)))<br />     (while (vl-string-search txt1 txt)<br />       (setq txt (vl-string-subst "" txt1 txt))<br />     )<br />     (SUB_UPD s1 1 txt)<br />   )<br />   (CMDLA1)<br /> )[/FONT]

YueFeng

最初由 狂刀 发布
[B]因为１楼没有说要ｌｉｓｐ，所以。。。。只要能解决问题，就是个办法 [/B]

条条大路通罗马，我们只希望以后FIND命令能直接支持命令行输入方式。