cdb 发表于 2006-3-3 14:36:00

[求助]VBa加载

[求助]VBa加载<BR>
<P>请教班竹一个问题，我写了加载VBa的程序，但运行后只加载了该程序，而没有运行里面的宏，不知是什么地方有误，请指教。sw.lisp:</P>
<P>(vl-vbaload (findfile "c:/sw/dmdraw.dvb")) <BR>(defun c:Project() <BR>&nbsp;&nbsp;&nbsp; (setvar "cmdecho" 0) <BR>; (vl-vbarun "模块1.menu") <BR>(princ) <BR>) </P>
<P>(defun s::STARTUP()<BR>&nbsp; (command "_-vbarun" "模块1.menu")<BR>)</P>
<P>其中宏的位置在“C:\sw\dmdraw.dvb!模块1.menu”</P>

xqyhome 发表于 2006-3-3 16:43:00

<P>(vl-vbaload (findfile "mxb.dvb"))&nbsp;&nbsp; 'VBA工程mxb.dvb</P>
<P>(defun C:MXM() <BR>(setvar "cmdecho" 0)<BR>&nbsp; (vl-vbarun "MXM")&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '模块1中的宏名MXM<BR>(setvar "cmdecho" 1)<BR>&nbsp; (princ) <BR>) </P>

cdb 发表于 2006-3-5 11:10:00

我试过了，还是不对呢，只加载了"c:/sw/dmdraw.dvb"程序，而没有运行宏"menu"？

cdb 发表于 2006-3-9 21:19:00

没有人回答?

雪山飞狐_lzh 发表于 2006-3-9 22:47:00

你在哪个文件加载的？

xinghesnak 发表于 2006-3-10 10:03:00

能不能把你想要加载的文件名,路径,模块名都列出来啊......

cdb 发表于 2006-3-11 17:59:00

<P>想要加载的文件名及路径在“C:\sw\dmdraw.dvb!模块1.menu”，其宏的位置为：“C:\sw\dmdraw.dvb!模块1.menu”，在“C:\sw\”下加载“sw.lisp”，希望能运行“模块1”中的宏“menu”，哪位知道，请告之，本人在此感谢！所写的sw.lisp在上面。</P>

雪山飞狐_lzh 发表于 2006-3-11 19:21:00

<P>在AutoCad200?Doc.lsp文件中加载sw.lisp并运行之</P>

CLARKLEE 发表于 2006-3-13 13:38:00

<P>(DEFUN C:blockmessage ()<BR>&nbsp;&nbsp;&nbsp; (SETq F (OPEN "C:/WINDOWS/DVBLOG.TXT" "r"))<BR>&nbsp;&nbsp;&nbsp; (SETq W (read-line F))<BR>&nbsp;&nbsp;&nbsp; (SETq stanfile (strcat W "block_message.dvb"))<BR>&nbsp;&nbsp;&nbsp; (COMMAND "_-VBALOAD" stanfile)<BR>&nbsp;&nbsp;&nbsp; (COMMAND "_-VBARUN" "thisdrawing.blockmessage")</P>
<P>&nbsp; )</P>

cdb 发表于 2006-3-13 21:39:00

<P>我写的这个跟楼上的差不多的,但还是不能运行""模块1.menu"的宏呢,有什么地方有问题?请指教!</P>
<P>(defun s::STARTUP()<BR>&nbsp;&nbsp;&nbsp;&nbsp; (setvar "cmdecho" 0)<BR>&nbsp;&nbsp;&nbsp;&nbsp; (command "-vbaload" "c:/sw/dmdraw.dvb")<BR>&nbsp;&nbsp;&nbsp;&nbsp; (command "-vbarun" "模块1.menu")<BR>&nbsp;&nbsp;&nbsp;&nbsp; (setvar "cmdecho" 1)<BR>(princ)<BR>)</P>
页: [1] 2
查看完整版本: [求助]VBa加载