[编程交流] 删除LISP中的图层

(entdel (tblobjname "LAYER" "Layerx"))

(vl-catch-all-apply
   'vla-Delete
   (list (vlax-ename->vla-object (tblobjname "LAYER" "Layerx"))
   )
 )

(defun DeleteLayer(Name / layCol dLay oVal)
 (vl-load-com)
 (if
   (and
     (/= Name "0")
     (/= (strcat Name)(getvar "CLAYER"))
     ); end or
   (progn
     (setq layCol(vla-get-Layers
            (vla-get-ActiveDocument
              (vlax-get-acad-object))))
      (if(vl-catch-all-error-p
          (setq dLay(vl-catch-all-apply 'vla-Item
     (list layCol(strcat Name)))))
        (princ "\nLayer does not exist! ")
          (if(vl-catch-all-error-p
      (vl-catch-all-apply 'vla-Delete
         (list dLay)))
     (princ "\nCan't delete layer in use! ")
   (setq oVal T)
 ); end if
       ); end if
     ); end progn
   (princ "\nCan't delete active layer or layer "0"! ")
  ); end if
 oVal
); end of DeleteLayer

(defun DeleteLayer(Name / layCol dLay oVal)
 (vl-load-com)
 (if
   (and
     (/= Name "0") ; [b][color=Red]Check its not Layer 0[/color][/b]
     (/= (strcat Name)(getvar "CLAYER")) ; [b][color=Red]Check its not Current Layer[/color][/b]
     ); end or
   (progn
     (setq layCol(vla-get-Layers
           (vla-get-ActiveDocument
             (vlax-get-acad-object)))) ; [b][color=Red]Retrieve Current Layer Collection[/color][/b]
      (if(vl-catch-all-error-p
          (setq dLay(vl-catch-all-apply 'vla-Item
        (list layCol(strcat Name))))) ; [b][color=Red]Retrieve Layer Object Name from Layer Collection?[/color][/b][color=Red][i] [b][color=SeaGreen](same as tblobjname?)[/color][/b][/i][/color]
        (princ "\nLayer does not exist! ") ; [b][color=Red]If [i][color=SeaGreen]vl-catch-all-error-p[/color][/i] returns [color=Blue]T[/color], then Layer Doesn't Exist[/color][/b]
          (if(vl-catch-all-error-p
         (vl-catch-all-apply 'vla-Delete
            (list dLay))) [b][color=Red]; If Possible, Delete the Layer[/color][/b]
        (princ "\nCan't delete layer in use! ") ; [b][color=Red]If[/color][/b] [b][i][color=SeaGreen]vl-catch-all-error-p[/color][/i][color=ReD] returns[/color] [color=Blue]T[/color][color=Red], then Layer Cannot be Deleted. [/color][/b]
      (setq oVal T)
    ); end if
       ); end if
     ); end progn
   (princ "\nCan't delete active layer or layer "0"! ")
  ); end if
 oVal
); end of DeleteLayer

Command: (setq Val(vl-catch-all-apply '/ (list 2 0)))
#<%catch-all-apply-error%>
Command: (vl-catch-all-error-p Val)
T
Command: (vl-catch-all-error-message Val)
"divide by zero"