用command调用CAD内部命令时，如何去除命令行的一些提示信息？

clh521

比如：
命令: (command "rotate3d" (ssget) "" "X" "_non" (getpoint) 90)

当前正向角度:  ANGDIR=逆时针 ANGBASE=0

选择对象:

如何让“当前正向角度:  ANGDIR=逆时针 ANGBASE=0”不显示出来？

自贡黄明儒

(setvar "nomutt" 1)

clh521

自贡黄明儒 发表于 2016-2-18 11:28
(setvar "nomutt" 1)

还是不行啊！

命令: (setvar "nomutt" 1)
1
(command "rotate3d" (ssget) "" "X" "_non" (getpoint) 90)

当前正向角度:  ANGDIR=逆时针 ANGBASE=0

还是出现了“当前正向角度:  ANGDIR=逆时针 ANGBASE=0”这一提示

brbright

(setvar "CMDECHO" 0)

clh521

brbright 发表于 2016-2-18 12:19
(setvar "CMDECHO" 0)

还是没用。看下面演示：

命令: (setvar "CMDECHO" 0)
0

命令: (command "rotate3d" (ssget) "" "X" "_non" (getpoint) 90)

当前正向角度:  ANGDIR=逆时针 ANGBASE=0

选择对象:

还是会出现“当前正向角度:  ANGDIR=逆时针 ANGBASE=0”

yshf

用Vlisp试一试：

2.     (if (setq ssa (ssget ))
   
3.         (if (setq pt0 (getpoint "\n基准点:"))
   
4.             (progn
   
5.                 (setq ssaobj (vla-get-ActiveSelectionSet (vla-get-ActiveDocument (vlax-get-acad-object))))
   
6.                 (setq p0 (vlax-3d-point pt0))
   
7.                 (setq p1 (vlax-3d-point (mapcar '+ pt0 '(10 0 0))))
   
8.                 (setq ang (* 0.5 pi)
   
9.                 (vlax-for obj ssaobj
   
10.                    (vla-rotate3d obj p0 p1 ang)
    
11.                 )
    
12.             )
    
13.         )
    
14.     )

    (if (setq ssa (ssget ))<br />         (if (setq pt0 (getpoint "\n基准点:"))<br />             (progn<br />                 (setq ssaobj (vla-get-ActiveSelectionSet (vla-get-ActiveDocument (vlax-get-acad-object))))<br />                 (setq p0 (vlax-3d-point pt0))<br />                 (setq p1 (vlax-3d-point (mapcar '+ pt0 '(10 0 0))))<br />                 (setq ang (* 0.5 pi)<br />                 (vlax-for obj ssaobj<br />                    (vla-rotate3d obj p0 p1 ang)<br />                 )<br />             )<br />         )<br />     )

clh521

yshf 发表于 2016-2-19 18:03
用Vlisp试一试：

Vlisp不懂，但是很谢谢你源码，本人照搬了