[求助]：利用VBA如何在坐标状态栏显示消息？

iamcyb

我的意思是，实现如同LISP中的（grtxet -2 "显示消息的文本"）的功能。

灯火

AutoCAD当前版本的VBA好像只有PopupMenuItem之类对象的HelpString属性能够向状态栏显示消息，没找到坐标状态栏显示消息的方法。如果你最终找到办法，别忘了告诉一声。

rave

VBA可以执行Lisp表达式

ThisDrawing.SendCommand "(grtext -2 ""显示消息的文本"") "

OK?

灯火

楼上那位要的大概是“纯”VBA方法。

ThisDrawing.SendCommand "(grtext -2 ""显示消息的文本"") "
这种方法如果能够关闭命令行回显，还能唬一唬人，现在这样还不如老老实实地用VBA的Prompt方法。

秋枫

setvariable MODEMACRO也可以吧。

灯火

楼上要的是在坐标栏显示信息。
MODEMACRO把信息显示在状态栏，可显示的字符数较少。

实际上，如果不能实现如菜单帮助字符串那样的效果，都不如用Prompt方法。

rave

最初由 灯火 发布
[B]楼上那位要的大概是“纯”VBA方法。

ThisDrawing.SendCommand "(grtext -2 ""显示消息的文本"") "
这种方法如果能够关闭命令行回显，还能唬一唬人，现在这样还不如老老实实地用VBA的Prompt方法。 [/B]

我以前见到有人写了个arx程序，扩展了Acad ActiveX Automation , 提供了一个运行Lisp而不在命令行回显的方法。

谁手头有该arx？请捐出来（我记不清了，我在Google找了很久没找到）

明经通道

利用VLAX类插件，完全能达到你的目的
看以下代码：
Sub grtext()
Dim objVLAX As vlax
Set objVLAX = New vlax
objVLAX.EvalLispExpression "(grtext -2 " & Chr(34) & "显示消息的文本" & Chr(34) & ")"
objVLAX.EvalLispExpression "(princ " & Chr(34) & "http://www.mjtd.com" & Chr(34) & ")"
End Sub
看看运行之后是什么效果(注意命令行完全不会出现什么回显的问题)。
VLAX类的下载地址：
http://www.mjtd.com/mcdown/list.asp?id=85
注意程序中以下两行是必须的：
Dim objVLAX As vlax
Set objVLAX = New vlax
这样才能调用其所定义的一些函数，调用方法：
objVLAX.EvalLispExpression  为执行LISP表达式
其它的一些函数自己看看应该能明白
在明经实用函数栏目的VBA函数中有一些函数是利用VLAX类来达到目的的。
具体对VLAX的应用可到明经通道http://www.mjtd.com去讨论：)