清除审核保存

skipsophrenic · 发表于 2022-7-6 14:57:34

大家好，

我工作时机器上的宏有点“错误”，所以我
我希望编写一个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

David Bethel · 发表于 2022-7-6 15:38:15

这应该适用于R14以外的任何更新版本-大卫

确保你有备份，因为在你运行它之后没有回头路-大卫

skipsophrenic · 发表于 2022-7-6 16:10:22

干杯m8，成功了

[编程交流] 清除审核保存

发表回复

精选推荐