请达人门进来帮忙看一下是什么问题！

雪山飞狐

为什么我这个程序画不了这样的图 不知道程序错在什么地方 请大虾们指点一下 感激不尽 (defun C:ring();
(setq pt (getpoint"输入圆心坐标:"));
(setq r1 (getreal"输入内圆半径:"));
(setq r2 (getreal"输入小圆半径:"));
(setq r3 (getreal"输入外圆半径:"));
(setq n (getint"输入小圆个数:"));
(setq pai 6.28318);
(command "circle" pt r1);
(command "circle" pt r3);
(setq r (/ (+ r1 r3) 2));
(command "layer" "M" "1" "C" "BLUE" "1" "L" "CENTER" "1" "S" "1");
(command);
(command "circle" pt r);
(command "layer" "M" "2" "C" "RED" "2" "S" "2");
(command);
(setq ang 0);
(setq k 1);
(while (<= k n);
(setq ang (+ ang (/ pai n)));
(setq ptn (polar pt ang r));
(command "circle" ptn r2);
(setq k (+ 1 k));
);
);

雪山飞狐

有知道问题的人指点一下


谢谢了

王咣生

(defun C:ring()
(setvar "osmode" 0) ;***(注意关闭捕捉)
(setq pt (getpoint"输入圆心坐标:"))
(setq r1 (getreal"输入内圆半径:"))
(setq r2 (getreal"输入小圆半径:"))
(setq r3 (getreal"输入外圆半径:"))
(setq n (getint"输入小圆个数:"))
(setq pai 6.28318);
(command "circle" pt r1)
(command "circle" pt r3)
(setq r (/ (+ r1 r3) 2))
(command "layer" "M" "1" "C" "BLUE" "1" "L" "CENTER" "1" "S" "1" "")
(command "circle" pt r2)
(command "layer" "M" "2" "C" "RED" "2" "S" "2" "")

(setq ang 0)
(while (<= ang pai)

(setq ptn (polar pt ang r))
(command "circle" ptn r)
(setq ang (+ ang (/ pai n)))
)
)

雪山飞狐

谢谢         我把 对象捕捉关闭了就可以了         谢谢

雪山飞狐_lzh

题外话，怎么有人抢注了偶的名号，：）

雪山飞狐

没有想到 还有这个名号         我一直都在用这个


看来我们还是挺有缘的：）


以后 罩着小弟啊 ！！