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

yoyrtweq

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



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

Andyhon

(defun  C:MyCmd () ......)

lisp爱好者

以下命令为tt，可以自己修改

2. [code=lisp];;打开超大图纸，将此文件直接拖入cad即可。
   
3. (defun c:tt ()
   
4.   (setvar "cmdecho" 0)
   
5.   (dictremove (namedobjdict) "ACAD_DGNLINESTYLECOMP")
   
6.   (command "_.qsave")
   
7.   (command "_audit" "y")
   
8.   (command "_purge" "all" "" "n")
   
9.   (command "_.qsave")
   
10.   (setvar "cmdecho" 1)
    
11.   (princ)
    
12. )

[code=lisp];;打开超大图纸，将此文件直接拖入cad即可。<br /> (defun c:tt ()<br />   (setvar "cmdecho" 0)<br />   (dictremove (namedobjdict) "ACAD_DGNLINESTYLECOMP")<br />   (command "_.qsave")<br />   (command "_audit" "y")<br />   (command "_purge" "all" "" "n")<br />   (command "_.qsave")<br />   (setvar "cmdecho" 1)<br />   (princ)<br /> )

[/code]

龙__平

学习下  多多拜读

mikewolf2k

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

yoyrtweq

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

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

yoyrtweq

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

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

yoyrtweq

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

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

mikewolf2k

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

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

Helix.xu

如何判断  需要PU的次数，多层镶套块  要清理好几次。