[VBA程序]：在vba中怎样调用command命令？

min_zxm

我想在vba中用sendcommand命令向cad发送命令。可是如何让程序暂停，等待用户输入呢？
ThisDrawing.SendCommand "pedit M \  J"
这条语句总是出错，不知道怎末搞的。程序并不会停在\的地方，而是直接到"J"了，怎末办呢？还有，假如我用vba生成了一个选择集，如何把该选择集提供给command命令使用呢？

我直接用lisp来做也出错。
（command "pedit" "m" pause "j" )
这样还是有问题，程序读不到后面的"j"，不知道怎末办呀？

请高手赐教！！

gdzhou

与CAD的Command结合哇


我觉得可以这样子做

在程序中发送命令“Pedit”
再发送一个“M”
这样CAD会停留在等待用户选择图元
这时在选择集中使用函数

2. 
   
3. '转换图元函数
   
4. Public Function axEnt2lspEnt(entObj As AcadEntity) As String   
   
5. Dim entHandle As String   
   
6. entHandle = entObj.Handle   
   
7. axEnt2lspEnt = "(handent " & Chr(34) & entHandle & Chr(34) & ")"
   
8. End Function
   

<br /> '转换图元函数<br /> Public Function axEnt2lspEnt(entObj As AcadEntity) As String    <br /> Dim entHandle As String    <br /> entHandle = entObj.Handle    <br /> axEnt2lspEnt = "(handent " & Chr(34) & entHandle & Chr(34) & ")"<br /> End Function<br />

遍历提交图元
就相当于鼠标一个一个的点选上了。。

最后再发送一个“J”命令，，就可以把线连接的这个命令完整的运行下来了