[编程申请]：删除选定字符串的最后一个空格及其后的字符

lengliqun

求LSP程序，文字操作，删除选定字符串的最后一个空格及其后的字符。

雨箭风刀

[php]
(defun tt (str)
  (vl-load-com)
  (setq l(vl-string->list str))
  (substr str 1 (1-(length (member 32 (reverse l)))))
)
(tt "sd我f 测@ 试df") -> "sd我f 测@"
[/php]

lengliqun

CAD2004提示：
no function definition: TT

雨箭风刀

这是个函数，不是命令。
下面这个是。

2. 
   
3. (defun c:tt ( / ss n ent st)
   
4.   (vl-load-com)
   
5.   (defun tt (str / l)
   
6.     (setq l (vl-string->list str))
   
7.     (substr str 1 (1- (length (member 32 (reverse l)))))
   
8.   )
   
9.   (if (ssget ss (ssget '((0 . "TEXT")(1 . "* *"))))
   
10.     (repeat (setq n (sslength ss))
    
11.       (setq ent(entget(ssname ss (setq n (1- n))))
    
12.             st (tt (cdr (assoc 1 ent))))
    
13.       (entmod (subst (cons 1 st)(assoc 1 ent)ent))
    
14.     )
    
15.    )(princ)
    
16. )
    

<br /> (defun c:tt ( / ss n ent st)<br />   (vl-load-com)<br />   (defun tt (str / l)<br />     (setq l (vl-string->list str))<br />     (substr str 1 (1- (length (member 32 (reverse l)))))<br />   )<br />   (if (ssget ss (ssget '((0 . "TEXT")(1 . "* *"))))<br />     (repeat (setq n (sslength ss))<br />       (setq ent(entget(ssname ss (setq n (1- n))))<br />             st (tt (cdr (assoc 1 ent))))<br />       (entmod (subst (cons 1 st)(assoc 1 ent)ent))<br />     )<br />    )(princ)<br /> )<br />

lengliqun

CAD2004测试无反应。

它山之石

(setq ss (ssget '((0 . "TEXT") (1 . "* *"))))
？？？

雨箭风刀

不好意思，打错了。没调试：P
试试：

2. 
   
3. (defun c:tt ( / ss n ent st)
   
4.   (vl-load-com)
   
5.   (defun tt (str / l)
   
6.     (setq l (vl-string->list str))
   
7.     (substr str 1 (1- (length (member 32 (reverse l)))))
   
8.   )
   
9.   (if (setq ss (ssget '((0 . "TEXT")(1 . "* *"))))
   
10.     (repeat (setq n (sslength ss))
    
11.       (setq ent(entget(ssname ss (setq n (1- n))))
    
12.             st (tt (cdr (assoc 1 ent))))
    
13.       (entmod (subst (cons 1 st)(assoc 1 ent)ent))
    
14.     )
    
15.    )(princ)
    
16. )
    
17. 
    

<br /> (defun c:tt ( / ss n ent st)<br />   (vl-load-com)<br />   (defun tt (str / l)<br />     (setq l (vl-string->list str))<br />     (substr str 1 (1- (length (member 32 (reverse l)))))<br />   )<br />   (if (setq ss (ssget '((0 . "TEXT")(1 . "* *"))))<br />     (repeat (setq n (sslength ss))<br />       (setq ent(entget(ssname ss (setq n (1- n))))<br />             st (tt (cdr (assoc 1 ent))))<br />       (entmod (subst (cons 1 st)(assoc 1 ent)ent))<br />     )<br />    )(princ)<br /> )<br /> <br />

lengliqun

CAD2004测试可用，谢谢。能否同时编个“删除选定字符串的第一个空格及其前的字符”的程序？谢谢。*-*4 *-*4

雨箭风刀

(setq str "etqet asdfa rq ")
(setq str (substr str (vl-string-position str " ")))

lengliqun

我可看不懂上面的两行程序，大侠能否补充完整啊，我只会加载用。
删除选定字符串的第一个空格及其前的字符，且空格后的字符的位置变化至空格前的字符的位置。如：
001 ABC       变成
ABC　　　不是
口口口 ABC