[讨论]关于上万张图怎样减肥好，on earth？

tukuitk · 发表于 2004-4-30 09:11:00

用VBA打开一个文档后，好像自动就把刚打开的文档作为当前活动文档了

龙龙仔 · 发表于 2004-4-30 16:58:00

拜托你还不了解甚么叫对未打开图檔操作吗? 把WW变活动文件的话,VLISP程序就会停止,所以对WW图檔的操作要在背后

tukuitk · 发表于 2004-5-7 11:29:00

惭愧惭愧！！！

龙兄教训的是！

5555555555555

dlcad · 发表于 2004-7-7 23:59:00

可以通过VB，VC等编一程序，自动找出所有的DWG文件，然后执行一循环依次打开每张图来完成此工作，时间是比较长，但是完全可以不用人去干预。程序很简单的

shenhui · 发表于 2004-7-11 04:08:00

tukuitk发表于2004-4-21 15:26:00回复：（tukuitk）关于上万张图怎样减肥好，on earth？有上万张图纸，有的图纸有4M多，用PURGEALL的效果微乎其微！！！用VB板块的那个用VB写的减肥程序也是效果微乎其微！！！但是用写块的方法

用vb的Wblock也可以的,写出去的文件只有47K不到, Sub MyPurge()
Dim s1 As AcadSelectionSet
Set s1 = ThisDrawing.SelectionSets.Add("Testaaa")
s1.Select acSelectionSetAll
ThisDrawing.Wblock ThisDrawing.Path & "\" & "1.dwg", s1
s1.Delete
End Sub

xyp1964 · 发表于 2004-7-24 00:53:00

用2004保存后为57K。

xyp1964 · 发表于 2004-7-24 16:59:00

本帖最后由作者于 2004-9-25 11:54:10 编辑

批量dwg文件减肥-程序下载

我因工作关系需将大家的施工图汇总到一起，有些因为版本低、有些因为没有清垃圾的习惯使得文件太大，硬盘也不够使，一个一个“减肥”吧，也没那么多时间，我只好花了两天的时间草草编了个“文件减肥”的[U]东东[/U]，文件少的话就上班时间干完，如果象前面朋友说的有上万个文件要“减肥”，下班前从菜单上点一下命令、选一下目录文件、屏幕一关就可以回家吃饭去了，免得老婆、孩子惦记！

加载程序后，先运行wjjf，再运行wjjf2。

如果会编写菜单文件可以加一行：

[文件减肥]^C^C^P(load"wjjf")wjjf wjjf2

就可以两步并一步进行！

程序基本思路：

1. 搜索目录下的所有dwg文件生成文件列表，并生成脚本文件。

2. 运行（script）脚本文件。

3. 删除.bak、列表文件和脚本文件。

上传自己编的一个“文件减肥”程序：wjjf.fas

（2004.09.25重新修改）

asdfasdf · 发表于 2004-9-24 20:50:00

很好用，不过先要把wjjf.fas作为启动组文件才能继续哦！

asdfasdf · 发表于 2004-9-24 20:59:00

xyp1964 老兄，能不能公布一下Lisp源码啊？先谢谢了！

xyp1964 · 发表于 2004-9-25 11:58:00

文件减肥程序加载问题

1.在command下：(load"wjjf")

2.在acad.lsp中添加：(load"wjjf")

3.在菜单文件中添加：[文件减肥]^C^C^P(if (not c:wjjf)(load"wjjf")(princ))wjjf wjjf2

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

[讨论]关于上万张图怎样减肥好，on earth？

本帖子中包含更多资源

本帖子中包含更多资源