DWG图纸清理lsp

gble119

错误: 输入的字符串有缺陷  CAD2020

小毛草

2. ;;;;;;;;;;;;;;;;;;;;;;;;;;;清理图纸
   
3. (defun c:cca ()
   
4. (setvar "cmdecho" 0)
   
5. (dictremove (namedobjdict) "ACAD_DGNLINESTYLECOMP")
   
6. (command "-scalelistedit" "reset" "y" "e")
   
7. (command "_purge" "all" "" "n")
   
8. (command "audit" "y")
   
9. (setvar "cmdecho" 1)
   
10. (princ)
    
11. )

;;;;;;;;;;;;;;;;;;;;;;;;;;;清理图纸<br /> (defun c:cca ()<br /> (setvar "cmdecho" 0)<br /> (dictremove (namedobjdict) "ACAD_DGNLINESTYLECOMP")<br /> (command "-scalelistedit" "reset" "y" "e")<br /> (command "_purge" "all" "" "n")<br /> (command "audit" "y")<br /> (setvar "cmdecho" 1)<br /> (princ)<br /> )

用我这个吧，包治百病！

xxyyzzlg

小毛草 发表于 2024-7-9 15:28
用我这个吧，包治百病！

感谢分享，收藏了

taiwanfox

好東西，謝謝分享，感謝!!!