[编程交流] 用于删除特定

(defun c:test nil
 (LM:DeleteLayersIf "*")
 (princ)
)
;;-----------------=={ Delete Layers If }==-------------------;;
;;                                                            ;;
;;  Deletes layers in a drawing if the layer name matches a   ;;
;;  wildcard string                                           ;;
;;------------------------------------------------------------;;
;;  Author: Lee Mac, Copyright © 2010 - www.lee-mac.com       ;;
;;------------------------------------------------------------;;
;;  Arguments:                                                ;;
;;  wcstr - wildcard string to identify layers to delete      ;;
;;------------------------------------------------------------;;
(defun LM:DeleteLayersIf ( wcstr / layers locked ss )
 ;; © Lee Mac 2010
 (setq layers
   (vla-get-layers
     (vla-get-ActiveDocument
       (vlax-get-acad-object)
     )
   )
 )
 (foreach x (setq locked (LM:GetLocked layers))
   (vla-put-lock x :vlax-false)
 )
 (setvar 'CLAYER "0")
 (if (setq ss (ssget "_X" (list (cons 8 wcstr))))
   (
     (lambda ( i / e )
       (while (setq e (ssname ss (setq i (1+ i))))
         (entdel e)
       )
     )
     -1
   )
 )
 (vlax-for l layers
   (if (wcmatch (vla-get-name l) wcstr)
     (LM:CatchApply vla-delete (list l))
   )
 )
 (foreach x locked
   (LM:CatchApply vla-put-lock (list x :vlax-true))
 )
 (princ)
)
;;-----------------=={ Get Locked Layers }==------------------;;
;;                                                            ;;
;;  Returns a list of VLA Layer Objects locked within the     ;;
;;  current drawing                                           ;;
;;------------------------------------------------------------;;
;;  Author: Lee Mac, Copyright © 2010 - www.lee-mac.com       ;;
;;------------------------------------------------------------;;
;;  Arguments:                                                ;;
;;  layers - the layers collection for the current drawing    ;;
;;------------------------------------------------------------;;
;;  Returns:  List of VLA Layer Objects, else nil             ;;
;;------------------------------------------------------------;;
(defun LM:GetLocked ( layers )
 ;; © Lee Mac 2010
 (vlax-for l layers
   (if (eq :vlax-true (vla-get-lock l))
     (setq locked (cons l locked))
   )
 )
 locked
)
;;---------------------=={ Catch Apply }==--------------------;;
;;                                                            ;;
;;  Applies a function to a list of arguments and catches     ;;
;;  an exception.                                             ;;
;;------------------------------------------------------------;;
;;  Author: Lee Mac, Copyright © 2010 - www.lee-mac.com       ;;
;;------------------------------------------------------------;;
;;  Arguments:                                                ;;
;;  foo  - function to be applied                             ;;
;;  args - list of arguments to be supplied to foo            ;;
;;------------------------------------------------------------;;
;;  Returns:  Result of applying foo, else nil if exception   ;;
;;------------------------------------------------------------;;
(defun LM:CatchApply ( foo args / result )
 ;; © Lee Mac 2010
 (if
   (not
     (vl-catch-all-error-p
       (setq result
         (vl-catch-all-apply (function foo) args)
       )
     )
   )
   result
 )
)