[教学]：获得所有加载的VBA工程的路径和名字

dnbcgrass

看看，:lol:lol:lol

清风明月10

谢谢楼主代码分享！

st788796

2. 
   
3. (defun c:tt (/ app vbs vb lst i n fn)
   
4.   (vl-load-com)
   
5.   (setq        app (vla-get-application (vlax-get-acad-object))
   
6.         Vbs (vlax-get-property (vla-get-vbe app) 'VBProjects)
   
7.   )
   
8.   (if (> (setq n (vla-get-count vbs)) 0)
   
9.     (progn
   
10.       (setq i 0)
    
11.       (repeat n
    
12.         (setq vb (vlax-invoke-method vbs 'Item (setq i (1+ i))))
    
13.         (if (not (vl-catch-all-error-p
    
14.                    (setq fn (vl-catch-all-apply
    
15.                               'vlax-get-property
    
16.                               (list vb 'FileName)
    
17.                             )
    
18.                    )
    
19.                  )
    
20.             )
    
21.           (setq lst (cons fn lst))
    
22.         )
    
23.       )
    
24.     )
    
25.   )
    
26.   (foreach x lst
    
27.     (princ "\n")
    
28.     (princ x)
    
29.   )
    
30.   (princ)
    
31. )

<br /> (defun c:tt (/ app vbs vb lst i n fn)<br />   (vl-load-com)<br />   (setq        app (vla-get-application (vlax-get-acad-object))<br />         Vbs (vlax-get-property (vla-get-vbe app) 'VBProjects)<br />   )<br />   (if (> (setq n (vla-get-count vbs)) 0)<br />     (progn<br />       (setq i 0)<br />       (repeat n<br />         (setq vb (vlax-invoke-method vbs 'Item (setq i (1+ i))))<br />         (if (not (vl-catch-all-error-p<br />                    (setq fn (vl-catch-all-apply<br />                               'vlax-get-property<br />                               (list vb 'FileName)<br />                             )<br />                    )<br />                  )<br />             )<br />           (setq lst (cons fn lst))<br />         )<br />       )<br />     )<br />   )<br />   (foreach x lst<br />     (princ "\n")<br />     (princ x)<br />   )<br />   (princ)<br /> )

xhk32067

好文章，我想看看

xhk32067

这个应该是国外文献吧！

xhk32067

这个应该是国外文献吧！

yshf

回复学习学习！

cdm1999

学习学习！！！！

vbdak2000

非常感谢。

yuren008

谢谢楼主分享。

diadblo

花样百出花样百出

tiankong2016

谢谢楼主分享

FirePhenix

qq2222081387

zjy2999

学习！！！！！！！！！！！！！！