清除审核保存
大家好，我工作时机器上的宏有点“错误”，所以我
我希望编写一个lisp来完成同样的事情，我使用了ASMI的代码
从这篇文章作为开始的指南，但是有人能跑过去吗
我的代码，并告诉我，如果有任何问题，他们发现请。
;;;(Purge->Audit->Save)
(defun c:pas ()
(vl-load-com)
(repeat 3
(vla-PurgeAll
(vla-get-ActiveDocument
(vlax-get-acad-object)
)
)
) ; end repeat
(command "_.qsave")
(command "_.Audit" "y" "")
(princ)
) ; end of c:pas 这应该适用于R14以外的任何更新版本-大卫
确保你有备份，因为在你运行它之后没有回头路-大卫 干杯m8，成功了
页:
[1]