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

雪山飞狐 · 发表于 2004-9-26 01:28:00

为什么我这个程序画不了这样的图不知道程序错在什么地方请大虾们指点一下    感激不尽
(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 (

syhiovknrvx.JPG

雪山飞狐 · 发表于 2004-9-26 02:14:00

有知道问题的人指点一下
谢谢了

王咣生 · 发表于 2004-9-26 07:48:00

(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)))
   )
)