[求助]请各位高手们帮我看看这个程序

aponline

我打算画成一些点，在x方向和y方向均匀分布，点数自己输入，想用循环嵌套，怎么都不行，不知道是什么原因，请高手指点！谢了，程序在下面：

aponline

(defun c:mp ( / p l n d h  )
  (command "osnap" "off")   ;关闭捕捉功能
  (setq p (getpoint "\n输入起点：")
 l (getreal "\n输入宽度(X方向)：")
 h (getreal "\n输入高度(Y方向)：")
 n (getint "\n输入点数(X方向)：")
 m (getint "\n输入点数(Y方向)：") 
 dx (/ l n)
 dy (/ h m)
 px p
 py p
 )
 (setq r (getreal "\n输入点半径(需大于零)："))   ;确定点半径大小，带纠错
   (while (< r 0)
   (setq r (getreal "\n请重新输入点半径(需大于零)"))
     )
  (while (>= m 0)
     (command "line" py (polar py 0 l) "")    ;画线用来查看是否正确
   (while (>= n 0)     ;循环开始
       (command "donut" 0 r px "")
       (setq px (polar px 0 dx))
       (setq n (- n 1))
      )
 (setq py (polar py (/ pi 2) dy))
 (setq m (- m 1))
 (setq px py)
    )
 )

aponline

感觉是第一层的循环可以执行，第二层的就不行了，有没有什么办法呀！谢谢各位了

aponline

想要这样的效果，有没有哪位帮我啊！

cqnj023

看看你的控制变量n就知道了，稍微改了一下：

(defun c:mp ( / p l n d h  )
  (command "osnap" "off")   ;关闭捕捉功能
  (setq p (getpoint "\n输入起点：")
 l (GETDIST "\n输入宽度(X方向):")
 h (GETDIST "\n输入高度(Y方向):")
 n (GETINT "\n输入点数(X方向):")
 m (getint "\n输入点数(Y方向):")
 dx (/ l n)
 dy (/ h m)
 px p
 py p
 )
  (setq n2 n)
 (setq r (GETDIST "\n输入点半径(需大于零):"))   ;确定点半径大小，带纠错
   (while (< r 0)
   (setq r (getreal "\n请重新输入点半径(需大于零)"))
     )
  (while (>= m 0)
     (command "line" py (polar py 0 l) "")    ;画线用来查看是否正确
   (while (>= n 0)     ;循环开始
       (command "donut" 0 r px "")
       (setq px (polar px 0 dx))
       (setq n (- n 1))
      )
    (setq n n2)
 (setq py (polar py (/ pi 2) dy))
 (setq m (- m 1))
 (setq px py)
    )
 )

aponline

真的可以了啊！非常感谢楼上的cqnj023，我忘了里面的循环已经使得n=0了，真是一语惊醒梦中人啊！好人啊！