[求助]lisp调用vba窗体问题

anhong130

做好了一个project.vba,里面就一个窗体，没有其它任何东西

想写一个lisp语句，加载后输入命令即运行处该窗体，这个语句该如何写呢，求教各位

 

以下是初步的内容，但不行，是lisp语句问题，还是vba窗体里需要写什么语句？？？？？？？？？？？？？

(defun c:ttt( / )
 (vl-load-com)
 (setq acad (vlax-get-acad-object))
 (print "原创Lisp使用VBA对话框")
 (setq Dvb_Path (findfile "D:\\工程\\文档\\cad\\lisp\\Project.dvb"))
 (if (not Dvb_Path) (progn(alert "D:\\工程\\文档\\cad\\lisp\\Project.dvb文件不存在")(exit)))
 (vl-catch-all-apply 'vla-UnloadDVB '(acad Dvb_Path))
 (Vlax-Invoke-Method (Vlax-Get-Acad-Object) 'LoadDVB Dvb_Path)
 (setq dvb "UserForm1")
 (vlax-invoke-method acad 'Eval (strcat dvb ".Show 0"))

)

cjs

搜一下nonsmall的帖子，好像有这方面内容