删除空白配置

LUCAS

2. 
   
3. 删除空白配置
   
4. ;;;程序设计:赖云龙;;;
   
5. ;;;---------------;;;
   
6. (defun C:LAYOUT_DEL (/ HOLDECHO OUTLIST SL N LAYOUT_NAME A)
   
7.   (setq HOLDECHO (getvar "CMDECHO"))
   
8.   (setvar "CMDECHO" 0)
   
9.   (setq OUTLIST (LAYOUTLIST))
   
10.   (setq SL (length OUTLIST))
    
11.   (setq N 0)
    
12.   (repeat SL
    
13.     (setq LAYOUT_NAME (nth N OUTLIST))
    
14.     (setq A (ssget "X" (list (cons 410 LAYOUT_NAME))))
    
15.     (if        (or (= NIL A) (= (sslength A) 1))
    
16.       (command "_.layout" "delete" LAYOUT_NAME)
    
17.     )
    
18.     (setq N (1+ N))
    
19.   )
    
20.   (setvar "CMDECHO" HOLDECHO)
    
21.   (princ)
    
22. )
    

<br /> 删除空白配置<br /> ;;;程序设计:赖云龙;;;<br /> ;;;---------------;;;<br /> (defun C:LAYOUT_DEL (/ HOLDECHO OUTLIST SL N LAYOUT_NAME A)<br />   (setq HOLDECHO (getvar "CMDECHO"))<br />   (setvar "CMDECHO" 0)<br />   (setq OUTLIST (LAYOUTLIST))<br />   (setq SL (length OUTLIST))<br />   (setq N 0)<br />   (repeat SL<br />     (setq LAYOUT_NAME (nth N OUTLIST))<br />     (setq A (ssget "X" (list (cons 410 LAYOUT_NAME))))<br />     (if        (or (= NIL A) (= (sslength A) 1))<br />       (command "_.layout" "delete" LAYOUT_NAME)<br />     )<br />     (setq N (1+ N))<br />   )<br />   (setvar "CMDECHO" HOLDECHO)<br />   (princ)<br /> )<br />

申士

wblock一下就好了，还写什么程序呀！

LUCAS

你可知道wblock后只留下甚么????
Dimstyle, textstyle ,layer…….很多都会不见了
而且wblock能从多个配置(布局)中选物吗???

秋枫

这个在autocad2000以上的版本不好。

最初由 申士 发布
[B]wblock一下就好了，还写什么程序呀！ [/B]