[求助]如何在cad启动后自动运行vba工程(带窗体)

dbczhaoy · 发表于 2002-10-16 08:33:00

（defun c:你的函数名（）
（startapp "你的程序名 "）
）

dbczhaoy · 发表于 2002-10-20 10:21:00

将以下程序段写在acad2000doc.lsp中：
(defun c:名称() ;要在命令行执行的命令名称
  (setvar "cmdecho" 0)
  (command "-VBARUN" "VBA工程名称.dvb!模块名.过程名")
  (setvar "cmdecho" 1)
  (princ)
)
如：
(defun c:chgarr()
  (setvar "cmdecho" 0)
  (command "-VBARUN" "chgarr.dvb!chgarr.chgarr")
  (setvar "cmdecho" 1)
  (princ)
)