[求助]如何抑制CAD命令的响应

我看

大家好:

(Defun C:test ()
       (SetQ dx1T (Car (EntSel "选择面域: ")))
       (SetQ dx2T (Car (EntSel "选择面域: ")))

       (SetVar "cmdecho" 0)
 
       (VL-CmdF "intersect" dx1T dx2T "")

       (SetVar "cmdecho" 1)
)如何能够抑制响应INERSECT命令呢?使这个命令在程序的执行过程中,不出现在命令行中.

Andyhon

My test ....

Command: TEST
Select object:
Select object:
1