如何过滤选择大于某个值的数字

wanhongron

框选一堆数字，再从中筛选出大于某个值的数作为新的选集，请问各位大侠，怎么实现？

wanhongron

非常感谢vitalgg大侠，感觉是好程序单不会用，麻烦帮融入到我上传的程序

wanhongron

麻烦改建一下我的数字加减程序，增加支持筛选大于某个值的功能

vitalgg

2. (defun c:sn (/ para-comp fun number)
   
3.   (@:help '("选择大于或小于某一数值的字符串."))
   
4.   (setq para-comp (string:auto-split (getstring "请输入比较规则及值，如>300,<=200 :")))
   
5.   (if (and
   
6.         (string:numberp (cadr para-comp))
   
7.         (= 'subr (type (eval (read (car para-comp))))))
   
8.     (progn
   
9.       ;; 分析输入的参数，
   
10.       (setq fun    (eval (read (car para-comp)))
    
11.             number (atof (cadr para-comp)))
    
12.       ;; 过滤 条件生成新的选择集。
    
13.       (sssetfirst nil
    
14.         (pickset:from-list
    
15.           (vl-remove-if-not
    
16.           '(lambda (x)
    
17.              (and
    
18.                (string:numberp (entity:getdxf x 1))
    
19.                  (fun (atof (entity:getdxf x 1)) number )))
    
20.           (pickset:to-list (ssget '((0 . "text"))))
    
21.         )))
    
22.   )))

(defun c:sn (/ para-comp fun number) <br />   (@:help '("选择大于或小于某一数值的字符串."))<br />   (setq para-comp (string:auto-split (getstring "请输入比较规则及值，如>300,<=200 :")))<br />   (if (and <br />         (string:numberp (cadr para-comp))<br />         (= 'subr (type (eval (read (car para-comp))))))<br />     (progn <br />       ;; 分析输入的参数，<br />       (setq fun    (eval (read (car para-comp)))<br />             number (atof (cadr para-comp)))<br />       ;; 过滤 条件生成新的选择集。<br />       (sssetfirst nil <br />         (pickset:from-list <br />           (vl-remove-if-not <br />           '(lambda (x) <br />              (and <br />                (string:numberp (entity:getdxf x 1))<br />                  (fun (atof (entity:getdxf x 1)) number )))<br />           (pickset:to-list (ssget '((0 . "text"))))<br />         )))<br />   )))

lxl217114

小菜选择易，可以选择大于某个数值的数字。
http://bbs.mjtd.com/thread-86610-1-1.html

d1742647821

wanhongron 发表于 2023-6-8 11:45
非常感谢vitalgg大侠，感觉是好程序单不会用，麻烦帮融入到我上传的程序

授人以鱼，不如授人以渔

vitalgg

如果无法播放，请点击此处在新窗口打开

代码已更新。只实现基本功能。没有细化流程，如输入错误的处理等。

wanhongron

程序运行不了

vitalgg

wanhongron 发表于 2023-6-8 21:15
程序运行不了

需要@lisp核心和函数库
见我签名或到 http://atlisp.cn 查看安装方法

wanhongron

谢谢大侠，本人水平有限，虽然心有不甘，还是放弃了。。。