寻找一个含前后缀的数字文本加减替换的lsp程序

gcho

我想把“33”、“34a”、“a35”……这些单行文字加（或减）一个常数比如10，替换为“43”、“44a”、“a45”……
恳请高手出手相助！

自贡黄明儒

;;如是前后有整数，那就好办了

2. 
   
3. (defun NumberChange (str num / STR1 STR2)
   
4.   (cond        ((setq str1 (car (xd::string:regexps "\\d+$$" str "")))
   
5.          (setq str2 (itoa (+ (atoi str1) num)))
   
6.          (XD::String:Replace "\\d+$$" str str2 "")
   
7.         )
   
8.         ((setq str1 (car (xd::string:regexps "^\\d+" str "")))
   
9.          (setq str2 (itoa (+ (atoi str1) num)))
   
10.          (XD::String:Replace "^\\d+" str str2 "")
    
11.         )
    
12.   )
    
13. )
    
14. 
    
15. (defun C:w1 (/ EN ENTLIS N SS STR)
    
16.   (if (setq ss (ssget '((1 . "*#*"))))
    
17.     (repeat (setq n (sslength ss))
    
18.       (setq en (ssname ss (setq n (1- n))))
    
19.       (setq entlis (entget en))
    
20.       (setq str (cdr (assoc 1 entlis)))
    
21.       (if (setq str (NumberChange str 10))
    
22.         (entmod (subst (cons 1 str) (assoc 1 entlis) entlis))
    
23.       )
    
24.     )
    
25.   )
    
26. )
    

<br /> (defun NumberChange (str num / STR1 STR2)<br />   (cond        ((setq str1 (car (xd::string:regexps "\\d+$$" str "")))<br />          (setq str2 (itoa (+ (atoi str1) num)))<br />          (XD::String:Replace "\\d+$$" str str2 "")<br />         )<br />         ((setq str1 (car (xd::string:regexps "^\\d+" str "")))<br />          (setq str2 (itoa (+ (atoi str1) num)))<br />          (XD::String:Replace "^\\d+" str str2 "")<br />         )<br />   )<br /> )<br /> <br /> (defun C:w1 (/ EN ENTLIS N SS STR)<br />   (if (setq ss (ssget '((1 . "*#*"))))<br />     (repeat (setq n (sslength ss))<br />       (setq en (ssname ss (setq n (1- n))))<br />       (setq entlis (entget en))<br />       (setq str (cdr (assoc 1 entlis)))<br />       (if (setq str (NumberChange str 10))<br />         (entmod (subst (cons 1 str) (assoc 1 entlis) entlis))<br />       )<br />     )<br />   )<br /> )<br />

xyp1964

gcho

自贡黄明儒 发表于 2013-10-28 13:38
;;如是前后有整数，那就好办了

谢谢黄明儒的提供的源码，但是选择要替换的文本确认时出现如下错误：
; 错误: no function definition: XD::STRING:REGEXPS

石井鱼

同样选择要替换的文本确认时出现如下错误：
; 错误: no function definition: XD::STRING:REGEXPS