yoyrtweq 发表于 2018-8-20 16:17:52

如何给"清理超大图纸"这个插件加上个命令

;打开超大图纸，将此文件直接拖入cad即可。
(setvar "cmdecho" 0)
(dictremove (namedobjdict) "ACAD_DGNLINESTYLECOMP")
(command "_.qsave")
(command "_audit" "y")
(command "_purge" "all" "" "n")
(command "_.qsave")
(setvar "cmdecho" 1)
(princ)



以上是源码,也是在明经下载的.我想给它加个快捷键,但修改后出错,运行不了,哪位能帮我修改下

Andyhon 发表于 2018-8-20 19:48:16

(defunC:MyCmd () ......)

lisp爱好者 发表于 2018-8-20 21:44:41

本帖最后由 lisp爱好者 于 2018-8-20 21:46 编辑

以下命令为tt，可以自己修改;;打开超大图纸，将此文件直接拖入cad即可。
(defun c:tt ()
(setvar "cmdecho" 0)
(dictremove (namedobjdict) "ACAD_DGNLINESTYLECOMP")
(command "_.qsave")
(command "_audit" "y")
(command "_purge" "all" "" "n")
(command "_.qsave")
(setvar "cmdecho" 1)
(princ)
)

龙__平 发表于 2018-8-21 02:03:35

学习下多多拜读

mikewolf2k 发表于 2018-8-21 09:25:14

建议多PU几次，有的要PU几次才能清理干净。

yoyrtweq 发表于 2018-8-22 07:07:30

Andyhon 发表于 2018-8-20 19:48
(defunC:MyCmd () ......)

哥,我想问下,你们是怎么学习的,我想学,

yoyrtweq 发表于 2018-8-22 07:08:20

lisp爱好者 发表于 2018-8-20 21:44
以下命令为tt，可以自己修改

哥,我想问下,你们是怎么学习开发插件的,

yoyrtweq 发表于 2018-8-22 07:08:45

mikewolf2k 发表于 2018-8-21 09:25
建议多PU几次，有的要PU几次才能清理干净。

PU麻烦,这个一键就能全清了

mikewolf2k 发表于 2018-8-22 08:55:00

yoyrtweq 发表于 2018-8-22 07:08
PU麻烦,这个一键就能全清了

你这个就是调用PU，PU一次清理不干净的，你这个一样清理不干净。

Helix.xu 发表于 2018-9-26 17:59:51

如何判断需要PU的次数，多层镶套块要清理好几次。
页: [1]
查看完整版本: 如何给"清理超大图纸"这个插件加上个命令