szx025 发表于 2023-8-31 08:32:20

命令栏出现未知命令

(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 "")这个就出来提示了，不知说的对不对，有办法消除这个提示吗

自贡黄明儒 发表于 2023-8-31 08:39:55

本帖最后由 自贡黄明儒 于 2023-8-31 10:51 编辑

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

szx025 发表于 2023-8-31 09:20:17

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


谢谢黄大师，

vormittag 发表于 2023-8-31 11:18:39

少用 command 函数，用 entmake

xxyyzzlg 发表于 2024-6-27 14:11:58

感谢分享，学到了
页: [1]
查看完整版本: 命令栏出现未知命令