命令栏出现未知命令

szx025

(while pt1 (setq pt2 (getpoint pt1 "\n下一点（右击结束）:"))
(command "line" pt1 pt2 "")
  (if (= pt2 nil)
  (progn
  (setq pt21 tmp)
   (setq tmp1 pt1 )
   )  
   )                                       
(setq tmp pt1)
(setq pt1 pt2)
)
程序中有这几句，当鼠标右击时，命令栏出现未知命令“SY” 的提示，问题应该就出在上面这几句，我监控了一下程序运行，鼠标右击时PT2变成NIL,可能下面(command "line" pt1 pt2 "")这个就出来提示了，不知说的对不对，有办法消除这个提示吗

自贡黄明儒

(while (and pt1 (setq pt2 (getpoint pt1 "\n下一点（右击结束）:")))
    (command "line" pt1 pt2 "")
    。。。。

szx025

自贡黄明儒 发表于 2023-8-31 08:39
(if (and pt1 pt2)
  (progn
    (command "line" pt1 pt2 "")

谢谢黄大师，

vormittag

少用 command 函数，用 entmake

xxyyzzlg

感谢分享，学到了