[VBA程序]：怎样才能取消命令行里的这个显示？

liuhexiang

222.dvb!thisdrawing.d1这是我编的一个过程，然后我在acad2000doc中添加了
(defun c:d1 ()(command "_vbarun" "222.dvb!thisdrawing.d1"))，加载我的222.dvb及acad2000doc后在命令行里敲入d1，然后命令行显示为：
命令:*取消*
命令:d1
-vbarun
宏名：222.dvb!thisdrawing.d1 nil
选择对象：
我想让它光是显示：
命令:*取消*
命令:d1
选择对象：
就是在命令行里输入“d1”后就直接显示执行我的命令“选择对象：”。我看有的软件可以这样，但不知道怎样才能这样，哪位高手能指点一下，谢谢！

zhuxuhong

acad2000doc.lsp中加入(setvar "OSMODE" 0)试试

liuhexiang

首先非常感谢！

还是不理想，命令行里显示如下：

命令: *取消*
命令: d1
1

选择对象:


命令行里还是多了一个  “1”
似乎要完美解决这个问题可能是另外的思路，办法？

smarta

(princ)
(setvar "cmdecho"0)
try it in lisp or VBA

liuhexiang

Public Sub d1()
Dim selset As AcadSelectionSet
Dim entry As AcadEntity
Set selset = ThisDrawing.SelectionSets.Add("137")
'filtertype = 0
'filterdata = line

selset.SelectOnScreen

For Each entry In selset
entry.Color = 70
entry.Update

Next entry

selset.Delete

    ThisDrawing.Application.ZoomAll
End Sub
这是源程序。
还是不行，只是要不就是0
或者是1
始终还是多其它的字符。

Jason0511

我想用VB直接写，在VB里引用CAD VBA的lib，应该可以吧。我没试，如果不对，还请海涵。