求助：想加一个while循环？

zhangcan0515

写完这里了，想着加一个循环，自己搞了好几次，都是死循环，没有理解透彻。麻烦各位群友老师指点一下。在此说声谢谢.
(defun c:tt();
        (initget  128 "1 2 3")
        (setq a (getint "\n[1画线/2画圆/3其他数字画矩形:]"))
        (if (= a nil)(setq a "1"))
                (cond
                        ((= a 1)(command "Line"  ""))
                        ((= a 2)(command "Circle" ""))
                        ((= a 3)(command "Rectang" ""))
                        (t                         (command "Line"  ""))
                )
)

start4444

这里不需要用关键字，直接取整数就行了。使用命令的时候要形成返回才行，像一个完整的回路，圆和矩形就简单，线如果是多段就要专门编一个，可以参考之前我写过一个模仿直线命令的代码。

(defun c:tt(/ a);
        (setq a (getint "\n[1画线/2画圆/3其他数字画矩形 :]"))
        (if (= a nil)(setq a 1))
        (cond
                ((= a 1)(command "Line" pause pause ""))
                ((= a 2)(command "Circle" pause pause))
                (t (command "Rectang"  pause pause))
        )
        (c:tt)
)

zhangcan0515

start4444 发表于 2022-8-18 12:46
这里不需要用关键字，直接取整数就行了。使用命令的时候要形成返回才行，像一个完整的回路，圆和矩形就简单 ...

好的，谢谢老师指点。我在研究研究