列出所有注册的应用程序

marting

1. (defun c:GetAppsX (/ oAcad oDoc colRegApps)
   
2.    (vl-load-com)
   
3.    (setq oAcad (vlax-get-acad-object)
   
4.            oDoc (vla-get-activedocument oAcad)
   
5.            colRegApps (vla-get-registeredapplications oDoc)
   
6.    )
   
7.    (princ "\nRegistered apps in drawing:")
   
8.    (vlax-for app colRegApps
   
9.       (princ (strcat "\n" (vla-get-name app)))
   
10.    )
    
11.    (vlax-release-object colRegApps)
    
12.    (princ)
    
13. )  
    

(defun c:GetAppsX (/ oAcad oDoc colRegApps)<br />    (vl-load-com)<br />    (setq oAcad (vlax-get-acad-object)<br />            oDoc (vla-get-activedocument oAcad)<br />            colRegApps (vla-get-registeredapplications oDoc)<br />    )<br />    (princ "\nRegistered apps in drawing:")<br />    (vlax-for app colRegApps<br />       (princ (strcat "\n" (vla-get-name app)))<br />    )<br />    (vlax-release-object colRegApps)<br />    (princ)<br /> )  <br />

yjch

好，一目了然，好好学习天天向上