[VBA程序]：VBA程序在命令行中的加载及运行

shiqiang

关于VBA程序在命令行中的加载及运行  
不利用LISP程序页直接在命令行中简单加载运行VBA程序的可能性是没有的。
通过一个简短的LISP程序来加载运行是最简单的，方法有以下几种：
(例中假设VBA工程为：addtol.dvb，模块为：mouldaddtol，过程为：subaddtol
1.定义并使用-vbarun来运行：如
(defun c:addtol()
    (setvar "cmdecho" 0)
    (command "-vbarun" "addtol.dvb!mouldaddtol.subaddtol")
    (setvar "cmdecho" 1)
(princ)
)
2.通过定义使用vl-vbaload和VL-VBARUN函数来运行，如：
(vl-vbaload (findfile "AddTol.dvb"))
(defun c:addtol()
    (setvar "cmdecho" 0)
; (vl-vbarun "mouldaddtol.subaddtol")
(princ)
)
3.通过自定义的加载函数及相关词句来完成，如：
(vl-load-com)
;;自动加载VBA程序的函数
(defun AutoVBALoad (cmdname project macro)
  (eval
    (list 'defun
  (read (strcat "C:" cmdname))
  nil
  (list
    'vl-vbarun
    (strcat
      project
      "!"
      (if macro
macro
cmdname
      )
    )
  )
  (princ)
    )
  )
)
;;自动加载VBA程序
(AutoVBALoad "AD" "addtol.dvb" "mouldaddtol.subaddtol")
4.还有一种就是通过VBA中的事件结合定义一个空的LISP程序来完成，如：
;;一些VBA程序的触发程序(LISP程序)
(defun c:ad()(princ))
'VBA事件：
Private Sub AcadDocument_BeginLisp(ByVal FirstLine As String)
Select Case UCase(FirstLine)
       Case "(C:AD)"
             subaddtol
End Select
End Sub

自由的鱼

第四个例子的“（c:ad）"能不能写为"ad"?

lsjjm

最初由 shiqiang 发布
[B]关于VBA程序在命令行中的加载及运行  
不利用LISP程序页直接在命令行中简单加载运行VBA程序的可能性是没有的...[/B]

不会吧?
如何理解命令行: (vl-vbaload (findfile "AddTol.dvb")) ?

自由的鱼

3楼问的是？

lsjjm

最初由 自由的鱼 发布
[B]3楼问的是？ [/B]

对1楼 "不利用LISP程序页直接在命令行中简单加载运行VBA程序的可能性是没有的"  提出不同意见.

ljpcd

找了很久了,精!

aeo

最初由 lsjjm 发布
[B]

对1楼 "不利用LISP程序页直接在命令行中简单加载运行VBA程序的可能性是没有的"  提出不同意见. [/B]

可是  "vl-vbaload " " findfile "都是lisp函数呀.

雪山飞狐(lzh)

不利用LISP程序页直接在命令行中简单加载运行VBA程序的可能性是没有的。
???
VB.net可以

sfy9

真好，非常感谢！