删除字符串中的阿拉伯数字

ll_j

cz7873559 发表于 2013-6-21 18:58
字符串处理看似简单，实际上可以把我们新手搞晕。如果相减是不是写起更麻烦？

我贴上的函数很简单，从里到外主要三个函数：
vl-string->list ：把字符串变成ascii码的列表；
vl-remove->if ：去掉表中的数字字符（ascii码48～57）；
vl-list-string ：将表中剩下的ascii码还原成字符串。
使用应该没有问题的，实在也没有什么好改写的，st所说的是可以简化一些，但不改变原本的性质。
是不是你调用的格式不对，把字符串输入成符号名了？

newer

ll_j 发表于 2013-6-21 15:32

惊奇的发现，长老用VLISP了。

清风明月10

的确可以删除其中的数，我试了可以的。谢谢楼主分享

cz7873559

谢谢你的解释，但是我不知道怎样去框选文字使他们变化，可能是太笨了，查了一下午的资料都没能实现。

cz7873559

我能理解这三个函数的意思了。现在想把它们变成一段可以使用的程序，该怎样写呢？

st788796

cz7873559 发表于 2013-6-21 20:21
我能理解这三个函数的意思了。现在想把它们变成一段可以使用的程序，该怎样写呢？

这样用

1. (defun c:tt (/ ss sl i e el str nstr el)
   
2.   (if (setq ss (ssget '((0 . "Text")))) ;_选择文字
   
3.     (progn
   
4.       (setq sl (sslength ss) ;_选择集长度
   
5.             i  -1 ;_计数器，指针
   
6.       )
   
7.       (repeat sl ;_循环选择集
   
8.         (setq e           (ssname ss (setq i (1+ i))) ;_逐一取出选择集文字
   
9.               el   (entget e) ;_获取文字的 elist
   
10.               str  (cdr (assoc 1 el)) ;_取出旧字串
    
11.               nstr (vl-list->string
    
12.                      (vl-remove-if
    
13.                        '(lambda (x) (< 47 x 58))
    
14.                        (vl-string->list str)
    
15.                      )
    
16.                    ) ;_去掉数字后的新字串
    
17.               el   (subst (cons 1 nstr) (assoc 1 el) el) ;_替换掉旧字
    
18.         )
    
19.         (entmod el) ;_修改文字
    
20.       )
    
21.     )
    
22.   )
    
23.   (princ)
    
24. )

(defun c:tt (/ ss sl i e el str nstr el)<br />   (if (setq ss (ssget '((0 . "Text")))) ;_选择文字<br />     (progn<br />       (setq sl (sslength ss) ;_选择集长度<br />             i  -1 ;_计数器，指针<br />       )<br />       (repeat sl ;_循环选择集<br />         (setq e           (ssname ss (setq i (1+ i))) ;_逐一取出选择集文字<br />               el   (entget e) ;_获取文字的 elist<br />               str  (cdr (assoc 1 el)) ;_取出旧字串<br />               nstr (vl-list->string<br />                      (vl-remove-if<br />                        '(lambda (x) (< 47 x 58))<br />                        (vl-string->list str)<br />                      )<br />                    ) ;_去掉数字后的新字串<br />               el   (subst (cons 1 nstr) (assoc 1 el) el) ;_替换掉旧字<br />         )<br />         (entmod el) ;_修改文字<br />       )<br />     )<br />   )<br />   (princ)<br /> )

ll_j

cz7873559 发表于 2013-6-21 20:00
谢谢你的解释，但是我不知道怎样去框选文字使他们变化，可能是太笨了，查了一下午的资料都没能实现。

听你这样一说，好像离Lisp入门还有一点距离，框选文字让他们变化，还有好几个大的步骤，仅仅一小段代码是远远不够的。
这不是笨不笨的事情，什么事都要有一个过程，都不是一蹴而就的。
如果急用，把使用条件表述清楚，大家会帮你写。
如果不是很急，可以把这个题目就当作你的第一个程序，Lisp基本都是在使用中学习的。
按我对你回帖的理解，程序大致涉及这样几个内容：
1.框选文字ssget
2.文字实体处理ssname、entget
3.实体表变换assoc、（rnum）、subst
4.文字更新entmod

laibinwu

学习了，感谢llj:)

cz7873559

ll_j ，我是初级的。真的很想学好lisp，你已经给我了很多。我几乎还不知道实现步骤。谢谢你的指点！感谢st788796 ，我用你的来慢慢消化~

cz7873559

st788796 发表于 2013-6-21 21:17
这样用

你调试能通过吗？我用起来还是  ; 错误: 参数类型错误: lentityp nil

cz7873559

st788796 发表于 2013-6-21 21:17
这样用

谢谢你的这么详细的注释。

st788796

cz7873559 发表于 2013-6-21 22:12
谢谢你的这么详细的注释。

输错了 (entget el) 应为 (entget e)

cz7873559

嗯。这样改了就完美实现了。谢谢ll_j 和st788796 的无私帮助！

434939575

太给力了。