[弹指神通]：精简你的DWG文件

maplesu

个人认为，其实没有什么好的办法来减少图形的大小，用PURGE可以去掉一些多余的
不过现在2004的格式的文件要比2000小的多。

machenghua

看不懂啊,听起来好象又有用,怎么办呢?说详细一点啦,简明化些

longinmymind

还以为是什么好东西了，

yanghui0216

我估计楼主也不怎么明白，乱贴帖子！

xiaodonglee

和purge有什么区别

lixuedong

我来帮楼主来说明一下。

(defun C:DELLAYER (/ olderr ocmd L S)  .............................  命令名为删除层
(setq olderr *error*
*error* dellerr)                                            
(setq ocmd (getvar "CMDECHO"))
(setvar "CMDECHO" 0)
(setq L (strcase (getstring "\nLayer(s) to delete: "))) ...........得到删除层名

;; Get all entities on layer(s)
(setq S (ssget "X" (list (cons 8 L))))  .............................选择层上的图元
(if S
(command "ERASE" S "")  .......................................... 删除层上的图元
(princ "Layer empty or not a valid layer name.")
)
(setq S nil) ; Free selection-set
(setvar "CMDECHO" ocmd) ; Restore saved mode
(setq *error* olderr) ; Restore old *error* handler
(princ)
)



====================================================
所以楼主的程序是通过删除层上的图元达到“弹指一灰_精简你的DWG文件”

viviczh

如果是用天正6版本以上画图的话，要用图形输出成天正3的图形格式，这样小非常多

zpjwxm

PURGE几下,不就精简了吗