yuangw1234 发表于 2006-8-15 12:12:00

vba中的命令暫停(看來只有請教飛狐版主了)

本帖最后由 作者 于 2006-8-16 8:35:39 编辑 <br /><br /> <P>本人写了一个的先倒直角后倒圆角的程式，可是发现只能倒出直角，程式如下：</P>
<P>Dim Dr As Double, Cr As Double, Cmdd As String, Cm As String<BR>Dr = TextBox3.Text: Cr = TextBox4.Text<BR>Cmdd = "chamfer" &amp; vbCr &amp; "d" &amp; vbCr &amp; Dr &amp; vbCr &amp; Dr &amp; vbCr<BR>ThisDrawing.SendCommand Cmdd<BR><FONT color=#ff3300>Cm = "fillet" &amp; vbCr &amp; "r" &amp; vbCr &amp; Cr &amp; vbCr<BR>ThisDrawing.SendCommand Cm</FONT></P>
<P>我知道原因是倒直角的时候会要求用户选择第一边及第二边，就在选第一边的时候它已经输了红色程式的第二个命令Fillet，而选第二边的时候，它输了红色程式中的r,这是错误的原因。请教大师，如何可以等用户选完两边后再执行我的红色程式<BR></P>

wyj7485 发表于 2006-8-15 17:15:00

<P>只有分开运行了</P>

yuangw1234 发表于 2006-8-15 17:52:00

你意思是不能在同一個程式完成嗎

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

<P>飞狐版主，能不能帮我一下</P>

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

<P><U><FONT color=#800080>还有就是不用SendCommand</FONT></U></P>
<P><A href="http://bbs.mjtd.com/forum.php?mod=viewthread&tid=24008" target="_blank" >http://bbs.mjtd.com/forum.php?mod=viewthread&tid=24008</A></P>

雪山飞狐_lzh 发表于 2006-8-16 09:25:00

<P>最好不要用SendCommand,这已经说了很多遍了</P>
<P>SendCommand不同于Lisp的Command函数,它只会机械的向命令行发送字符,而不会等命令完成,一般考虑用VBA直接完成,实在完成不了的才考虑使用Sendcommand,并且尽量将Sendcommand方法放在程序的最后</P>
页: [1]
查看完整版本: vba中的命令暫停(看來只有請教飛狐版主了)