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

macula

编写了一个VBA过程，如下：

Sub aaaaaaaa()

  With ThisDrawing
      SendCommand "area "
      SendCommand "o "
      SendCommand "last "
  End With

end sub

可以看出此过程向CAD的命令行发出了一个查看面积的命令，问题是如何在程序中得到这个命令的返回值。

VBA如何获取CAD命令的返回值？

macula

没人帮我吗？

cbse_smy

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

mycad

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

mccad

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

macula

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

swjtu2000

thisdrawing.getvar lastprompt

macula

知道了，多谢

fjfhgdwfn

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

fjfhgdwfn

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
  
有一行是可以得到的。如果输出有两行，不知道如何得到了。