[求助]：如何实现循环

c3a139

如何实现循环   

有多个文件需循环，不知能否实现，读文件--成图--保存--读下一个文件。。。  即成批成图

fsxm

只要你稍稍想一下就会的~vlisp不用说了
就算用纯lisp也可以做到

c3a139

本人愚本，能否说的详细点，谢谢

haijiangl

[PHP]
(if        filelist  ;;要进行循环的文件名组成的表
      (progn
        (setq scrname (open scrfile "w")) ;;新建一个脚本文件，向内添加内容， scrfile为脚本文件名
        (foreach x filelist  ;;x代表每一个要循环的文件名
          (setq        scr (strcat "open "
                            x
                            " "
                            "操作命令 " ;;在这里添加要执行的操作，每个操作以空格结束
                            "qsave close "
                    )
          )
          (write-line scr scrname)
        )
        (close scrname)
        (command "script" scrfile)
        (princ)
      )
    )
[/PHP]