关于同心圆的判断与筛选。请各位高手帮帮忙

qinleilei

feng582304 发表于 2014-8-11 00:35

(setq ss (ssget '((-4 . "<and") (0 . "CIRCLE") (-4 . "<or") (40 . 4.5) (40 . 7.0) (-4 . "or>") (-4 . "and>"))))
上面那句话是什么意思，有点不明白。可不可以帮忙解释一下。
如果我要把4.5  7.0  设置成变量a  b ，需要怎么更改
另外如果要把同心圆的位置设置允许0.1的偏差该如何修改

feng582304

qinleilei 发表于 2014-8-11 14:30
(setq ss (ssget '((-4 . ""))))
上面那句话是什么意思，有点不明白。可不可以帮忙解释一下。
如果我要 ...

(setq ss (ssget '((-4 . "<and") (0 . "CIRCLE") (-4 . "<or") (40 . 4.5) (40 . 7.0) (-4 . "or>") (-4 . "and>"))))
1.是一个带过滤列表的选择，意思就是选择半径是4.5和7.0的圆。
2.(setq ss (ssget (list (cons -4  "<and") (cons 0 "CIRCLE") (cons -4 "<or") (cons 40 a) (cons 40 b) (cons -4 "or>") (cons -4 "and>"))))
3.圆心位置的精度为1e-05，如果你要0.1的话，就把1e-05改为0.1

雪山飞狐_lzh

建议 让用户直接选择同心圆 而不是改代码
另外 and是多余的

lite

附件为我写的关于选取同心圆的程序，为方便使用，写成了函数。

zctao1966

①先选择所有的圆
②获取圆的圆心，组成表1
③删除重复的圆心，组成新的圆心表2
④遍历圆心表2，选择圆，
⑤如果对象是2个，并且是Φ9.0与Φ14.0的圆，创建选择集

xyp1964

ysq101

lite 发表于 2014-8-11 18:11
附件为我写的关于选取同心圆的程序，为方便使用，写成了函数。

还是用XD的模块写的
我还以为是纯原码呢

vlisp2012

院长的是纯源码吗？

llsheng_73

1. (defun c:txy(/ s s2 e1 e2 m n)
   
2.   (if(setq s(ssget'((0 . "circle,arc")(40 . 4.5))))
   
3.     (progn
   
4.       (setq s2(ssadd)n 0)
   
5.       (repeat(sslength s)
   
6.         (setq e1(ssname s n)n(1+ n))
   
7.         (if(setq e2(ssget"X"(list'(0 . "circle,arc")'(40 . 7)(assoc 10(entget e1)))))
   
8.           (progn(setq s2(ssadd e1 s2)m 0)
   
9.             (repeat(sslength e2)
   
10.               (setq s2(ssadd(ssname e2 m)s2)
    
11.                     m(1+ m))
    
12.               ))
    
13.           )))
    
14.     )
    
15.   (sssetfirst nil s2)
    
16.   )

(defun c:txy(/ s s2 e1 e2 m n)<br />   (if(setq s(ssget'((0 . "circle,arc")(40 . 4.5))))<br />     (progn<br />       (setq s2(ssadd)n 0)<br />       (repeat(sslength s)<br />         (setq e1(ssname s n)n(1+ n))<br />         (if(setq e2(ssget"X"(list'(0 . "circle,arc")'(40 . 7)(assoc 10(entget e1)))))<br />           (progn(setq s2(ssadd e1 s2)m 0)<br />             (repeat(sslength e2)<br />               (setq s2(ssadd(ssname e2 m)s2)<br />                     m(1+ m))<br />               ))<br />           )))<br />     )<br />   (sssetfirst nil s2)<br />   )

690994

如果是模具应用，还是做成块比较好，
1，选择所有圆，根据同心不同属性生成块，
属性包括圆数量/直径/线型/颜色等，比如虚线识别为反面沉头作为另一种块
2，用块编辑或选择易快速选择