求个删除数字的命令

风流少年时

我现在的图纸中有要处理一批数字，但有的数字前面有空格和字母。例如2655，   XADY2800 ,2400XADY2860。我想实现输入2500时删除小于它的所有数。我现在有的程序不能实现此功能，希望大神们帮帮忙。我为了这个数字处理加老班了。

风流少年时

现在还在加班中啊。大神们看到了就帮帮我吧。

风流少年时

通宵了啊，大神何在？？？？？？

风流少年时

大神都没上班？

风流少年时

就没人支援下？

【KAIXIN】

2. ;删除数字文本
   
3. (defun c:XX()
   
4. (KX-COMA)   
   
5.   (KX-princA "删除数字文本")
   
6.   (KX-princ "数字文本对象")
   
7.   (KX-E (ssget '((0 . "TEXT") (1 . "~*[~`--9]*"))))
   
8. (KX-COMB)
   
9. )
   

;删除数字文本<br /> (defun c:XX()<br /> (KX-COMA)    <br />   (KX-princA "删除数字文本")<br />   (KX-princ "数字文本对象")<br />   (KX-E (ssget '((0 . "TEXT") (1 . "~*[~`--9]*"))))<br /> (KX-COMB)<br /> )<br />