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

wf201626

autolisp不支持多重循环吗？例如：
（progn
(while (< i 10)
(progn
(while (< j 10)
(progn
(while (< k 10)
(expression)
(setq k (+ k 1))
)
(setq j (+ j 1))
)
)
setq i (+ i 1))
)
)
)

ll_j

以你贴出的代码看，是“(setq k ( k 1))”中少了一个“+”。
另：Progn函数表示并列的语句，一般使用在If函数中，While函数一般不需要使用Progn。

wf201626

我只是举个例子！我在编一个基于三个角度变换的程序，需要对这三个角度值在一定范围内进行循环处理，但我我的循环大致如上，但没有结果！
那位大侠，指条名录！最好给个例子！多谢！！！

841594

1. setq i 左边少开括号。
2. 所有的progn都不必要，但留着也没影响。
3.循环的嵌套关系乱了。
改一下：

2. 
   
3.   [FONT=courier new]
   
4. (while (< i 10)
   
5.   (while (< j 10)
   
6.     (while (< k 10)
   
7.       (expression)
   
8.       (setq k (+ k 1))
   
9.     )
   
10.     (setq j (+ j 1))
    
11.   )
    
12.   (setq i (+ i 1))
    
13. )
    
14. 
    
15.   [/FONT]
    

<br />   [FONT=courier new]<br /> (while (< i 10)<br />   (while (< j 10)<br />     (while (< k 10)<br />       (expression)<br />       (setq k (+ k 1))<br />     )<br />     (setq j (+ j 1))<br />   )<br />   (setq i (+ i 1))<br /> )<br /> <br />   [/FONT]<br />

ll_j

最初由 wf201626 发布
[B]我只是举个例子！我在编一个基于三个角度变换的程序，需要对这三个角度值在一定范围内进行循环处理，但我我的循环大致如上，但没有结果！
那位大侠，指条名录！最好给个例子！多谢！！！ [/B]

AutoLisp是“表”函数，一个程序就是一个表，这个表中有什么呢？表！while函数构成的也只是一个由表构成的表，理论上是可以无限嵌套的，只是注意一定的规则，就是这个函数的“语法”。
编制程序时使用过多的嵌套有时会搅乱思路，这是最致命的，可以的话，使用引用自定义函数来完成相互嵌套可能更容易一些。
最后需要说的是，如果写较长的程序，一定要找一个好的编辑器（如VLisp编辑器Vlide、Lisplink等），经常检查语法错误，免得错误“积少成多”，最后无从下手。

wf201626

感谢各位帮忙！
但还是有问题？我是新手，请多原谅！
[php]
(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))
)
[/php]
中间的(princ "ok")是测试共循环多少次，但返回结果只有10次？
是我的程序出问题了，还是根本行不通？
盼望各位解答，等待ing！

[php]
(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))
)
[/php]
结果为：打印了30次ok，看来是不行了？

lsjjm

应该这样:
[php]
(defun c:test ()
  (setq i 0)
  (while (< i 10)
    (setq j 0)
    (while (< j 10)
      (setq k 0)
      (while (< k 10)
        (princ "\nok")
        (setq k (+ k 1))
      )
      (setq j (+ j 1))
    )
    (setq i (+ i 1))
  )
)
[/php]

lijiao

还是楼主的思路有问题。
编程的整个过程中，编程者的思路一定要清晰。

wf201626

作为一个初学者：我对大家的帮助至以崇高的敬意！感谢大家对我的帮助！！