看起来像是的vb版本http://www.theswamp.org/index.php?topic=33352.msg387539#msg387539 ?
是的，我只是想把它添加到这里，供讨论。 这是一个，我刚刚发现：
只需将其放在函数的末尾：acedPostCommand dPrompt（）；就会成功。
一直在努力在从无模式表单调用/执行函数后重新显示Command： line提示符。
即：
命令：
表位置：
完成函数后，回到表单（焦点），您仍然会在命令行中看到：
表位置：
直到您转到绘图屏幕区域并用鼠标单击，例如，这将返回提示符：
命令： 如果将＜br＞私有共享函数acedCommand（ByVal type1作为整数，ByVal命令作为字符串，ByVal type2作为整数，ByVal blockName作为字符串，ByVal作为整数）作为整数＜br＞结束函数＜br＞acedCommand，则块的2011预览图标
页:
1
[2]