[原创]：批量dwg“文件减肥”程序下载（免币）

andymong

用了，好像减不了阿。

yjtdkj

用PU这个命令减肥好像作用不大，我试过用WBLOCK这个命令，写出来的文件比原来小了很多的，楼主是否能考虑一下这个思路？

xyp1964

[php]
;;千万不要用WBLOCK减肥！
;;否则图中冻结、关闭的图层实体将全部丢失！
;;本程序的“灵魂”就是实现“批量”操作。
;;对于个别文件，下面的程序足已！
(defun C:PUU () (repeat 3 (COMMAND "-PURGE" "A" "" "n")))
[/php]

乐逍遥

文件多时，很方便。谢谢！

Robbie

可以试一试。我的文件非常的多，正好可以派上用场

wzw3392008

我下了是很好用啊
但是和purge有什么区别吗

xyp1964

主要区别：
1. 指定目录批量运行；
2. 图形充满屏幕；
3. 重复3次purge。

82406515

长老的东西我一定顶。

lxyljl

楼主能不能给个演示，执行wjjf后只能选择一个文件，文件打开后提示找不到puu命令。怎么样才能进行批量呢？

xyp1964

2004上测试没有问题。
使用说明详见1楼。

lxyljl

偶用的是02的，应该兼容方面不成问题的呀？加载后能执行puu命令。而执行wjjf后接着按提示打开文件（单个），然后提示找不到puu。这个我觉得正常呀，重新打开新图的话我都没加载程序。当然我可以设置自动加载，不过问题是批量体现在哪里呢？

xyp1964

重新到1楼下载程序后再试试。
以下的puu命令是否可用：
[php]
;;;* 清理垃圾 c:puu
(defun C:PUU  ()
  (repeat 3;;根据需要可将数值增减
  (COMMAND "PURGE" "A" "" "n")
  )
)
[/php]

lxyljl

试过了，还是不行。加载后puu和wjjf都没问题，wjjf2不能执行。输入wjjf按你2楼提示正常，选择文件夹中一个文件后，cad自动打开该文件，自动执行puu，此时cad提示没这个命令。就这样就完了，看不出是怎么批量减的，呵呵，给长老你添麻烦了。

bhdbdd

好！！！！

xyp1964

最初由 lxyljl 发布
[B]偶用的是02的，应该兼容方面不成问题的呀？加载后能执行puu命令。而执行wjjf后接着按提示打开文件（单个），然后提示找不到puu。这个我觉得正常呀，重新打开新图的话我都没加载程序。当然我可以设置自动加载，不过问... [/B]

首先在acad.lsp中添加：
(load"wjjf")
然后加载acad.lsp，再运行文件减肥程序。