用VBA打开一个文档后，好像自动就把刚打开的文档作为当前活动文档了
<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt">拜托你还不了解甚么叫对未打开图檔操作吗? 把WW变活动文件的话,VLISP程序就会停止,所以对WW图檔的操作要在背后<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" /><o:p></o:p>
惭愧惭愧！！！
龙兄教训的是！
5555555555555
可以通过VB，VC等编一程序，自动找出所有的DWG文件，然后执行一循环依次打开每张图来完成此工作，时间是比较长，但是完全可以不用人去干预。程序很简单的
tukuitk发表于2004-4-21 15:26:00static/image/common/back.gif回复：（tukuitk）关于上万张图怎样减肥好，on earth？有上万张图纸，有的图纸有4M多，用PURGEALL的效果微乎其微！！！用VB板块的那个用VB写的减肥程序也是效果微乎其微！！！但是用写块的方法
用vb的Wblock也可以的,写出去的文件只有47K不到,
Sub MyPurge()<BR> Dim s1 As AcadSelectionSet<BR> Set s1 = ThisDrawing.SelectionSets.Add("Testaaa")<BR> s1.Select acSelectionSetAll<BR> ThisDrawing.Wblock ThisDrawing.Path & "\" & "1.dwg", s1<BR> s1.Delete<BR>End Sub<BR>
<BR>
用2004保存后为57K。
本帖最后由 作者 于 2004-9-25 11:54:10 编辑
批量dwg文件减肥-程序下载
我因工作关系需将大家的施工图汇总到一起，有些因为版本低、有些因为没有清垃圾的习惯使得文件太大，硬盘也不够使，一个一个“减肥”吧，也没那么多时间，我只好花了两天的时间草草编了个“文件减肥”的东东，文件少的话就上班时间干完，如果象前面朋友说的有上万个文件要“减肥”，下班前从菜单上点一下命令、选一下目录文件、屏幕一关就可以回家吃饭去了，免得老婆、孩子惦记！
加载程序后，先运行wjjf，再运行wjjf2。
如果会编写菜单文件可以加一行：
[文件减肥]^C^C^P(load"wjjf")wjjf wjjf2
就可以两步并一步进行！
程序基本思路：
1. 搜索目录下的所有dwg文件生成文件列表，并生成脚本文件。
2. 运行（script）脚本文件。
3. 删除.bak、列表文件和脚本文件。
上传自己编的一个“文件减肥”程序：wjjf.fas
（2004.09.25重新修改）
很好用，不过先要把<b>wjjf.fas</b>作为启动组文件才能继续哦！
<A name=37549><FONT color=#990000><B>xyp1964</B></FONT></A> 老兄，能不能公布一下Lisp源码啊？先谢谢 了！
文件减肥程序加载问题
1.在command下：(load"wjjf")
2.在acad.lsp中添加：(load"wjjf")
3.在菜单文件中添加：[文件减肥]^C^C^P(if (not c:wjjf)(load"wjjf")(princ))wjjf wjjf2