[编程申请]：如何在一张图里面选中的数字中判断出最大与最小数

shona521

请各位大虾帮忙，如何用lisp实现在一张图里面选中的数字中判断出最大与最小的数，并输出来。如果数字中有前缀，也可以判断除去前缀后的数字的最大值与最小值。并能够显示出其间缺少的数字。
举个例子：如编号为“图1”，“图2”***“图n”,或者直接是数字1，2，3***n，其中中间缺少“图6”，或者是数字6，程序输出有：
   自动选中带“图”前缀的对象最大值为“图n”，最小值为“图1”,缺少的值为“图6”
或选中的数字中最大值为“n”，最小值为“1”,缺少的值为“6”.
我lisp刚刚入门，还请前辈们多多指教。

lsjjm

请参考:
[PHP]
(defun c:test (/ ll)
  (setq ss (ssget '((0 . "*TEXT"))) n 0)
  (while (< n (sslength ss))
    (setq str (cdr (assoc 1 (entget (ssname ss n)))))
    (setq ll (append ll (list str)))
    (setq n (1+ n))
  )
  (setq ll (vl-sort ll '(lambda (p1 p2)(< (distof (substr p1 2))(distof (substr p2 2))))))
)
[/PHP]
判断其间缺少的数字,你10/11有贴子询问看回答。

eachy

仅判断数字的，用 lisp 还可以这样

2. 
   
3. (defun c:test (/ ss sl e nl nll str e0 maxn minn)
   
4.   (if (setq ss (ssget '((0 . "text"))))
   
5.     (progn
   
6.       (setq sl (sslength ss))
   
7.       (while (> sl 0)
   
8.         (setq e (ssname ss (setq sl (1- sl))))
   
9.         (if (setq str (distof (cdr (assoc 1 (entget e)))))
   
10.           (progn (setq nl (cons str nl))
    
11.                  (setq nll (cons (cons str e) nll))
    
12.           )
    
13.         )
    
14.       )
    
15.       (if nl
    
16.         (progn
    
17.           (setq maxn (apply 'max nl))
    
18.           (setq minn (apply 'min nl))
    
19.         )
    
20.       )
    
21.       (setq e0 (cdr (assoc maxn nll)))
    
22.     )
    
23.   )
    
24.   (if maxn
    
25.     (progn
    
26.       (princ "\nMax number is ")
    
27.       (princ maxn)
    
28.       (princ "\nMin number is ")
    
29.       (princ minn)
    
30.       (redraw e0 3)
    
31.       (redraw (cdr (assoc minn nll)) 3)
    
32.     )
    
33.   )
    
34.   (princ)
    
35. )

<br /> (defun c:test (/ ss sl e nl nll str e0 maxn minn)<br />   (if (setq ss (ssget '((0 . "text"))))<br />     (progn<br />       (setq sl (sslength ss))<br />       (while (> sl 0)<br />         (setq e (ssname ss (setq sl (1- sl))))<br />         (if (setq str (distof (cdr (assoc 1 (entget e)))))<br />           (progn (setq nl (cons str nl))<br />                  (setq nll (cons (cons str e) nll))<br />           )<br />         )<br />       )<br />       (if nl<br />         (progn<br />           (setq maxn (apply 'max nl))<br />           (setq minn (apply 'min nl))<br />         )<br />       )<br />       (setq e0 (cdr (assoc maxn nll)))<br />     )<br />   )<br />   (if maxn<br />     (progn<br />       (princ "\nMax number is ")<br />       (princ maxn)<br />       (princ "\nMin number is ")<br />       (princ minn)<br />       (redraw e0 3)<br />       (redraw (cdr (assoc minn nll)) 3)<br />     )<br />   )<br />   (princ)<br /> )

zxq0220

下面的LISP程序可以满足1楼楼主的要求。
[php]
(defun c:test ( / ss sl e str ssl ch sstr nl nll e0 maxn minn)
(if (setq ss (ssget '((0 . "text")))) (progn
  (setq sl (sslength ss))
  (while (> sl 0)
   (setq e (ssname ss (setq sl (1- sl))))
   (setq str (cdr (assoc 1 (entget e)))
         ssl (strlen str) i 1 sstr "")
   (while (<= i ssl)
    (if (and (>= (setq ch (substr str i 1)) "0") (<= ch "9"))
     (setq sstr (strcat sstr ch) i (1+ i))
     (setq i (if (= (strlen sstr) 0) (1+ i) ssl))
    )
   )
   (if (setq str (atoi sstr))
    (setq nl (cons str nl) nll (cons (cons str e) nll))
   )
  )
  (if nl (setq maxn (apply 'max nl) minn (apply 'min nl)))
  (setq e0 (cdr (assoc maxn nll)))
))
(if maxn (progn
  (princ "\nMax number is ") (princ maxn)
  (princ "\nMin number is ") (princ minn)
  (redraw e0 3)
  (redraw (cdr (assoc minn nll)) 3)
))
(setq i minn)
(repeat (- maxn minn 1)
  (if (not (assoc (setq i (1+ i)) nll)) (progn
   (princ "\nNot found number ") (princ i)
  ))
)
(princ)
)
[/php]

jinyunpeng

全是什么意思了