请高手指教：(command "line" p1 p2 "")中执行的原因

306674413 · 发表于 2013-9-24 15:48:00

请高手指教：下面的程序加载后，当输入的网格数为150或更大时,  点坐标p1、p2 不能传递到 (command "line" p1 p2 "")中执行，是啥原因？
(defun c:ht()
(setq x_min -500)
(setq x_max 50000)
(setq y_min 500)
(setq y_max 50000)
;按设定的网格数画网格线
(setq x_wgs (getint "\nx网格数:"))
(setq x_z (/ (- x_max x_min) x_wgs))
(setq x_wgzb ())
(setq x_wgzb (cons x_max x_wgzb))
(setq i 0)
(repeat x_wgs
   (setq i (1+ i))
   (setq x_wgzb (cons (- x_max (* x_z i)) x_wgzb)) ;x_wgzb存放-500～50000按输入网格数分段x坐标列表
)

(setq x_j (1+ x_wgs))
(setq i -1)
(repeat x_j
   (setq i (1+ i))
   (setq p1 (list (nth i x_wgzb) 500))
   (setq p2 (list (nth i x_wgzb) 5000))
   (command "line" p1 p2 "")
)
)