[求助]VBa加载

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

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

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

(vl-vbaload (findfile "mxb.dvb")) 'VBA工程mxb.dvb
(defun C:MXM()
(setvar "cmdecho" 0)
(vl-vbarun "MXM") '模块1中的宏名MXM
(setvar "cmdecho" 1)
(princ)
)

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

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

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

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

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

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

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

我写的这个跟楼上的差不多的,但还是不能运行""模块1.menu"的宏呢,有什么地方有问题?请指教!
(defun s::STARTUP()
   (setvar "cmdecho" 0)
   (command "-vbaload" "c:/sw/dmdraw.dvb")
   (command "-vbarun" "模块1.menu")
   (setvar "cmdecho" 1)
(princ)
)

[求助]VBa加载

发表回复

精选推荐