VBA自动运行的问题

Question

(defun-q KMSTARTUP()
(vl-vbaload (findfile "kmcapp.dvb"))
(vl-vbarun "InitializeEvents")
)
(setq S::STARTUP (append S::STARTUP KMSTARTUP))
直接启用ACAD没什么问题。启动我们的产品，然后插入一个DWG类型的OLE（已有文件），编辑完此OLE，关闭此文档时弹出的对话框显示内容为空。模拟程序使用方法：
(一），启用后，单击工具栏上的“T”按钮，选择一个已有DWG文件，把它当OLE插入。
(二），马上单击工具栏上的“E”按钮编辑刚才的那个OLE，关闭文档会弹出确认对话框，确认对话框上的信息为空(如附件）。
明经通道论坛
http://www.mjtd.com/bbs/UploadFile/2008-3/2008311911766496.rar

Answer 1

acad2006中文版acad.lsp全文如下：
(defun-q KMSTARTUP()
(vl-vbaload (findfile "kmcapp.dvb"))
(vl-vbarun "InitializeEvents")
)
(setq S::STARTUP (append S::STARTUP KMSTARTUP))
直接启用ACAD没什么问题。启动我们的产品，然后插入一个DWG类型的OLE（已有文件），编辑完此OLE，关闭此文档时弹出的对话框显示内容为空。模拟程序使用方法：
(一），启用后，单击工具栏上的“T”按钮，选择一个已有DWG文件，把它当OLE插入。
(二），马上单击工具栏上的“E”按钮编辑刚才的那个OLE，关闭文档会弹出确认对话框，确认对话框上的信息为空(如附件）。
明经通道论坛
http://www.mjtd.com/bbs/UploadFile/2008-3/2008311911766496.rar

Answer 2

在我这里完全正常，不过我AutoCAD是2004

Answer 3

难度是AutoCAD的问题？
我把auto.lsp或kmcapp.dvb删了就是正常的