清理注册应用

Lisphk

1. (defun delapp ( )
   
2.     (vlax-for app (vla-get-registeredapplications (vla-get-activedocument (vlax-get-acad-object)))
   
3.         (vl-catch-all-apply 'vla-delete (list app))
   
4.     )
   
5.     (princ)
   
6. )
   

(defun delapp ( )<br />     (vlax-for app (vla-get-registeredapplications (vla-get-activedocument (vlax-get-acad-object)))<br />         (vl-catch-all-apply 'vla-delete (list app))<br />     )<br />     (princ)<br /> )<br />

sicky111

能不能一键清理包含某个关键词的所有注册表。

renyonghua2014

楼主，有详细说明将更好！

kqqt6236

谢谢分享。