删除文字字母前后缀？

树櫴希德

1. (vl-list->string(vl-remove-if-not '(LAMBDA (x) (and(<= x 57) (>= x 45)) )  
   
2. (vl-string->list "a-12345.635asx"))  )
   
3. "-12345.635"

(vl-list->string(vl-remove-if-not '(LAMBDA (x) (and(<= x 57) (>= x 45)) )  <br /> (vl-string->list "a-12345.635asx"))  )<br /> "-12345.635"

树櫴希德

关于选择含数字文字

1. (ssget '((0 . "text,mtext") (1 . "*[0-9]*")   )   ) ;选择字母数字结合文字和数字
   
2. 
   
3. 
   
4. (ssget '((0 . "text,mtext") (1 . "~[0-9]*")   )   ) ;选择非纯数字文字和字母数字结合文字
   
5. 
   
6. 
   
7. (ssget '((0 . "text,mtext") (1 . "~*[0-9]*")   )   ) ;选择纯非数字文字
   
8. 
   
9. (ssget '((0 . "text,mtext") (1 . "~*[~--9]*")   )   )  ;选择纯数字文字=====这个才是 用于求和
   
10. (ssget '((0 . "text,mtext") (1 . "[-1-9]*")   )   )  ;选择纯数字文字(含负数)
    
11. ;;功能：带提示、关键字、过滤表、选择错误时的提示并且会亮显所选对像的entsel
    
12. ;;用法：( clh-entsel  提示信息  关键字  过滤表  选择错误时提示)
    
13. ;;举例：(clh-entsel  "\n请选择一个圆："  "A B C"   '((0 . "circle"))  "\n所选对像不符合要求！请重新选择：")
    
14. 
    
15. ;(clh-entsel  "\n请选择一个数字："  "A B C"   '((0 . "TEXT")(1 . "~*[~-1-9]*"))  "\n所选对像不符合要求！请重新选择：")
    
16. 
    
17. ;;说明：过滤表与ssget的过滤表相同;函数由CLH521，2009.6.7参考了一些网上资料整理编写
    
18. (defun clh-entsel (msg key fil ermsg / el ss)
    
19.   (while (and (setvar "errno" 0)
    
20.                   (not (and (setq el (apply '(lambda (msg key) (initget key) (entsel msg)) (list msg key)))
    
21.                                         (if (= (type el) 'str)
    
22.                                             el
    
23.                                                (if (setq ss (ssget (cadr el) fil))
    
24.                                                   ss
    
25.                                                       (progn (princ ermsg) (setq ss nil))
    
26.                                                );if
    
27.                                             );if
    
28.                                         );and
    
29.                           );not
    
30.                           (/= (getvar "errno") 52)
    
31.                  );and
    
32.   );while
    
33.   (if (= (type el) 'list) (redraw (car el) 3));亮显选中的对像
    
34.   el
    
35. )
    
36. ;clh-entsel函数完毕========================================================
    
37. 
    
38. 
    

(ssget '((0 . "text,mtext") (1 . "*[0-9]*")   )   ) ;选择字母数字结合文字和数字<br /> <br /> <br /> (ssget '((0 . "text,mtext") (1 . "~[0-9]*")   )   ) ;选择非纯数字文字和字母数字结合文字<br /> <br /> <br /> (ssget '((0 . "text,mtext") (1 . "~*[0-9]*")   )   ) ;选择纯非数字文字<br /> <br /> (ssget '((0 . "text,mtext") (1 . "~*[~--9]*")   )   )  ;选择纯数字文字=====这个才是 用于求和<br /> (ssget '((0 . "text,mtext") (1 . "[-1-9]*")   )   )  ;选择纯数字文字(含负数)<br /> ;;功能：带提示、关键字、过滤表、选择错误时的提示并且会亮显所选对像的entsel<br /> ;;用法：( clh-entsel  提示信息  关键字  过滤表  选择错误时提示)<br /> ;;举例：(clh-entsel  "\n请选择一个圆："  "A B C"   '((0 . "circle"))  "\n所选对像不符合要求！请重新选择：")<br /> <br /> ;(clh-entsel  "\n请选择一个数字："  "A B C"   '((0 . "TEXT")(1 . "~*[~-1-9]*"))  "\n所选对像不符合要求！请重新选择：")<br /> <br /> ;;说明：过滤表与ssget的过滤表相同;函数由CLH521，2009.6.7参考了一些网上资料整理编写<br /> (defun clh-entsel (msg key fil ermsg / el ss)<br />   (while (and (setvar "errno" 0) <br />                   (not (and (setq el (apply '(lambda (msg key) (initget key) (entsel msg)) (list msg key)))<br />                                         (if (= (type el) 'str)<br />                                             el<br />                                                (if (setq ss (ssget (cadr el) fil))<br />                                                   ss<br />                                                       (progn (princ ermsg) (setq ss nil))<br />                                                );if<br />                                             );if<br />                                         );and<br />                           );not<br />                           (/= (getvar "errno") 52)<br />                  );and<br />   );while<br />   (if (= (type el) 'list) (redraw (car el) 3));亮显选中的对像<br />   el<br /> )<br /> ;clh-entsel函数完毕========================================================<br /> <br /> <br />

meja

这个函数很有作用