gufeng
发表于 2010-8-8 17:39:00
;_自动执行清理的
;_把61行的
(princ (strcat "open \"" x "\"\n" "zoom e qsave close\n") sff)
;_替换为
(princ (strcat "open \"" x "\"\n" "purge All * No zoom e qsave close\n") sff)
zzsong
发表于 2010-8-8 18:17:00
gufeng发表于2010-8-8 17:24:00static/image/common/back.gif需要清理什么?像CAD的PURGE命令 全部清理没用的?
是否立刻执行 根据你的需要而定,比如你生成批处理文件后发现选择的目录下有几千个文件要处理,处理时候肯定会长点,比如中午外出吃饭再来处理^_
<p><font style="BACKGROUND-COLOR: #f9f9f9">是的，清理全部没用的东西，让文件干净些。</font></p>
<p><font style="BACKGROUND-COLOR: #f9f9f9">谢谢你给出了代码。</font></p>
<p><font style="BACKGROUND-COLOR: #f9f9f9">不过是不是把缩放功能取消了？看代码是这样，我实际试验了一下也是这样，这可是我所要的主要功能啊，至于清理则是附带的功能。</font></p>
<p><font style="BACKGROUND-COLOR: #f9f9f9">把那行代码<font face="Verdana">"purge All * No zoom e qsave close\n"里面的“No ”去掉是不是就可以了？</font></font></p>
<p><font style="BACKGROUND-COLOR: #f9f9f9"></font> </p>
<p>关于“是否立刻执行 ”，事先我会看一下，至于目录下有几千个文件的情况还没碰到，所以布什很重要。不过谢谢你的解释。</p>
gufeng
发表于 2010-8-8 18:24:00
<p>(strcat <font color="#ff6600"><font color="#000000">"</font>open \"" x "\"</font><font color="#000000">\n"</font> <font color="#ff0000">"purge All * No</font><font color="#800000"> </font><font color="#333333"><font color="#0000ff">zoom e</font> </font><font color="#ff00ff">qsave </font><font color="#008000">close</font><font color="#000000">\n") </font></p>
<p>这个代表</p>
<p>1、<font color="#ff6600">打开文件 (X代表文件路径)</font></p>
<p>2、<font color="#ff0000">执行清理命令PURGE 全部清理（All *） <font face="Verdana">是否确认每个要清理的名称？(No)</font></font></p>
<p>3、<font color="#0000ff">执行绽放命令 zoom e</font></p>
<p>4、<font color="#ff00ff">qsave 保存文件</font></p>
<p>5、<font color="#008000">close 关闭文件</font></p>
zzsong
发表于 2010-8-8 18:30:00
<p>明白了，“No ”是不确认清理对象的意思，理解错误。又实验了一下没有取消缩放功能，第一次实验时无辜取消了，才造成上面说的情况，实际上那些文件没有被执行。呵呵。</p>
<p> </p>
zzsong
发表于 2010-8-8 18:37:00
<p>哈哈，我刚才回复时还没看见你的回复，其实已经知道了。</p>
<p>没有问题了，再次谢谢你的耐心解释。</p>
短歌行
发表于 2010-8-12 16:02:00
谢谢 学习了
cxs259
发表于 2010-8-24 16:54:00
<p>为什么打开的文件夹里的图形不齐，有时只能打开一两个图形？</p>
236004
发表于 2010-10-28 12:29:00
dddddddddddddddddddddddddddd
tjuzkj
发表于 2010-12-19 19:21:19
好程序,可以帮我解决问题
mikewolf2k
发表于 2010-12-21 08:18:46
这个用脚本文件就可以解决了，然后用dos命令中的for in do 自动一个个的打开dwg文件并且执行这个脚本。
页:
1
[2]
3
4
5
6
7
8
9
10
11