[求助]lisp调用vba窗体问题
<p>做好了一个project.vba,里面就一个窗体，没有其它任何东西</p><p>想写一个lisp语句，加载后输入命令即运行处该窗体，这个语句该如何写呢，求教各位</p>
<p> </p>
<p>以下是初步的内容，但不行，是lisp语句问题，还是vba窗体里需要写什么语句？？？？？？？？？？？？？</p><font face="Verdana">
<p><br/>(defun c:ttt( / )<br/> (vl-load-com)<br/> (setq acad (vlax-get-acad-object))<br/> (print "原创Lisp使用VBA对话框")<br/> (setq Dvb_Path (findfile "D:\\工程\\文档\\cad\\lisp\\Project.dvb"))<br/> (if (not Dvb_Path) (progn(alert "D:\\工程\\文档\\cad\\lisp\\Project.dvb文件不存在")(exit)))<br/> (vl-catch-all-apply 'vla-UnloadDVB '(acad Dvb_Path))<br/> (Vlax-Invoke-Method (Vlax-Get-Acad-Object) 'LoadDVB Dvb_Path)<br/> (setq dvb "UserForm1")<br/> (vlax-invoke-method acad 'Eval (strcat dvb ".Show 0"))</p>
<p>)<br/></font></p> <div><br/>搜一下nonsmall的帖子，好像有这方面内容</div>
页:
[1]