[日积月累]：选择数字－－－日积月累

eachy

2. 
   
3. (defun c:ssss (/ ss s1 e elst txt p)
   
4.   (if (setq ss (ssget '((0 . "text"))))
   
5.     (progn
   
6.       (setq ssl        (sslength ss)
   
7.             s1        (ssadd)
   
8.       )
   
9.       (while (> ssl 0)
   
10.         (setq e           (ssname ss (setq ssl (1- SSl)))
    
11.               elst (entget e)
    
12.               txt  (cdr (assoc 1 elst))
    
13.         )
    
14.         (if (and (not (vl-catch-all-error-p
    
15.                         (setq p (vl-catch-all-apply 'read (list txt)))
    
16.                       )
    
17.                  )
    
18.                  (numberp p)
    
19.             )
    
20.           (progn
    
21.             (ssadd e s1)
    
22.             (sssetfirst nil s1)
    
23.           )
    
24.         )
    
25.       )
    
26.     )
    
27.   )
    
28. )

<br /> (defun c:ssss (/ ss s1 e elst txt p)<br />   (if (setq ss (ssget '((0 . "text"))))<br />     (progn<br />       (setq ssl        (sslength ss)<br />             s1        (ssadd)<br />       )<br />       (while (> ssl 0)<br />         (setq e           (ssname ss (setq ssl (1- SSl)))<br />               elst (entget e)<br />               txt  (cdr (assoc 1 elst))<br />         )<br />         (if (and (not (vl-catch-all-error-p<br />                         (setq p (vl-catch-all-apply 'read (list txt)))<br />                       )<br />                  )<br />                  (numberp p)<br />             )<br />           (progn<br />             (ssadd e s1)<br />             (sssetfirst nil s1)<br />           )<br />         )<br />       )<br />     )<br />   )<br /> )

blackspot

简洁而漂亮的程序
请教斑主：
1、vl-catch-all-apply 比apply函数的改进在哪？看说明是能截获并处理错误，不需将错误发往*error*， 它如何处理错误呢？vl-catch-all-error-p如何运作？
2、程序使用了read读入串的第一段，假如该串中有空格分隔后面的数字，则程序只选择串的第一部分进行判断，如它是数字则选中，则会出现这样的个例："300   500"被选中，该串似乎对一般程序没有什么用处。个人认为还是只用numberp判断就可以了
3、版主有“要在一个任意串中判断是否有数字”的程序吗？

eachy

1 vl-catch-all-apply 不仅可以返回求值当出现错误的 时候不是退出，apply 在出现错误的时候会退出，vl-catch-all-error-p 捕获的是错误信息
2 read 不能判断 ".90" 这样的字串，带空格的可以先行分割然后判断
3 以前讨论并贴过这个函数，另外可以参考xd工具箱中的函数

陌生人

走过路过，不要错过：）
[php]
;选择数字文本-----------------------陌生人.2004.5
;支持: 1e33; .3 ; 3 ;33.3 等格式.
;过滤"333 333"类格式.

(defun c:ttt (/ i e ss0 ss)
  (command ".select" "") ;;解决连续执行的bug.
  (if(setq i -1 ss0 (ssadd) ss (ssget '((0 . "TEXT"))))
     (repeat (1- (sslength ss))
       (setq e (ssname ss (setq i (1+ i))))
       (if (distof (cdr (assoc 1 (entget e))))
           (setq ss0 (ssadd e ss0))
       )
     )
  )(sssetfirst nil ss0)
)
[/php]