[编程申请]：将字符串中的第一个空格及这个空格以前的字符全部去掉

dyjwyqz5221

不太会用，请问怎么格式程序呢?就像上面他们发的那样

newer

dyjwyqz5221 发表于 2018-6-6 17:51
不太会用，请问怎么格式程序呢?就像上面他们发的那样

发帖界面有个 代码<>的按钮，选择上你的代码，然后点它

newer

dyjwyqz5221 发表于 2018-6-6 17:43
[mw_shl_code=actionscript3,true](defun c:tt( /  ss a b)
        (if (setq ss (ssget '((0 . "text")) ...

既然用了API，帮你修改下

1. (defun c:tt( /  ss a b)
   
2.         (if (setq ss (ssget '((0 . "text"))))
   
3.                 (progn
   
4.                         (xdrx_begin)
   
5.                         (mapcar
   
6.                                 '(lambda(x)
   
7.                                         (setq a (xdrx_getpropertyvalue x "textstring"))
   
8.                                         (setq b (xd::string:regexpr "(\\S+)(\\s+)(\\S+)" a "$3" ""))
   
9.                                         (xdrx_setpropertyvalue x "textstring" b)
   
10.                                 )
    
11.                                 (xdrx_pickset->ents ss)
    
12.                         )
    
13.                         (xdrx_end)
    
14.                 )
    
15.         )
    
16.         (princ)
    
17. )
    

(defun c:tt( /  ss a b)<br />         (if (setq ss (ssget '((0 . "text"))))<br />                 (progn<br />                         (xdrx_begin)<br />                         (mapcar<br />                                 '(lambda(x)<br />                                         (setq a (xdrx_getpropertyvalue x "textstring"))<br />                                         (setq b (xd::string:regexpr "(\\S+)(\\s+)(\\S+)" a "$3" ""))<br />                                         (xdrx_setpropertyvalue x "textstring" b)<br />                                 )<br />                                 (xdrx_pickset->ents ss)<br />                         )<br />                         (xdrx_end)<br />                 )<br />         )<br />         (princ)<br /> )<br />