如何做中心间距相同大小递增的圆

kevinchan · 发表于 2004-5-16 00:01:00

是的,非常谢谢你.还有一点疑问,在(setq di (getint "\n请输入间距:"))一定要我输入整数,输入小数点的却无效,应该怎么办?

kevinchan · 发表于 2004-5-16 00:05:00

样本图片

无痕 · 发表于 2004-5-16 00:14:00

(setq di (getdist "\n请输入间距:"))

建议你先看看cad的vlisp帮助里面get*系列

不要做超出自己能力太多的事情

kevinchan · 发表于 2004-5-16 00:28:00

呵呵，谢谢你提醒，我知道错在哪个地方了，谢谢！

lzy9788 · 发表于 2004-5-16 10:22:00

(defun c:dcircle ()
(setvar "cmdecho" 0)
(setq old_os (getvar "osmode"))
(setvar "osmode" 0)
(setq di (getreal "\n请输入间距:"))
(setq num (getint "\n请输入排列个数:"))
(setq rr (getreal "\n请输入最小圆半径:"))
(setq rrr (getreal "\n请输入最大圆半径:"))
(setq ppp (getpoint "\n请确定起始点位置:")) (setq bbb (/ (- rrr rr) num))
(setq px(car ppp) py (cadr ppp))
(repeat num
(command"circle" ppp rr)
(setq px (+ px di))
(setq ppp (list px py))
(setq rr (+ rr bbb))
)
(setvar "osmode" old_os)
(setvar "cmdecho" 1)
(princ)
)

kevinchan · 发表于 2004-5-16 11:34:00

谢谢lzy9788,我刚步入这个行业,以后有问题多向你指教!

无痕 · 发表于 2004-5-16 13:03:00

我一向推荐使用getdist，而不用getreal。

因为getdist不仅可以输入数值，而且可以在屏幕上取两点定数值。后者getreal不支持

ljcgq · 发表于 2004-5-16 18:40:00

无痕您的提议很好。。

lzy9788 · 发表于 2004-5-17 11:00:00

无痕大哥说得对。哈哈，kevinchan兄，不能说向我请教，共同学习了。我都不怎么样的了。

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

如何做中心间距相同大小递增的圆

本帖子中包含更多资源