删除空白layouts

Free-Lancer

http://www.jtbworld.com/

1. (defun c:DeleteEmptyLayouts (/ layouts layout i)
   
2.   (vl-load-com)
   
3.   (setq        i        0
   
4.         layouts        (vla-get-Layouts
   
5.                   (vla-get-activedocument (vlax-get-acad-object))
   
6.                 )
   
7.   )
   
8.   (if (> (vla-get-count layouts) 2)
   
9.     (vlax-for layout layouts
   
10.       (if (= (vla-get-ModelType layout) :vlax-false)
    
11.         (if (< (vla-get-count (vla-get-block layout)) 2)
    
12.           (progn (princ (strcat "\n" (vla-get-name layout) " deleted"))
    
13.                  (setq i (1+ i))
    
14.                  (vla-delete layout)
    
15.           )
    
16.         )
    
17.       )
    
18.     )
    
19.   )
    
20.   (cond        ((> i 1) (princ (strcat "\n" (itoa i) " layouts deleted")))
    
21.         ((= i 0) (princ "\nNo layouts deleted"))
    
22.   )
    
23.   (princ)
    
24. )

(defun c:DeleteEmptyLayouts (/ layouts layout i)<br />   (vl-load-com)<br />   (setq        i        0<br />         layouts        (vla-get-Layouts<br />                   (vla-get-activedocument (vlax-get-acad-object))<br />                 )<br />   )<br />   (if (> (vla-get-count layouts) 2)<br />     (vlax-for layout layouts<br />       (if (= (vla-get-ModelType layout) :vlax-false)<br />         (if (< (vla-get-count (vla-get-block layout)) 2)<br />           (progn (princ (strcat "\n" (vla-get-name layout) " deleted"))<br />                  (setq i (1+ i))<br />                  (vla-delete layout)<br />           )<br />         )<br />       )<br />     )<br />   )<br />   (cond        ((> i 1) (princ (strcat "\n" (itoa i) " layouts deleted")))<br />         ((= i 0) (princ "\nNo layouts deleted"))<br />   )<br />   (princ)<br /> )

lucas3

乱了：

1. (defun c:tt (/ layouts layout i)

(defun c:tt (/ layouts layout i)

以前见过，这个感觉没什么意义，

清风明月10

谢谢楼主的奉献！

yhly555

能不能删除空格？