vba如何用Sendcommand 方法传递语句

yuangw1234 · 发表于 2006-7-1 13:01:00

请问vba如何用Sendcommand 方法传递以下语句
(defun c:tt() (command"vbarun" "E:\\acad.dvb!Automationmanage.tt1"))
多谢！

雪山飞狐_lzh · 发表于 2006-7-1 14:44:00

为什么用Sendcommand ？，把它放在Acad200?Doc.lsp文件里不就行了

yuangw1234 · 发表于 2006-7-1 16:25:00

因为我要实现点一个控件才发这个命令

雪山飞狐_lzh · 发表于 2006-7-2 11:07:00

你可以在tt宏里做一个判断，Sendcommand不推荐使用的

yuangw1234 · 发表于 2006-7-5 16:10:00

4楼版主:怎么判断呢？虽不建义用，可否写出来看一下
能否写成thisdrawing.sendcommand _
"(defun c() (command"vbarun" "E:\\acad.dvb!Automationmanage.tt1"))"

雪山飞狐_lzh · 发表于 2006-7-5 20:41:00

"(defun c() (command ""-vbarun"" ""E:\\acad.dvb!Automationmanage.tt1""))" & vbcr

yuangw1234 · 发表于 2006-8-16 08:28:00

不能用thisdrawing.sendcommand "(defun c: tt() (command ""-vbarun"" ""E:\\acad.dvb!Automationmanage.tt1""))" & vbcr

wyj7485 · 发表于 2006-8-16 09:23:00

"(defun c:tt() (command" & chr(34) & "vbarun" & chr(34) & " " & chr(34) & "E:\\acad.dvb!Automationmanage.tt1" & chr(34) & "))"