[求助]autolisp不支持多重循环吗？很急！那位大侠能告知！？

wf201626

感谢各位帮忙！
但还是有问题？我是新手，请多原谅！
(setq i 0)
(setq j 0)
(setq k 0)
(while (< i 10)
(while (< j 10)
(while (< k 10)
(princ "ok")
(setq k (+ k 1))
)
(setq j (+ j 1))
)
(setq i (+ i 1))
)
中间的(princ "ok")是测试共循环多少次，但返回结果只有10次？
是我的程序出问题了，还是根本行不通？
盼望各位解答，等待ing！


(setq i 0)
(setq j 0)
(setq k 0)
(while (< i 10)
(while (< j 10)
(while (< k 10)
(princ "\nok")
(setq k (+ k 1))
)
(princ "\nok")
(setq j (+ j 1))
)
(princ "\nok")
(setq i (+ i 1))
)
结果为：打印了30次ok，看来是不行了？

独角斗士

可以多重循环，但你的程序有错误，k循环结束让j循环时k没有清零，同样，让i循环时k、j早不满足循环条件了。

wb0815

是的支持多重循环


是你的程序有错误