急求一次对多个字符串文本中某位进行相同运算的程序

SONG421

;| 如

F-203-1改为F-203-2

F-203-3改为F-203-4

F-203-5改为F-203-4

最后位加1

小顽童

就是固定格式吗？没别的格式？

zxj_76

做个循环，逐个替换！

ZZXXQQ

2. (DEFUN C:LASTADD ()
3. (PRINC "\nSelect text(s) :")
4. (IF (SETQ SS (SSGET '((0 . "TEXT") (1 . "F-203-#")))) (PROGN
5.   (SETQ I -1)
6.   (REPEAT (SSLENGTH SS)
7.    (SETQ ENT (ENTGET (SSNAME SS (SETQ I (1+ I))))
8.          TXT (CDR (ASSOC 1 ENT))
9.          TXT (STRCAT (SUBSTR TXT 1 6) (ITOA (1+ (ATOI (SUBSTR TXT 7 1)))))
10.          ENT (SUBST (CONS 1 TXT) (ASSOC 1 ENT) ENT))
11.    (ENTMOD ENT)
12.   )
13. ))
14. (PRINC)
15. )

复制代码