如何设置purge不回显

jinan1913

如何设置purge不回显，比如，不显示 ”正在删除块“block1”。“等
(command "PURGE" "B" "*" "N")
正在删除块“block1”。
正在删除块“block10”。
正在删除块“block11”。
正在删除块“block12”。

ㄘ丶转裑ㄧ灬

1. ;;;;;;******************清理保存
   
2. (defun c:HT_902 ()
   
3. (vla-purgeall(vla-get-ActiveDocument(vlax-get-acad-object)))
   
4. (if (= (getvar "WRITESTAT") 0)
   
5.   (alert "图形文件被写保护")
   
6.   (progn (command "_qsave") (princ "*****已清理并保存完毕！"))
   
7. )
   
8. (princ)
   
9. )

;;;;;;******************清理保存<br /> (defun c:HT_902 ()<br /> (vla-purgeall(vla-get-ActiveDocument(vlax-get-acad-object)))<br /> (if (= (getvar "WRITESTAT") 0)<br />   (alert "图形文件被写保护")<br />   (progn (command "_qsave") (princ "*****已清理并保存完毕！"))<br /> )<br /> (princ)<br /> )

cq4920

ㄘ丶转裑ㄧ灬 发表于 2021-6-18 08:40

有点卡呢？

mokson

学习一下。

ㄘ丶转裑ㄧ灬

cq4920 发表于 2021-6-18 14:52
有点卡呢？

清理加保存，如果觉得卡，就把保存那段删掉，即把if整段删了

crtrccrt

(vla-purgeall(vla-get-ActiveDocument(vlax-get-acad-object)))

如何只清理某类对象,比例如:只清理标注定义,或只清理文字样式,或只清理图块定义?

竹天

crtrccrt 发表于 2021-6-21 09:47
(vla-purgeall(vla-get-ActiveDocument(vlax-get-acad-object)))

如何只清理某类对象,比例如:只清理标注 ...

(dictremove (namedobjdict) "ACAD_DGNLINESTYLECOMP")                ;清理线型
其他的不太清楚

20060510412

又学到一招，多谢大佬分享。

Klein

ㄘ丶转裑ㄧ灬 发表于 2021-6-18 08:40

学习了，一直也在想关闭了回显，但是puge还是会显示命令行

popsun

学习学习。vl命令好多，都不知道哪些功能可以直接拿来用