[LISP程序]：求CAD下过滤某个范围数字的程序

pinkpitch

CAD图形中有很多数字，想将某一个范围的数字过滤出来，谁有这样的程序，不胜感激

animal212

过滤出来是什么意思啊？把数字单独打印出来吗？如果是这样的话下面的程序可以用哦。
(defun ice()
(vl-load-com)
(load"xyp_lib.vlx");;;如果没有这个东西的话那得去论坛里下载个。
(setq ffn (getfiled "选取档案" "" "txt" 1))
(setq ff (open ffn "w"))
(setq        dd   (ssget '((0 . "*TEXT")))
        i    -1
  )
(repeat (sslength dd)
(setq s1 (ssname dd (setq i (1+ i))))
(setq lst (xyp-get-DXF 1 s1))
(setq lst (atof lst))
(princ lst ff)
(princ "\n" ff)

)
(close ff)
)

zml84

楼主的需求请详细描述。

carrot1983

应该是这样子的。用完这个程序后，如果想要对你所选择的数字进行操作输入"p"，那么你可以比如：

1. 
   
2. 命令: m MOVE
   
3. 选择对象: p 找到 8 个
   
4. 选择对象:  指定基点或位移: 指定位移的第二点或 <用第一点作位移>:
   

复制代码

[php]
;;;命令:tt
(defun c:tt (/ data i na num1 num2 slen ss sslast value)
  (setq ss (ssget '((0 . "*text"))))
  (setq num1 (getreal "\n输入数字范围下限：:"))
  (setq num2 (getreal "\n输入数字范围上限:"))
  (setq slen (- (sslength ss) 1))
  (setq i 0)
   (setq sslast (ssadd))
  (while (<= i slen)
    (setq na (ssname ss i))
    (setq data (entget na))
    (setq value (atof (cdr (assoc 1 data))))
      (if (and (>= value num1) (<= value num2))
        (ssadd na sslast)
      )
    (setq i (+ i 1))
  )
  (defun redrawobj (ss / i na)
    (setq i 0)
    (repeat (sslength ss)
      (setq na (ssname ss i))
      (redraw na 3)
      (setq i (1+ i))
    )
  )
  (redrawobj sslast)
  (princ)
)

[/php]