【文字】选择指定范围的数字文字，亮显

marting

1. (defun c:xdtb_txtnumscope (/ a b x txt num ents ss)
   
2.   (xdrx-begin)
   
3.   (xd::doc:getdouble "\n最大值" "#xd-var-global-maxnum" 100)
   
4.   (xd::doc:getdouble "\n最小值" "#xd-var-global-minnum" 0)
   
5.   (mapcar 'set
   
6.           '(a b)
   
7.           (vl-sort (list #xd-var-global-minnum #xd-var-global-maxnum)
   
8.                    '(lambda (x y) (< x y))
   
9.           )
   
10.   )
    
11.   (xd::var:setdouble "#xd-var-global-maxnum" b)
    
12.   (xd::var:setdouble "#xd-var-global-minnum" a)
    
13.   (if (setq ss (xdrx-ssget "\n选择带数字的文字<退出>:" '((0 . "*text"))))
    
14.     (progn
    
15.       (mapcar
    
16.         '(lambda (x)
    
17.            (setq txt (xdrx-getpropertyvalue x "textstring"))
    
18.            (if
    
19.              (and (setq        num
    
20.                          (xdrx-string-regexps
    
21.                            "[-|+]?([0-9]+\\.[0-9]+?)|[-|+]?([0-9]+)|[-|+]?([0-9]+\\.)|[-|+]?(\\.[0-9]+)|[-|+]?(\\[0-9]+)"
    
22.                            txt
    
23.                          )
    
24.                   )
    
25.                   (vl-some
    
26.                     '(lambda (x) (and (>= (atof x) a) (<= (atof x) b)))
    
27.                     num
    
28.                   )
    
29.              )
    
30.               (setq ents (cons x ents))
    
31.            )
    
32.          )
    
33.         (xdrx-pickset->ents ss)
    
34.       )
    
35.     )
    
36.   )
    
37.   (and (> (length ents) 0) (xdrx-entity-redraw ents 1)(xdrx-prompt "\n共选择到" (length ents) "个满足条件的带数字文字."))
    
38.   (xdrx-end)
    
39.   (princ)
    
40. )
    
41. 
    

(defun c:xdtb_txtnumscope (/ a b x txt num ents ss)<br />   (xdrx-begin)<br />   (xd::doc:getdouble "\n最大值" "#xd-var-global-maxnum" 100)<br />   (xd::doc:getdouble "\n最小值" "#xd-var-global-minnum" 0)<br />   (mapcar 'set<br />           '(a b)<br />           (vl-sort (list #xd-var-global-minnum #xd-var-global-maxnum)<br />                    '(lambda (x y) (< x y))<br />           )<br />   )<br />   (xd::var:setdouble "#xd-var-global-maxnum" b)<br />   (xd::var:setdouble "#xd-var-global-minnum" a)<br />   (if (setq ss (xdrx-ssget "\n选择带数字的文字<退出>:" '((0 . "*text"))))<br />     (progn<br />       (mapcar<br />         '(lambda (x)<br />            (setq txt (xdrx-getpropertyvalue x "textstring"))<br />            (if<br />              (and (setq        num<br />                          (xdrx-string-regexps<br />                            "[-|+]?([0-9]+\\.[0-9]+?)|[-|+]?([0-9]+)|[-|+]?([0-9]+\\.)|[-|+]?(\\.[0-9]+)|[-|+]?(\\[0-9]+)"<br />                            txt<br />                          )<br />                   )<br />                   (vl-some<br />                     '(lambda (x) (and (>= (atof x) a) (<= (atof x) b)))<br />                     num<br />                   )<br />              )<br />               (setq ents (cons x ents))<br />            )<br />          )<br />         (xdrx-pickset->ents ss)<br />       )<br />     )<br />   )<br />   (and (> (length ents) 0) (xdrx-entity-redraw ents 1)(xdrx-prompt "\n共选择到" (length ents) "个满足条件的带数字文字."))<br />   (xdrx-end)<br />   (princ)<br /> )<br /> <br />

singa

请问这个用来做什么的？

/db_自贡黄明儒_

启动lisp反应器后，还能亮显不？

wxb19880825

牛逼牛逼，就是命令太长，久了不用就忘了

newer

/db_自贡黄明儒_ 发表于 2020-7-15 08:41
启动lisp反应器后，还能亮显不？

反应器有什么影响？

newer

wxb19880825 发表于 2020-7-15 08:44
牛逼牛逼，就是命令太长，久了不用就忘了

有源代码，回去自己改c:后面的单词就行了

Michael527

功能不错，谢谢楼主的分享

/db_自贡黄明儒_

newer 发表于 2020-7-15 09:49
反应器有什么影响？

我说的是:vlr-lisp-reactor，不是所有的反应器。

hhhlike

一直搞不清楚为什么(sssetfirst nil (ssget)) 选取的物体一多就不是有夹点的亮显了

newer

hhhlike 发表于 2020-7-15 14:30
一直搞不清楚为什么(sssetfirst nil (ssget)) 选取的物体一多就不是有夹点的亮显了

没显示而已，你看看PR属性框， 还是选中的状态。