[编程申请]：有没有一个程序可以自动清理purge

lvshengdijia

有没有一个小的程序可以自动运行PURGE的。每次清理的时候都会很累。但是水电专业的两位老同志就更辛苦了。少的时候几分钟多的时候就是半个小时。有吗。就是当询问YES或NO 的时候有一个可爱的小程序可以帮我回答YES。谢谢

hzhw

用2002或2004吧，回答一次就够了，不用这么累了！

HHSoft

看看下面这个，还是用2002吧

eachy

记得有个工具 purge 2000 可以批量清理一个目录下的所有图纸，利用了 script

dwgplt

最初由 lvshengdijia 发布
[B]有没有一个小的程序可以自动运行PURGE的。每次清理的时候都会很累。但是水电专业的两位老同志就更辛苦了。少的时候几分钟多的时候就是半个小时。有吗。就是当询问YES或NO 的时候有一个可爱的小程序可以帮我回答YES。... [/B]

不需要程序，你可以这样做，几秒钟就可以搞定。

Command: purge
Purge unused Blocks/Dimstyles/LAyers/LTypes/SHapes/STyles/Mlinestyles/All: a
Names to purge <*>:
Verify each name to be purged? <Y> n

注意：Verify each name to be purged? <Y> 时选N，不要回车。否则就要一个一个的回答YES了。

coolzhb

2. 
   
3.   [FONT=courier new]
   
4. (defun c:sa ()
   
5.   (command "purge" "a" "" "n")
   
6.   (command "purge" "a" "" "n")
   
7.   (command "purge" "a" "" "n")
   
8.   (command "qsave")
   
9.   (princ "Purge and Save OK, Sir !  :)")
   
10.   (princ)
    
11. )
    
12.   [/FONT]
    

<br />   [FONT=courier new]<br /> (defun c:sa ()<br />   (command "purge" "a" "" "n")<br />   (command "purge" "a" "" "n")<br />   (command "purge" "a" "" "n")<br />   (command "qsave")<br />   (princ "Purge and Save OK, Sir !  :)")<br />   (princ)<br /> )<br />   [/FONT]<br />

ktddm

不用那么复杂吧？？？
打
pu
回车
然后在清除全部不就可以了吗？
用那么复杂吗？
！？

coolzhb

最初由 ktddm 发布
[B]不用那么复杂吧？？？
打
pu
回车
然后在清除全部不就可以了吗？
用那么复杂吗？
！？ [/B]

打pu回车，不行，要在选择a，在空格，在打n，回车才行，有个程序不是很好吗？
sa回车搞定，三次purge，可以彻底清除干净，再存盘，一步搞定呀！

lvshengdijia

谢谢大家十分的感谢。原来世界是这样的好。谢谢。我代表我自己谢谢大家了。我 不知道我有钱没有有的话。我就送给需要的朋友。来留下这个优秀的地方。

yy225cn

从这里启动，然后像五楼那样，只要打个N就ok了啊，没有那么麻烦的啦

空壳

清理一次是不够的，
至少清三次。
我自己使用：

(defun c:pua()
  (setvar "cmdecho" 0)
  (command"undo""group")
  (command"purge""_a""""n")
  (command"purge""_a""""n")
  (command"purge""_a""""n")
  (command"undo""end")
  (setvar "cmdecho" 1)
  (princ)
)

你可以把上面的东西粘贴到acadr14.lsp里。
用的时候打pua就可以自己搞定了。

gps99

是cad数据库的问题，由版本决定，用2002/2004巴