macula 发表于 2005-8-8 13:25:00

[VBA]如何获得CAD命令行的返回值？

<P>编写了一个VBA过程，如下：</P>
<P>Sub aaaaaaaa()</P>
<P>&nbsp; With ThisDrawing<BR>&nbsp;&nbsp;&nbsp; &nbsp; SendCommand "area "<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; SendCommand "o "<BR>&nbsp; &nbsp;&nbsp;&nbsp; SendCommand "last "<BR>&nbsp;&nbsp;End With</P>
<P>end sub</P>
<P>可以看出此过程向CAD的命令行发出了一个查看面积的命令，问题是如何在程序中得到这个命令的返回值。</P>
<P>VBA如何获取CAD命令的返回值？</P>

macula 发表于 2005-8-8 18:19:00

没人帮我吗？

cbse_smy 发表于 2005-8-13 15:40:00

听说目前无法做到,我和你一样困惑!

mycad 发表于 2005-8-14 18:40:00

<P>其实想得到面积可以不用上面的cad命令也可以实现的，试使用vba中的属性</P>

mccad 发表于 2005-8-14 22:10:00

取系统变量 "AREA"的值就可以。

macula 发表于 2005-8-15 08:53:00

楼上说的我知道，我只是想知道如何获取命令行的返回值。

swjtu2000 发表于 2005-8-15 10:09:00

thisdrawing.getvar lastprompt

macula 发表于 2005-8-17 16:03:00

知道了，多谢

fjfhgdwfn 发表于 2011-1-12 13:11:34

好像不能用啊。有什么特别要求吗？

fjfhgdwfn 发表于 2011-1-12 14:33:07


Sub Example_GetVariable()
    ' This example finds the current setting of the
    ' system variable FILLMODE.
   
    Dim sysVarName As String
    Dim varData As Variant
   
    sysVarName = "lastprompt"
    varData = ThisDrawing.GetVariable(sysVarName)
    MsgBox sysVarName & " = " & varData, , "GetVariable Example"
   
End Sub

有一行是可以得到的。如果输出有两行，不知道如何得到了。
页: [1]
查看完整版本: [VBA]如何获得CAD命令行的返回值？