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

cindy_fisher

Andyhon 发表于 2012-1-13 11:30
以前曾在某家公司重整几千张图纸 (图形归位到零零点等等)用的就是  Script
是在 Cad 命令列启动的那种,非是 ...

1.CAD命令列启动的那种，是直接运行脚本吗？那你们是不是要在脚本里面写上打开第一张，打开第二张等等。能直接打开文件夹吗
2.如果用for in do, 加上/wait,语句如下：for %1 in (c:\abcd\*.dwg) do ("c:\Program Files\AutoCAD 2010\acad" "%1" /b "aa" /wait)，运行的结果是图纸同时打开了，又一张张关了，脚本没有运行。

Andyhon

http://web2.iadfw.net/terrycad/LISP/Scrs.lsp

建议您探究这个程序
http://web2.airmail.net/terrycad/AutoLISP-Code.htm
==>
Scrs.dclShow It Scrs is a Script Creator utility

more Script...
http://forums.augi.com/showthread.php?t=129285

cindy_fisher

mikewolf2k 发表于 2012-1-16 08:31
2. 只要两张以上运行成功了，就说明代码没问题。蓝屏的时候系统内有很多acad在运行么，可以尝试着ping 12 ...

尝试了把ping的数字改成1000后，还是遇到了蓝屏，因为我在dos窗口写下之后，文件夹的所有图纸很快就一个接一个的打开了，这个可以从dos 窗口看出来，每个文件都会显示出一行。而我们一直想实现的功能可能是打开一个文件运行script，关闭了，再打开一个，所以ping的命令可能只是延迟了 script，还有其他方法吗，谢谢。

Andyhon

改用 /wait  吧
i.e.
FOR %%f in (C:\dwg\*.dwg) do start /wait "C:\Program Files\MyCAD\acad.exe" %%f /b C:\dwg\Task

(Ref: 49# 的 Link...)

mikewolf2k

先确保你的脚本文件正确。for in do 能打开dwg就没问题了。

cindy_fisher

严重感谢mike和andyhon, 加了/wait之后即可解决上述问题，谢谢了，新春愉快！

goubeishu

谢谢楼主分享，这个程序对我也很有用。

Momo1984

高手啊。。。。。。。。。。。。。

gamemaster

厉害！
新手学习！

hsc500

谢谢分享 自动打开文件夹下所有文件