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

dg_lcl

;;; --------------------------------------------------------------------------;
;;; DELLAYER.LSP
;;;   Copyright (C) 1990 by Autodesk, Inc.
;;;  
;;;   Permission to use, copy, modify, and distribute this software and its
;;;   documentation for any purpose and without fee is hereby granted.  
;;;
;;;   THIS SOFTWARE IS PROVIDED "AS IS" WITHOUT EXPRESS OR IMPLIED WARRANTY.
;;;   ALL IMPLIED WARRANTIES OF FITNESS FOR ANY PARTICULAR PURPOSE AND OF
;;;   MERCHANTABILITY ARE HEREBY DISCLAIMED.
;;;
;;; --------------------------------------------------------------------------;
;;; DESCRIPTION
;;;
;;;   This program deletes all entities on specified layers.  Wildcards
;;;   can be specified.
;;;
;;; --------------------------------------------------------------------------;

(defun dellerr (s)                    ; If an error (such as CTRL-C) occurs
                                      ; while this command is active...
  (if (/= s "Function cancelled")
    (princ (strcat "\nError: " s))
  )
  (setq S nil)                        ; Free selection-set if any
  (setvar "CMDECHO" ocmd)             ; Restore saved mode
  (setq *error* olderr)               ; Restore old *error* handler
  (princ)
)

;;; ------------------------- Main Program -----------------------------------;

(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 "")            ; Delete 'em!
    (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)
)

;;; --------------------------------------------------------------------------;

围棋

请楼主详细讲讲功能及用法。让大家看看是否实用。

小胡子

对对, 是不是把一个大文件的CAD转成小文件而又不减少内容?  如果是这样很想知道

njsabc

是不是把一个大文件的CAD转成小文件而又不减少内容? 如果是这样很想知道

JOSDENNIS

樓主的程序好象只是刪除用戶輸入哪個層就刪去哪個層的實體. 可以說得是精簡DWG圖呀? 願聞其詳.

yaya-54

PURGE不是就可以减少不用的层或块吗。你这个到底是减少什么东西？

xubiyang

看了半天都看不懂《郁闷》！！！

我想有个家

有点迷糊，不太懂，说详细点。

tongtong423

能否举个实列来说明啊
谢谢了

夏日凉爽

不错

ubzbh

我看只是删去指定层的实体而已，并不是什么精简图形。

海豚

那可能会删除我们有用的东西？这可不行。

zlmzj

妈妈的，我建议扣班长的分！
弄个什么东西，好象很高级的一样，真的想小，到不如用rar压一下。还有什么办法？

kongb110388

能不能说明的更详细一些，我一直用PURGE，如果真的能减少很多，那在向PRN传输的时侯，尤其是地形图，更能节省时间！

大虾萧秋水

到底是干什么用的啊？楼主怎么不说