[编程交流] Vbaload Lisp

[color=blue][font="Courier New"]
(vl-vbarun "filename.dvb!module.sub")
[/font][/color]

(vl-vbarun "Y:\\MyFolder\\MyProgram.dvb!MyModule.MySub")

(defun Load_And_Run_VBA(File Procedure / cFile)
 (vl-load-com)
     
(defun Get_VBP_List(/ cPr cPat VBPrj pQnt pCnt prLst)
    
   (setq VBPrj(vlax-get
         (vla-get-VBE
          (vlax-get-acad-object))
           'VBProjects)
  pQnt(vla-get-Count VBPrj)
  pCnt 1)
   (repeat pQnt
     (setq cPr(vla-Item VBPrj pCnt))
      (if(vl-catch-all-error-p
    (setq cPat(vl-catch-all-apply
        'vlax-get(list cPr 'FileName))))
  (setq prLst(cons "*Invalid Project*" prLst))
  (setq prLst(cons cPat prLst))
 ); end if
     (setq pCnt(1+ pCnt))
     ); end repeat
   prLst
   ); end of Get_VBP_List
 (if(setq cFile(findfile File))
   (progn
    (if(not(member cFile(Get_VBP_List)))
      (vl-vbaload cFile)
      ); end if
      (vl-vbarun Procedure)
    ); end progn
   (princ
     (strcat "\n<!> Can't to find VBA Project: '"
        File "' <!> "))
   ); end if
 (princ)
 ); end of Load_And_Run_VBA

(Load_And_Run_VBA "C:\\My VBA Routines\\My program.dvb" "MyProcedure")

[color=blue][font="Courier New"]
(vl-vbarun "\\\\server\\share\\dir\\filename.dvb!module.sub")
[/font][/color]