在VBA运行时如何不显示AutoCAD的"命令:"提示

jkbanana

程序如下：

Public Sub Test()

Dim returnPnt As Variant

Dim corner1(0 To 2) As Double

Dim corner2(0 To 2) As Double

 

ThisDrawing.SetVariable "CMDECHO", 0

returnPnt = ThisDrawing.Utility.GetPoint(, vbCrLf & "Enter Start point:")

corner1(0) = returnPnt(0)

corner1(1) = returnPnt(1)

corner1(2) = returnPnt(2)

returnPnt = ThisDrawing.Utility.GetCorner(corner1, "Enter Other corner: ")

corner2(0) = returnPnt(0)

corner2(1) = returnPnt(1)

corner2(2) = returnPnt(2)

End Sub

''''''''''''''''''''

''''''''''''''''''''

'运行时出现以下提示

'命令:

'Enter Start point:

'命令: Enter Other corner:

'----------------------------------

'我的问题是:

'如何使GetCorner()的提示出现时,在AutoCAD的命令行也不出现"命令:",

'就象一般的AutoCAD命令一样，使运行时出现以下提示

'命令:

'Enter Start point:

'Enter Other corner:

sody

比较简单的方法

returnPnt = ThisDrawing.Utility.GetCorner(corner1, Chr(8) & Chr(8) & Chr(8) & Chr(8) & Chr(8) & Chr(8) & "Enter Other corner: ")

用CHR删掉“命令:”

wyj7485

呵呵，这样很好，推荐

groovy

Unload Me
ThisDrawing.SendCommand "_vbaunload" & vbCr & "gj" & vbCr

这一句卸载宏的语句怎么样不让他在命令行里面显示：

命令: _vbaunload

卸载 VBA 工程: gj

能否再说说

jkbanana

sody的方法很好.谢谢.

加工一下就可以用在不同版本的AutoCAD(如中文和英文版)中使用