clh521 发表于 2016-2-18 11:09:17

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

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

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

选择对象:

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

自贡黄明儒 发表于 2016-2-18 11:28:08

(setvar "nomutt" 1)

clh521 发表于 2016-2-18 11:57:24

自贡黄明儒 发表于 2016-2-18 11:28 static/image/common/back.gif
(setvar "nomutt" 1)

还是不行啊！

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

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

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

brbright 发表于 2016-2-18 12:19:14

(setvar "CMDECHO" 0)

clh521 发表于 2016-2-18 14:06:44

brbright 发表于 2016-2-18 12:19 static/image/common/back.gif
(setvar "CMDECHO" 0)

还是没用。看下面演示：

命令: (setvar "CMDECHO" 0)
0

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

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

选择对象:

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

yshf 发表于 2016-2-19 18:03:17

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

clh521 发表于 2016-2-20 22:13:10

yshf 发表于 2016-2-19 18:03 static/image/common/back.gif
用Vlisp试一试：

Vlisp不懂，但是很谢谢你源码，本人照搬了
页: [1]
查看完整版本: 用command调用CAD内部命令时，如何去除命令行的一些提示信息？