请大侠帮忙写按指定直径选择圆的语句

andymong · 发表于 2014-7-22 09:26:44

用(setq ps (ssget '((0 . "circle"))))可以把所有的圆加入ps选择集，我现在需要先指定一个直径，
(setq D (getint "请输入需要添加图例的圆径")) ;;输入直径
(setq ps (ssget '(0 . "circle")(40 . D)));;按输入的直径选择相应的圆
这个第二句应该怎么改，才能达到我想要的效果？

Gu_xl · 发表于 2014-7-22 11:37:35

(setq ps (ssget (list '(0 . "circle")(cons 40 D))))

Andyhon · 发表于 2014-7-22 11:46:52

(setq D (/ D 2.0)) ; 40 --> 半徑
(setq ps (ssget (list '(0 . "CIRCLE")(cons 40 D))))

andymong · 发表于 2014-7-22 21:20:48

多谢G版和andyhon，已经解决了。

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

[已解答] 请大侠帮忙写按指定直径选择圆的语句

点评

浏览过的版块