[求助]：怎么在命令行启动VBA程序啊？

min_zxm

怎么在命令行启动VBA程序啊？
好像没有这个功能，是么?

雪山飞狐(lzh)

"-vbarun"命令

min_zxm

这我知道，我想像visual lisp写的程序一样，可以用命令行调用

雪山飞狐(lzh)

引自明经通道
调用方法：(AutoVBALoad "文件名" '("命令1" "命令2" ))

2. 
   
3. ;;自动加载VBA程序的函数
   
4. (defun AutoVBALoad (app cmdliste / qapp)
   
5.   (vl-load-com)
   
6.   (setq qapp (strcat """ app """))
   
7.   (mapcar
   
8.     '(lambda (cmd / nom_cmd dot nodotcmd)
   
9.        (progn
   
10.          (setq dot (vl-string-search "." cmd))
    
11.          (if dot
    
12.            (setq nodotcmd (substr cmd (+ dot 2)))
    
13.            (setq nodotcmd cmd)
    
14.          )
    
15.          (setq nom_cmd (strcat "C:" nodotcmd))
    
16.          (eval
    
17.            (read (strcat
    
18.                    "(defun " nom_cmd "(/ app)"
    
19.                      "(if (setq app(fdvbfile " qapp "))"
    
20.                        "(vla-runmacro (vlax-get-acad-object) (strcat app "!" cmd ""))"
    
21.                        "(nodvbfile " qapp "))"
    
22.                    "(princ ))"
    
23.        )))))
    
24.     cmdliste
    
25.   )
    
26.   (princ)
    
27. )
    
28. 
    
29. 
    
30. (defun fdvbfile (app)
    
31.   (if (not (findfile app))
    
32.     (if (not (findfile (strcat app ".dvb"))) nil  (strcat app ".dvb")) app)
    
33. )
    
34. 
    
35. (defun nodvbfile (filename)
    
36.   (princ (strcat "\n文件 " filename "(.dvb) 在搜索路径文件夹中未找到。" ))
    
37.   (princ "\n请检查支持文件的安装，然后重试。")
    
38.   (princ)
    
39. )
    
40. 
    

<br /> ;;自动加载VBA程序的函数 <br /> (defun AutoVBALoad (app cmdliste / qapp)<br />   (vl-load-com)<br />   (setq qapp (strcat """ app """))<br />   (mapcar<br />     '(lambda (cmd / nom_cmd dot nodotcmd)<br />        (progn<br />          (setq dot (vl-string-search "." cmd))<br />          (if dot<br />            (setq nodotcmd (substr cmd (+ dot 2)))<br />            (setq nodotcmd cmd)<br />          )<br />          (setq nom_cmd (strcat "C:" nodotcmd))<br />          (eval<br />            (read (strcat<br />                    "(defun " nom_cmd "(/ app)"<br />                      "(if (setq app(fdvbfile " qapp "))"<br />                        "(vla-runmacro (vlax-get-acad-object) (strcat app "!" cmd ""))"<br />                        "(nodvbfile " qapp "))"<br />                    "(princ ))"<br />        )))))<br />     cmdliste<br />   )<br />   (princ)<br /> ) <br /> <br /> <br /> (defun fdvbfile (app)<br />   (if (not (findfile app))<br />     (if (not (findfile (strcat app ".dvb"))) nil  (strcat app ".dvb")) app)<br /> )<br /> <br /> (defun nodvbfile (filename)<br />   (princ (strcat "\n文件 " filename "(.dvb) 在搜索路径文件夹中未找到。" ))<br />   (princ "\n请检查支持文件的安装，然后重试。")<br />   (princ)<br /> )<br /> <br />