CAD清理工具purge无需多次确认的快捷命令——一键搞定，无需等待

相信很多人都知道当cad文件经过多次的复制后，里面可能有许多无用的图层，线型或是块等，这样的话，cad的文件的体积就会越来越大，为了清理掉这些无用的对像，可以使用purge命令运行cad自带的清理工具，一般情况下，我们都是选择全部清理的，但是purge命令输入后，cad总是会弹出一个对话框，要求我们选择是否全部清理，而我们大部数情况下都是想要全部清理，所以这就让人很不爽，需要操作好几个步骤才能完成清理工作。 那么有没有一种方法，只需要我们输入一次命令，按一次空格或回车，cad就自动清理掉全部不用的对像呢。答案是肯定的。

1. ;;purge清理一键搞定 (defun $$er() (command"-purge""a""""n") ;; ) (defun c:er()($$er)(princ)) (princ"命令行输入er,对当前图形进行所有无用对像进行清理")

复制代码

在桌面上新建一个记事本，名称可以队伍写，但是后缀名一定要是.lsp 比如：purge.lsp 把上面的代码复制到这个文件里面，然后保存，放在cad安装目录的support文件夹中，然后打开cad,在菜单栏选择 “工具”-“加载应用程序”，在弹出的对话框中，选择启动组的“内容”，找到刚刚放到support文件夹中的purge.lsp文件，添加到启动组后，关闭cad，重新打开cad后，在命令行输入er,然后按一下空格，你会发现cad会在默默的清理掉全部的无用对像。如果不信的话，你可以用运行er之后，再运行purge命令，你在清理的对话框中会发现已经没有可以清再的无用对像了。 至于那个快捷命令er,其实你可以改成任何其他的字母组合，只要不与cad已有的快捷方式相同就行了。

命令: er EXTERNALREFERENCES   这个er貌似是个默认快捷键

改了快捷方式也不好使