CJ001849将单行文本中的所有数值定为固定位数的整数4位须加载E派工具箱及晓东函数库

清风明月10

请点击此处下载

请先注册会员后在进行下载

已注册会员，请先登录后下载

文件名称:CJ001849将单行文本中的所有数值定为固定位数的整数4位须加载E派工具箱及晓东函数库.rar 
下载次数:3  文件大小:1.56 KB  售价:5D豆 [记录]
下载权限: 不限 以上  [免费赚D豆]

st788796

字符拆分可以用这个
_$ (xd::string:regexps "[^0-9]+|[0-9]+" "ZK001.00" "")
("ZK" "001" "." "00")
可以这样简化

1. (defun c:tt (/ ss)
   
2.   (if (setq ss (ssget '((0 . "text"))))
   
3.     (mapcar
   
4.       '(lambda (x / str tl nstr)
   
5.          (setq str (xdrx_getpropertyvalue x "Textstring")
   
6.                tl (xd::string:regexps "[^0-9]+|[0-9]+[.][0-9]+" str "")
   
7.          )
   
8.          (setq nstr (apply
   
9.                       'strcat
   
10.                       (mapcar
    
11.                         '(lambda (a)
    
12.                            (if (distof a 2)
    
13.                              (xd::string:strpad (distof a 2) 4 "0" 0)
    
14.                              a
    
15.                            )
    
16.                          )
    
17.                         tl
    
18.                       )
    
19.                     )
    
20.          )
    
21.          (xdrx_setpropertyvalue x "textstring" nstr)
    
22.        )
    
23.       (xdrx_pickset->ents ss)
    
24.     )
    
25.   )
    
26.   (princ)
    
27. )
    

(defun c:tt (/ ss)<br />   (if (setq ss (ssget '((0 . "text"))))<br />     (mapcar<br />       '(lambda (x / str tl nstr)<br />          (setq str (xdrx_getpropertyvalue x "Textstring")<br />                tl (xd::string:regexps "[^0-9]+|[0-9]+[.][0-9]+" str "")<br />          )<br />          (setq nstr (apply<br />                       'strcat<br />                       (mapcar<br />                         '(lambda (a)<br />                            (if (distof a 2)<br />                              (xd::string:strpad (distof a 2) 4 "0" 0)<br />                              a<br />                            )<br />                          )<br />                         tl<br />                       )<br />                     )<br />          )<br />          (xdrx_setpropertyvalue x "textstring" nstr)<br />        )<br />       (xdrx_pickset->ents ss)<br />     )<br />   )<br />   (princ)<br /> )<br />

清风明月10

(xd::string:regexps "[^0-9]+|[0-9]+" "ZK001.00" "")
("ZK" "001" "." "00")
这个例子就不对，应该拆分 为 ("ZK" "001.00")才对

Free-Lancer

清风明月10 发表于 2013-10-3 08:16
(xd::string:regexps "[^0-9]+|[0-9]+" "ZK001.00" "")
("ZK" "001" "." "00")
这个例子就不对，应该拆分 ...

_$ (xd::string:regexps "[^0-9]+|[0-9]+[.][0-9]+" "ZK001.00" "")
("ZK" "001.00")
_$

st788796

Free-Lancer 发表于 2013-10-3 08:37
_$ (xd::string:regexps "[^0-9]+|[0-9]+[.][0-9]+" "ZK001.00" "")
("ZK" "001.00")
_$

谢谢，代码已修改！