取2个参照圆径

amwkto2011

1. (defun c:tt(/ se1 se2 get )
   
2.   (setq se1 (entget (car (entsel "\n点取第一个参照圆径:"))))
   
3.   (setq se2 (entget (car (entsel "\n点取第二个参照圆径:"))))
   
4.   (setq get (ssget (list '(0 . "circle")
   
5.               (assoc 40 se1)
   
6.         (assoc 40 se2)      
   
7.        );list
   
8.        );ssget
   
9.   );get
   
10.   (sssetfirst nil get)
    
11.   (princ)
    
12.   )

(defun c:tt(/ se1 se2 get )<br />   (setq se1 (entget (car (entsel "\n点取第一个参照圆径:"))))<br />   (setq se2 (entget (car (entsel "\n点取第二个参照圆径:"))))<br />   (setq get (ssget (list '(0 . "circle") <br />               (assoc 40 se1)<br />         (assoc 40 se2)      <br />        );list<br />        );ssget<br />   );get<br />   (sssetfirst nil get)<br />   (princ)<br />   )

怎么同时选中2个参照圆径，1个的时候可以选中，2个就不行了。

st788796

(-4 . "<or") (assoc 40 se1) (assoc 40 se2)(-4 . "or>")

amwkto2011

st788796 发表于 2014-11-9 13:50
(-4 . "")

谢谢指导，可以了.
如果要再加一个条件，2个圆要是同心才被选中，要怎么做.

st788796

搜前面帖子，选择同心圆

amwkto2011

st788796 发表于 2014-11-9 17:19
搜前面帖子，选择同心圆

谢谢哦，找到了前面的贴子，不是一两句可以做到的，我还需努力

dnbcgrass

(setq get (ssget (list '(0 . "circle")(assoc 10 se1)'(-4 . "<or") (assoc 40 se1) (assoc 40 se2)'(-4 . or>"))))

amwkto2011

dnbcgrass 发表于 2014-11-9 20:21
(setq get (ssget (list '(0 . "circle")(assoc 10 se1)(-4 . "

谢谢帮忙解答
提示错误了
错误: 输入的点对中含有多余的 cdrs

是不是我加错位置了
(defun c:tt(/ se1 se2 get )
  (setq se1 (entget (car (entsel "\n点取第一个参照圆径:"))))
  (setq se2 (entget (car (entsel "\n点取第二个参照圆径:"))))
  (setq get (ssget (list '(0 . "circle")(assoc 10 se1)(-4 . "<or") (assoc 40 se1) (assoc 40 se2)(-4 . or>"))))
  (sssetfirst nil get)
  (princ)
  )