[编程申请]：在图纸中查找不存在的数字？

shona521

请高手指教，如何编写lisp程序，在图纸中查找不存在的数字。如从1~100，如果中间缺少24，25等，程序会给出提示。最好能够在框选里面也可以查找。

lsjjm

能否说说用途何在？ 看看下面程序行吗：
[PHP]
返回1-100间不存在数表：
(defun c:test (/ ll)
  (setq ss (ssget '((0 . "TEXT"))))
  (setq n 100)
  (repeat 100
    (setq ll (cons (itoa n) ll))
    (setq n (1- n))
  )
  (setq n 0 )
  (while (< n (sslength ss))
    (setq s (cdr (assoc 1 (entget (ssname ss n)))))
    (if (member s ll)(setq ll (vl-remove s ll)))
    (setq n (1+ n))
  )
  ll
)
[/PHP]

xiaogu1981

这个怎么学会的

shona521

[QUOTE]最初由 lsjjm 发布
[B]能否说说用途何在？ 看看下面程序行吗：
[PHP]
返回1-100间不存在数表：

多谢lsjjm。程序确实帮忙解决了问题。实在是太好了。以后不用再一个一个查编号是不是漏了。
不过程序能不能在改进一下。比如说编号最大到60，程序能够自动识别60这个最大数字，并能检查1~60之间缺少的数字，不把60~100也显示出来，有点眼花缭乱的感觉。谢谢指教。

lsjjm

自己试着改改, 那样你的收获会更大.

自由的鱼

最初由 shona521 发布
[B][QUOTE]最初由 lsjjm 发布
[B]能否说说用途何在？ 看看下面程序行吗：
[PHP]
返回1-100间不存在数表：

多谢lsjjm。程序确实帮忙解决了问题。实在是太好了。以后不用再一个一个查编号是不是漏了。
不过... [/B]

试着把程序中的数字改成你想要的，再运行，你会体会到调试程序的乐趣！

li809

(setq n 100)
  (repeat 100
二楼楼主能对这两行说明一下，各实现什么功能呢？
希望能回答一下，其中哪个是指定数列的最大数值

xyp1964

也发一个：
[php]
;;;在图纸中查找不存在的数字 <shona521>
(defun c:test ()
  (setq        num (ureal 1 "" "\n最大数值" num)
        n   1
  )
  (while (< n num)
    (setq tx (rtos n 2 0)
          s1 (ssget "X" (list (cons 0  "TEXT") (cons 1 tx)))
    )
    (if        s1
      (princ)
      (progn
        (princ "\不存在数字 ：")
        (princ n)
      )
    )
    (setq n (1+ n))
  )
  (princ)
)
(defun ureal (bit kwd msg def / inp)
  (if def
    (setq msg (strcat "\n" msg "<" (rtos def 2) ">: ")
          bit (* 2 (fix (/ bit 2)))
    )
    (setq msg (strcat "\n" msg ": "))
  )
  (initget bit kwd)
  (setq inp (getreal msg))
  (if inp inp def)
)
[/php]

li809

怎么楼主不回答我的问题，求