R14自动清理多余图素的程序

a7web

大家在作图时，要引用各种外部图素、块。结果DWG文件长得很肥大，一个10M的文件，其中有用的图素其实不多。AutoCAD其实已经提供了一个快速清理这些无用元素的方法，就是用wblock。
我很早以前就用wblock命令原理写过一个自动清理多余图素的程序，虽然只能在R14中运行，但还是贴出来，抛砖引玉。
  
;clear.lsp
;清理无用块程序
;开发者:向志奇
;文件建立时间:1999/3/5
;文件修改时间:1999/3/30
  
(defun c:clear( / file_name file_path name )
(if (= (getvar "dwgtitled") 0)
   (progn
     (alert "   文件还没有命名！\n请先命名再清理无用图元！\n        OK!")
     (exit)
   )  
   )
(setq file_name (getvar "dwgname"))
(setq file_path (getvar "dwgprefix"))
(setq name (strcat file_path file_name) )
(command "wblock" name "y" "*")
(command "open" "y" name)
(princ "\n OK! 无用块清理完毕!")
(princ )
  
)

iwzw

刻录机