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

vba如何用Sendcommand 方法传递语句

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

雪山飞狐_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

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

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

<P>"(defun c() (command ""-vbarun"" ""E:\\acad.dvb!Automationmanage.tt1""))" &amp; vbcr</P>

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

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

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

<P>"(defun c:tt() (command" &amp; chr(34) &amp; "vbarun" &amp;&nbsp; chr(34) &amp; " " &amp; chr(34) &amp; "E:\\acad.dvb!Automationmanage.tt1" &amp;&nbsp; chr(34) &amp; "))"</P>
<P>&nbsp;</P>
页: [1]
查看完整版本: vba如何用Sendcommand 方法传递语句