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

275437962

我想实现用lisp快速选择，长度既小于某个值，又大于某个值的直线或多段线！（如长度小于2.5，但又大于0.5）
选择对象后，还可进行其它操作，(如删除操作等)

自贡黄明儒

请使用<选择易>

1. ;;获得minL maxL之间长度线的选择集
   
2. ;;示例(sslength (MySS 150 200))
   
3. (defun MySS (minL maxL / E LEN N OBJ SS)
   
4.   (if (setq ss (ssget '((0 . "*LINE"))))
   
5.     (repeat (setq n (sslength ss))
   
6.       (setq e (ssname ss (setq n (1- n))))
   
7.       (setq obj (vlax-ename->vla-object e))
   
8.       (setq Len (vlax-get obj 'Length))
   
9.       (if (or (< Len minL) (> Len maxL))
   
10.   (ssdel e ss)
    
11.       )
    
12.     )
    
13.   )
    
14.   ss
    
15. )

;;获得minL maxL之间长度线的选择集<br /> ;;示例(sslength (MySS 150 200))<br /> (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 (< Len minL) (> Len maxL))<br />   (ssdel e ss)<br />       )<br />     )<br />   )<br />   ss<br /> )

275437962

自贡黄明儒 发表于 2013-12-24 16:33
请使用

那个我会，但很不方便，帮忙想想用lisp实现吧！！

菜卷鱼

http://bbs.mjtd.com/thread-84736-1-1.html

275437962

菜卷鱼 发表于 2013-12-24 16:42
http://bbs.mjtd.com/thread-84736-1-1.html

里面是有不少，不过没有满足要求的，有一个满足条件圆的选择，可以选择满足条件的圆，但选择后，不能对这些圆做任何操作了

snddd2000

http://bbs.mjtd.com/thread-108654-1-1.html

275437962

snddd2000 发表于 2013-12-25 08:43
http://bbs.mjtd.com/thread-108654-1-1.html

这个我看过了，程序有问题！！1

自贡黄明儒

看看2楼能否满足你的要求
(setq ss (myss 0.5 2.5))这后，你就可以处理你的选择集了

edata

自贡黄明儒 发表于 2013-12-28 08:28 看看2楼能否满足你的要求 (setq ss (myss 0.5 2.5))这后，你就可以处理你的选择集了

猜测楼主还需要亮显选择集，可以删除等操作，具体什么操作，没有阐述。

xyp1964

2. ;; 需要e派工具箱(XCAD)的支持：http://yunpan.cn/QXQKsW9gAPmpF
   
3. (defun c:tt ()
   
4.   (defun aaa (ss d1 d2 / ss1)
   
5.     (setq lst (xyp-ss2list ss)
   
6.           lst (vl-remove-if
   
7.                 '(lambda (x)
   
8.                    (or (< (xyp-CurveLength x) d1)
   
9.                        (> (xyp-CurveLength x) d2)
   
10.                    )
    
11.                  )
    
12.                 lst
    
13.               )
    
14.           ss1 (xyp-list2ss lst)
    
15.     )
    
16.     (if        ss1
    
17.       (sssetfirst ss1 ss1)
    
18.     )
    
19.   )
    
20.   (if (setq ss (ssget '((0 . "*LINE,ARC,CIRCLE,ELLIPSE"))))
    
21.     (aaa ss 500 5000)
    
22.   )
    
23. )

;; 需要e派工具箱(XCAD)的支持：http://yunpan.cn/QXQKsW9gAPmpF<br /> (defun c:tt ()<br />   (defun aaa (ss d1 d2 / ss1)<br />     (setq lst (xyp-ss2list ss)<br />           lst (vl-remove-if<br />                 '(lambda (x)<br />                    (or (< (xyp-CurveLength x) d1)<br />                        (> (xyp-CurveLength x) d2)<br />                    )<br />                  )<br />                 lst<br />               )<br />           ss1 (xyp-list2ss lst)<br />     )<br />     (if        ss1<br />       (sssetfirst ss1 ss1)<br />     )<br />   )<br />   (if (setq ss (ssget '((0 . "*LINE,ARC,CIRCLE,ELLIPSE"))))<br />     (aaa ss 500 5000)<br />   )<br /> )