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

306674413

请高手指教：下面的程序加载后，当输入的网格数为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 "")
   )
   )

自贡黄明儒

首先说明，我不是高手，明经的好多高手都隐居不出了。
试试 (command "line" "non" p1 "non" p2 "")

306674413

谢谢。按此命令修改后，已解决。

Andyhon

新手常忽略捕捉的效应