求助：如何判断vba是否加载？？

zxfzxf

求助：如何判断vba是否加载？？

alin

 ; -- Function VxGetLoadedVbaProjs
 ; Returns a list of all loaded VBA-Project names.
 ; Copyright:
 ;   ?000 MENZI ENGINEERING GmbH, Switzerland
 ; Arguments [Typ]:
 ;   --- =
 ; Return [Typ]:
 ;   > VBA-Project names [LIST]
 ; Notes:
 ;   Use a DocManagerReactor with a 'vlr-documentToBeDestroyed'-event
 ;   to release the Gb:AcO object at the end of a AutoCAD session
 ;   - otherwise AutoCAD maybe crashes...
 ;
(defun VxGetLoadedVbaProjs  (/ AllPrj IndCnt PrjLst)
  (or Gb:AcO (setq Gb:AcO (vlax-get-acad-object)))
  (setq AllPrj (vlax-get-property
                 (vla-get-VBE Gb:AcO)
                 'VbProjects
                 )
        IndCnt 1
        )
  (repeat (vla-get-Count AllPrj)
    (setq PrjLst (cons
                   (vla-get-Name (vla-Item AllPrj IndCnt))
                   PrjLst
                   )
          IndCnt (1+ IndCnt)
          )
    )
  (reverse PrjLst)
  )

lxq810125

斑竹,我们还没有入们呀.你解释好吗?

meflying

lxq810125发表于2005-7-21 22:04:00斑竹,我们还没有入们呀.你解释好吗?

没入门就好好看书,先入门