求助：想加一个while循环？
本帖最后由 zhangcan0515 于 2022-8-18 11:36 编辑写完这里了，想着加一个循环，自己搞了好几次，都是死循环，没有理解透彻。麻烦各位群友老师指点一下。在此说声谢谢.
(defun c:tt();
(initget128 "1 2 3")
(setq a (getint "\n"))
(if (= a nil)(setq a "1"))
(cond
((= a 1)(command "Line"""))
((= a 2)(command "Circle" ""))
((= a 3)(command "Rectang" ""))
(t (command "Line"""))
)
)
这里不需要用关键字，直接取整数就行了。使用命令的时候要形成返回才行，像一个完整的回路，圆和矩形就简单，线如果是多段就要专门编一个，可以参考之前我写过一个模仿直线命令的代码。
(defun c:tt(/ a);
(setq a (getint "\n"))
(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)
) start4444 发表于 2022-8-18 12:46
这里不需要用关键字，直接取整数就行了。使用命令的时候要形成返回才行，像一个完整的回路，圆和矩形就简单 ...
好的，谢谢老师指点。我在研究研究
页:
[1]