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

qinleilei · 发表于 2014-8-11 14:30:53

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 · 发表于 2014-8-11 14:58:53

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 · 发表于 2014-8-11 16:19:19

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

lite · 发表于 2014-8-11 18:11:03

本帖最后由 lite 于 2014-8-13 10:09 编辑

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

zctao1966 · 发表于 2014-8-13 12:48:07

本帖最后由 zctao1966 于 2014-8-13 12:50 编辑

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

xyp1964 · 发表于 2014-8-13 13:17:24

ysq101 · 发表于 2014-8-14 12:30:29

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

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

vlisp2012 · 发表于 2014-8-14 13:58:45

院长的是纯源码吗？

llsheng_73 · 发表于 2014-8-20 16:17:07

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

690994 · 发表于 2014-9-3 09:56:01

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

账号		自动登录	找回密码
密码			注册

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

评分

点评

本帖子中包含更多资源

本帖子中包含更多资源