如何实现循环

c3a139 · 发表于 2006-10-8 12:44:00

new (load "done.lsp") qsave filename1 close
new (load "done.lsp") qsave filename2 close
new (load "done.lsp") qsave filename3 close
new (load "done.lsp") qsave filename4 close
......

我有两个问题不明的

1、done.lsp每次都需加载吗？如何确定循环次数？

2、如何读取数据文件？如何指定图形保存路径？

lichunling · 发表于 2006-10-8 15:25:00

加空行的意思是不是，将load "a112.lsp"移至第二行，这样试了也不行，没用过SCR文件，实在不知该怎么改

lichunling · 发表于 2006-10-9 15:19:00

加了空行也不行，不知问题出在哪里

c3a139 · 发表于 2006-10-10 13:39:00

还有人知道吗？

c3a139 · 发表于 2006-10-12 17:32:00

请高手指点，可以用lisp实现吗？

njcknfy · 发表于 2006-12-28 15:25:00

本帖最后由作者于 2006-12-28 15:37:24 编辑

这个程序可以实现将一个目录下所选择的文件依次打开、执行PURGE、AUDIT、清理无用编组然后存盘，本来还想在存盘前执行一个全屏缩放的功能，不知什么原因不能实现，请大家帮忙看看。另外需在程序运行前加载一个doslib的ARX程序，可以根据自己的CAD版本去网上下载，论坛里好像就有。下面是在CAD2000和CAD2002环境下的doslib程序。

c3a139 · 发表于 2006-12-29 11:25:00

ARX没接触过，从程序上看好像是只对图形文件的

tcsl9621 · 发表于 2006-12-30 19:42:00

文件名编成表。用FOREACH实现循环。

c3a139 · 发表于 2007-1-4 12:16:00

如果所执行的命令在运行过程中提示需输入文本文件，用FOREACH实现循环就不好办了

kaixinmao · 发表于 2007-1-6 08:07:00

哈哈，热闹，

不过，我最怕用scr文件了。那个时候琢磨伤了。

用下面这个方法行不？

(foreach name1 数据文件列表

(清空本图纸)

(读数据文件处理生成图形)

(处理name 成dwg文件nanme1)

(saveas name1)

)

账号		自动登录	找回密码
密码			注册

如何实现循环

本帖子中包含更多资源