autolisp如何实现快速选择满足条件的对象

275437962

链接地址： http://bbs.mjtd.com/thread-108797-1-1.html

自贡黄明儒

http://bbs.mjtd.com/thread-108829-1-1.html 2楼

SunSpring

借花献佛,试试看是不是这样.

1. (defun myss (minl maxl / e len n obj ss)
   
2.   (if (setq ss (ssget '((0 . "*LINE"))))
   
3.     (repeat (setq n (sslength ss))
   
4.       (setq e (ssname ss (setq n (1- n))))
   
5.       (setq obj (vlax-ename->vla-object e))
   
6.       (setq len (vlax-get obj 'length))
   
7.       (if (or
   
8.             (< len minl)
   
9.             (> len maxl)
   
10.           )
    
11.         (ssdel e ss)
    
12.       )
    
13.     )
    
14.   )
    
15.   ss
    
16. )
    
17. 
    
18. (defun c:sss (/ a b ss)
    
19.   (if (not (setq a (getdist "\n请指定最小长度<0.5>:")))
    
20.     (setq a 0.5)
    
21.   )
    
22.   (if (not (setq b (getdist "\n请指定最大长度<2.5>:")))
    
23.     (setq b 2.5)
    
24.   )
    
25.   (if (and
    
26.         a
    
27.         b
    
28.       )
    
29.     (if (setq ss (myss a b))
    
30.       (command "._select" ss "" "._pselect" ss "")
    
31.     )
    
32.   )
    
33.   (princ)
    
34. )
    

(defun myss (minl maxl / e len n obj ss)<br />   (if (setq ss (ssget '((0 . "*LINE"))))<br />     (repeat (setq n (sslength ss))<br />       (setq e (ssname ss (setq n (1- n))))<br />       (setq obj (vlax-ename->vla-object e))<br />       (setq len (vlax-get obj 'length))<br />       (if (or<br />             (< len minl)<br />             (> len maxl)<br />           )<br />         (ssdel e ss)<br />       )<br />     )<br />   )<br />   ss<br /> )<br /> <br /> (defun c:sss (/ a b ss)<br />   (if (not (setq a (getdist "\n请指定最小长度<0.5>:")))<br />     (setq a 0.5)<br />   )<br />   (if (not (setq b (getdist "\n请指定最大长度<2.5>:")))<br />     (setq b 2.5)<br />   )<br />   (if (and<br />         a<br />         b<br />       )<br />     (if (setq ss (myss a b))<br />       (command "._select" ss "" "._pselect" ss "")<br />     )<br />   )<br />   (princ)<br /> )<br />

小菜123

难道选择易实现不了么？

SunSpring

我觉着有失公平，那个函数有过lisp经验的都能写的出，只是偷懒没再去写一遍，最后竟是如此。。。。
最终明白你意思是我，而不是那个程序。