726613 发表于 2013-5-14 16:08:03

关于清理程序

在ＣＡＤ命令行输入PU会弹出对话框（如图一），而用
(DEFUN C:qv ()
   (command "PURGE" )   
(princ)
)

则只会提示如图二，这是为什么 呢？请高手指点，谢谢


图一


图二

菡萏 发表于 2013-5-14 16:17:11

在Lisp中command命令对话框是自动不显示的！除非你是用如下方法：
(vla-sendcommand (vla-get-activedocument (vlax-get-acad-object)) "purge ")

726613 发表于 2013-5-14 16:20:50

菡萏 发表于 2013-5-14 16:17 static/image/common/back.gif
在Lisp中command命令对话框是自动不显示的！除非你是用如下方法：

请谢你的指点

1993063 发表于 2013-5-14 23:25:41

本帖最后由 1993063 于 2013-5-14 05:27 编辑

(initdia)(command "PURGE" )   ;有对话框
(command "-PURGE" "A" "" "n") ;无对话框

726613 发表于 2013-5-15 07:59:25

1993063 发表于 2013-5-14 23:25 static/image/common/back.gif
(initdia)(command "PURGE" )   ;有对话框
(command "-PURGE" "A" "" "n") ;无对话框

谢谢你的指教

自贡黄明儒 发表于 2013-5-15 08:15:46

(repeat 3
            (vla-purgeall
        (vla-get-activedocument (vlax-get-acad-object))
      )

726613 发表于 2013-5-15 12:41:26

已解决，谢谢

pengfei2010 发表于 2017-10-24 16:29:38

回帖是一种美德！感谢楼主的无私分享 谢谢
页: [1]
查看完整版本: 关于清理程序