为何autolisp画图错误？

xiiing

初学autolisp，请多指教！谢谢

程序如下：

(defun c:pbox(/ pa pb pc pd ww hh mp1 mp2 mp3 mp4)
  (setvar "cmdecho" 0)
  (setvar "blipmode" 0)
  ;*************** Input Data
  (setq pa (getpoint "左下角点:"))
  (setq ww (getdist pa "宽度\n:"))
  (setq hh (getdist pa "高度\n:"))
  ;***************
  (setq pb (polar pa 0 ww))
  (setq pc (polar pb (* pi 0.5) hh))
  (setq pd (polar pc pi ww))
  (command "pline" pa pb pc pd "c")
  ;***************
  (setq mp1 (polar pa 0 (/ ww 2)))
  (setq mp2 (polar pb (* pi 0.5) (/ hh 2)))
  (setq mp3 (polar pd 0 (/ ww 2)))
  (setq mp4 (polar pa (* pi 0.5) (/ hh 2)))
  ;***************
  (command "line" mp1 mp3 "")
  (command "line" mp2 mp4 "")

  
  (prin1)
)
(prompt "\n<<C:PBOX>>")
(prompt "\n程序加载OK!!!")
(prin1)
程序的结果应该是如下的田字

 

但有时候中间的“十”字总是变成“×”，如下图

 

这是一个例程，程序本身没有问题，在另一台电脑正常，但在我这台电脑就不对了，
请问这是什么原因呢？

masterlong

捕捉模式要关掉

或者

(command "line" "non" mp1 "non" mp3 "")
(command "line" "non" mp2 "non" mp4 "")
下面这句也应该同样处理

(command "pline" pa pb pc pd "c")

xiiing

果然如此，非常感谢！

lenlenq

 (setvar"osmode" 0)