iCAx开思网

标题: R14自动清理多余图素的程序 [打印本页]

作者: a7web 时间: 2003-8-22 09:38
标题: R14自动清理多余图素的程序
大家在作图时，要引用各种外部图素、块。结果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 )

)

作者: 刻录机 时间: 2003-8-22 13:34
顶你！
资源共享，怎不先通知我啊？

作者: iwzw 时间: 2003-8-24 14:57
good

欢迎光临 iCAx开思网 (https://www.icax.net/)