[编程申请]：构造一个选择集

wcf

当CAD图中有大量数字时,例如结构计算生成图中有大量的数字,能否建立大于某一数字的选择集.
如数字:3,12,21,10,23,32,51,65,88,14,15,21,78,91.......．请构造出大于等于２０的选择集．且能
判断出此选择集中最大的数和最小的数．

eachy

2. 
   
3. ;; 参数为要求的最小数
   
4. (defun Findnumber (minx / ss ssl e str lst)
   
5.   (if (setq ss (ssget '((0 . "text"))))        ;应该还有个图层过滤选项
   
6.     (progn
   
7.       (setq ssl (sslength ss))
   
8.       (while (> ssl 0)
   
9.         (setq e          (ssname ss (setq ssl (1- ssl)))
   
10.               str (distof (cdr (assoc 1 (entget e))))
    
11.         )
    
12.         (if (< str minx)
    
13.           (progn
    
14.             (ssdel e ss)
    
15.             (setq lst (cons str lst))
    
16.           )
    
17.         )
    
18.       )
    
19.     )
    
20.   )
    
21.   (list ss (apply 'min lst) (apply 'max lst))
    
22. )

<br /> ;; 参数为要求的最小数<br /> (defun Findnumber (minx / ss ssl e str lst)<br />   (if (setq ss (ssget '((0 . "text"))))        ;应该还有个图层过滤选项<br />     (progn<br />       (setq ssl (sslength ss))<br />       (while (> ssl 0)<br />         (setq e          (ssname ss (setq ssl (1- ssl)))<br />               str (distof (cdr (assoc 1 (entget e))))<br />         )<br />         (if (< str minx)<br />           (progn<br />             (ssdel e ss)<br />             (setq lst (cons str lst))<br />           )<br />         )<br />       )<br />     )<br />   )<br />   (list ss (apply 'min lst) (apply 'max lst))<br /> )