[求助]关于sendcommand的疑问

mikewolf2k · 发表于 2005-10-13 22:41:00

在vba中用sendcommand，好像与vba执行并不是同步的，比如下面这段代码，多次执行的结果并不是相同的，请问有什么办法能确保sendcommand的语句在acad中执行完毕后再执行sendcommand下一句vb代码？
Sub bb()
   lsp = "(command ""text"" ""mc"" """ & 0 & "," & 0 & """ ""2"" ""0"" """ & "0" & """)"
   ActiveDocument.SendCommand lsp & vbCr
   lsp = "(command ""text"" ""mc"" """ & 1 & "," & 1 & """ ""2"" ""0"" """ & "1" & """)"
   ActiveDocument.SendCommand lsp & vbCr
   lsp = "(command ""text"" ""mc"" """ & 2 & "," & 2 & """ ""2"" ""0"" """ & "2" & """)"
   ActiveDocument.SendCommand lsp & vbCr
   lsp = "(command ""text"" ""mc"" """ & 3 & "," & 3 & """ ""2"" ""0"" """ & "3" & """)"
   ActiveDocument.SendCommand lsp & vbCr
   lsp = "(command ""text"" ""mc"" """ & 4 & "," & 4 & """ ""2"" ""0"" """ & "4" & """)"
   ActiveDocument.SendCommand lsp & vbCr
   lsp = "(command ""text"" ""mc"" """ & 5 & "," & 5 & """ ""2"" ""0"" """ & "5" & """)"
   ActiveDocument.SendCommand lsp & vbCr
   lsp = "(command ""text"" ""mc"" """ & 6 & "," & 6 & """ ""2"" ""0"" """ & "6" & """)"
   ActiveDocument.SendCommand lsp & vbCr
   lsp = "(command ""text"" ""mc"" """ & 7 & "," & 7 & """ ""2"" ""0"" """ & "7" & """)"
   ActiveDocument.SendCommand lsp & vbCr
   lsp = "(command ""text"" ""mc"" """ & 8 & "," & 8 & """ ""2"" ""0"" """ & "8" & """)"
   ActiveDocument.SendCommand lsp & vbCr
   lsp = "(command ""text"" ""mc"" """ & 9 & "," & 9 & """ ""2"" ""0"" """ & "9" & """)"
   ActiveDocument.SendCommand lsp & vbCr
   lsp = "(command ""text"" ""mc"" """ & 10 & "," & 10 & """ ""2"" ""0"" """ & "10" & """)"
   ActiveDocument.SendCommand lsp & vbCr
End Sub

alin · 发表于 2005-10-16 13:31:00

就为了生成几个简单的文字，不用那么复杂吧。读你的程序的人会有麻烦的。

lgf727 · 发表于 2005-10-16 16:15:00

没有办法

mikewolf2k · 发表于 2005-10-16 18:50:00

我只是举例说明连续写text时会出现问题，当然不是实际上这么用。

雪山飞狐_lzh · 发表于 2005-10-16 20:02:00

一定要可以这样
lsp = "(progn (setvar ""cmdecho"" 0) "
lsp = lsp & "(command ""text"" ""mc"" """ & 0 & "," & 0 & """ ""2"" ""0"" """ & "0" & """)"
lsp = lsp & "(command ""text"" ""mc"" """ & 1 & "," & 1 & """ ""2"" ""0"" """ & "1" & """)"
lsp = lsp & "(command ""text"" ""mc"" """ & 2 & "," & 2 & """ ""2"" ""0"" """ & "2" & """)"
lsp = lsp & "(command ""text"" ""mc"" """ & 3 & "," & 3 & """ ""2"" ""0"" """ & "3" & """)"
lsp = lsp & "(command ""text"" ""mc"" """ & 4 & "," & 4 & """ ""2"" ""0"" """ & "4" & """)"
lsp = lsp & "(command ""text"" ""mc"" """ & 5 & "," & 5 & """ ""2"" ""0"" """ & "5" & """)"
lsp = lsp & "(command ""text"" ""mc"" """ & 6 & "," & 6 & """ ""2"" ""0"" """ & "6" & """)"
lsp = lsp & "(command ""text"" ""mc"" """ & 7 & "," & 7 & """ ""2"" ""0"" """ & "7" & """)"
lsp = lsp & "(command ""text"" ""mc"" """ & 8 & "," & 8 & """ ""2"" ""0"" """ & "8" & """)"
lsp = lsp & "(command ""text"" ""mc"" """ & 9 & "," & 9 & """ ""2"" ""0"" """ & "9" & """)"
lsp = lsp & "(command ""text"" ""mc"" """ & 10 & "," & 10 & """ ""2"" ""0"" """ & "10" & """)"
lsp = lsp & "(setvar ""cmdecho"" 1))"
Dim fso As New FileSystemObject
Dim ts As TextStream
Set ts = fso.CreateTextFile("d:\mycmd.lsp")
ts.Write lsp
ts.Close
ThisDrawing.SendCommand "(load ""d:\mycmd.lsp"")" & vbCr
Kill "d:\mycmd.lsp"