[求助]求一程序，自动打开文件夹下所有文件，并执行图形清理、缩放和保存命令(已解

zzsong

[求助]求一程序，自动打开文件夹下所有文件，并执行图形清理、缩放和保存命令(已解决)[br]

再详细说一下，比如文件夹下有很多文件，却在资源管理器中不显示缩略图，只显示图标。我的目的就是有一个程序在执行一次后，可以一个个打开这些文件，同时执行缩放——范围命令（为的是在资源管理器中显示的缩略图尽量大），完后保存退出。因为一个个手动打开在保存实在太费事了。
谢谢！
~~~~~~~~~~~~~~~~~~~~~~~~~~~
非常感谢热心肠的gufeng，祝愉快！

~~~~~~~~~~~~~~~~~~~~~~~~~~~

gufeng

确定在 选项-->打开和保存 此项 打勾

游客，本帖隐藏的内容需要发帖数高于 30 才可浏览，你当前发帖数只有 0

cindy_fisher

mikewolf2k 发表于 2011-12-26 08:37
for %1 in (c:\temp\*.dwg) do acad %1 /b"script"

没明白这个意思，能说说吗

mikewolf2k

Q晋胡 发表于 2020-8-6 16:32
大佬，能详细给我讲解一下吗？纯小白

这个方法已经不适用高版本的ACAD了。这个方法每个文件都会打开ACAD，执行，关闭。对于低版本的ACAD，打开ACAD的速度快，还可以接受。但对于高版本的ACAD，开一个ACAD要好长时间，无法接受了。
至于批处理，大量的代码可以在ACAD进程内实现批量打开处理，比这个方法好得多。

zzsong

谢谢提供！

试了试，没有弄成。怎么看起来有两部分？在27处。

麻烦你再解释一下。

gufeng

什么有两部分？一个命令 ，两个函数 。
执行命令Test ，处理文件列表写入一个临时的批处理文件 [批处理文件20100806.scr] 。
函数 (GetFileList dirName) 是获取指定目录下的所有DWG文件列表。
       (qf_getFolder msg)   是选择目录，提供路径 由(GetFileList dirName) 获取文件列表。

增加一个是否立刻即行的选择

游客，本帖隐藏的内容需要发帖数高于 30 才可浏览，你当前发帖数只有 0

zzsong

好了，成了，谢谢！

再问一下，你这句“增加一个是否立刻即行的选择”是指第二次贴出的代码？

我不懂编程，所以请多包涵。

gufeng

是  你重新复制使用4楼的代码

zzsong

好的。我重试了一下，没感觉到这个“增加一个是否立刻即行的选择”表现在哪里？怎么跟第一次一样啊。

zzsong

搞明白了，重新加载后显示“是否立刻执行”的动作，不过我觉得有点没必要，最终还是选用了第一次的程序。

另外，下面这几行好像没起作用。

(princ "\n目录下没有DWG文件")

)

)

(princ "\n请选择目录")

zzsong

能否再增加一个自动执行清理的功能？

gufeng

需要清理什么?像CAD的PURGE命令 全部清理没用的?

是否立刻执行 根据你的需要而定,比如你生成批处理文件后发现选择的目录下有几千个文件要处理,处理时候肯定会长点,比如中午外出吃饭再来处理^_^

而你需要先处理其它目录下的比较少文件的,就可以先取消.

以下两个是选择的目录下没有DWG文件提示与选择目录的窗口点了取消了才会提示.

(princ "\n目录下没有DWG文件")

)

)

(princ "\n请选择目录")