删除所有“注册”的应用程序

Lisphk

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

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

zyclyl

-pu里也有呀

yangjian001

做一个热心并受欢迎的人

htm

加载的lsp程序占资源多吗？

ynhh

大师这个是不是万能自动注册机啊