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，已经解决了。
页: [1]
查看完整版本: 请大侠帮忙写按指定直径选择圆的语句