jinan1913 发表于 2021-6-17 14:47:44

如何设置purge不回显

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

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

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

cq4920 发表于 2021-6-18 14:52:23

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


有点卡呢？

mokson 发表于 2021-6-19 19:00:35

学习一下。

ㄘ丶转裑ㄧ灬 发表于 2021-6-21 08:29:35

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

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

crtrccrt 发表于 2021-6-21 09:47:25

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

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

竹天 发表于 2021-6-21 15:32:31

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

如何只清理某类对象,比例如:只清理标注 ...
(dictremove (namedobjdict) "ACAD_DGNLINESTYLECOMP")                ;清理线型
其他的不太清楚

20060510412 发表于 2022-6-26 07:51:17

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

Klein 发表于 2023-2-3 22:16:56

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


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

popsun 发表于 2023-5-5 16:04:10

学习学习。vl命令好多，都不知道哪些功能可以直接拿来用
页: [1] 2
查看完整版本: 如何设置purge不回显