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

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

本帖最后由作者于 2006-8-16 8:35:39 编辑

本人写了一个的先倒直角后倒圆角的程式，可是发现只能倒出直角，程式如下：

Dim Dr As Double, Cr As Double, Cmdd As String, Cm As String
Dr = TextBox3.Text: Cr = TextBox4.Text
Cmdd = "chamfer" & vbCr & "d" & vbCr & Dr & vbCr & Dr & vbCr
ThisDrawing.SendCommand Cmdd
Cm = "fillet" & vbCr & "r" & vbCr & Cr & vbCr
ThisDrawing.SendCommand Cm

我知道原因是倒直角的时候会要求用户选择第一边及第二边，就在选第一边的时候它已经输了红色程式的第二个命令Fillet，而选第二边的时候，它输了红色程式中的r,这是错误的原因。请教大师，如何可以等用户选完两边后再执行我的红色程式

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

只有分开运行了

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

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

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

飞狐版主，能不能帮我一下

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

还有就是不用SendCommand

http://bbs.mjtd.com/forum.php?mod=viewthread&tid=24008

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

最好不要用SendCommand,这已经说了很多遍了

SendCommand不同于Lisp的Command函数,它只会机械的向命令行发送字符,而不会等命令完成,一般考虑用VBA直接完成,实在完成不了的才考虑使用Sendcommand,并且尽量将Sendcommand方法放在程序的最后

账号		自动登录	找回密码
密码			注册