[原创]： 图层状态 保存/恢复工具

梦断江南

命令行方式的：-）

6分钟

梦，是不是该放在程序库论坛里？

cy956

歹人哪，夜半有人来打劫.....

梦断江南

：-{} 要守住程序库论坛这一片净土，不能随便灌水，包括我自己
进程序库的必须是经得起考验的程序版本。

CY956:你的话很逗：-）

6分钟

同意梦话。[包括： “CY956:你的话很逗：-）”]

CY兄，此举目的是为了方便大家找[解决方法]。也方便日后整理程序。多包涵。

cy956

没问题啦－－，一句玩笑话。


为了不被说成是灌水，提供一个灌水函数：

(defun sys－out(filt);;;filt="LAYER""LTYPE""VIEW""STYLE""BLOCK""UCS""APPID""DIMSTYLE""VPORT"
  (setq lay0(tblnext filt t)
        LAYB(list (dxf 2 lay0)))
  (WHILE (setq lay0(tblnext filt))
    (setq layb(append layb (list (dxf 2 lay0))))
  )
)

weihong0371

我怎么看不出来!望告知!

cy956

(sys－out "LAYER");;;列出当前图内的所有"LAYER"

梦断江南

2. 
   
3. ;;;lass,lasr----layer states restory 图层状态 保存/恢复工具----------------lxx.2001.4
   
4. ;;;保存图层状态
   
5. ;;laylst-图层状态表(全局); sslaylst-图层状态表长度; layln-图层状态命名; layladd-当前图层状态; laytbl-图层符号表数据
   
6. (defun c:lasv (/ sslaylst n layln m k layladd laytbl);;laylst
   
7. (princ "\n图层状态-保存工具-------用lasr恢复---------lxx.2001.4")
   
8. (if (null laylst)
   
9.   (setq laylst '()
   
10.         sslaylst nil)
    
11.   (setq sslaylst (length laylst))
    
12. )
    
13. (princ "\n已有命名:")
    
14. (if sslaylst
    
15. (foreach n laylst (princ (strcat "  "" (car n) """) ))
    
16. )
    
17. (while (= "" (setq layln (getstring t (strcat "\n*-laylst列表/<命名>:")))) );; end while
    
18. (if (= "*" layln)
    
19. (progn
    
20.   (foreach n laylst (foreach m n (print m)))
    
21.   (princ)
    
22. )
    
23. (progn
    
24.   (setq k t                                                                                 
    
25.         layladd '()                                                                        
    
26.   )                                                                                         
    
27.   (while (setq laytbl (tblnext "layer" k))                                                  
    
28.    (setq k nil                                                                              
    
29.          layladd (cons laytbl layladd)                                                      
    
30.    )                                                                                       
    
31.   )                                                                                         
    
32.   ;(textpage)                                                                                
    
33.   (princ "\n当前保存的层状态----2:图层名; 70(1)冻结(2)视口冻结(4)锁定; 62(-)关闭; 6:线形名")
    
34.   (princ (strcat "\n--------------------当前命名:" layln "--------------------"))           
    
35.   (setq layladd (cons layln layladd)                                                        
    
36.         laylst (cons layladd laylst))                                                      
    
37.   (foreach n layladd (print n))                                                                                    
    
38. )                                                                                         
    
39. );end if
    
40. (if (> (length laylst) 6)
    
41. (setq laylst (reverse laylst)
    
42.        laylst (cdr laylst);;;;最多6个存储
    
43.        laylst (reverse laylst)
    
44. )
    
45. )
    
46. (princ (strcat "\n图层状态已经保存为:" layln))(princ)
    
47. )
    
48. ;;恢复图层状态   main                                                                        
    
49. (defun c:lasr (/ i roop ix n ik);laylst                                     inc (strcat "  "" (car n) """) ))
    
50. (while (= "" (setq layln (getstring t (strcat "\n*-laylst列表/<命名>:")))) );; end while
    
51. (if (= "*" layln)
    
52. (progn
    
53.   (foreach n laylst (foreach m n (print m)))
    
54.   (princ)
    
55. )
    
56. (progn
    
57.   (setq k t                                                                                 
    
58.         layladd '()                                                                        
    
59.   )                                                                                         
    
60.   (while (setq laytbl (tblnext "layer" k))                                                  
    
61.    (setq k nil                                                                              
    
62.          layladd (cons laytbl layladd)                                                      
    
63.    )                                                                                       
    
64.   )                                                                                         
    
65.   ;(textpage)                                                                                
    
66.   (princ "\n当前保存的层状态----2:图层名; 70(1)冻结(2)视口冻结(4)锁定; 62(-)关闭; 6:线形名")
    
67.   (princ (strcat "\n--------------------当前命名:" layln "--------------------"))           
    
68.   (setq layladd (cons layln layladd)                                                        
    
69.         laylst (cons layladd laylst))                                                      
    
70.   (foreach n layladd (print n));;;;;;;;;;;;;
    
71. );end progn else
    
72. );end if
    
73. )
    
74. (princ "\nlass/lasr----(图层状态保存/恢复工具)-----lxx.2001.4")(princ)
    

<br /> ;;;lass,lasr----layer states restory 图层状态 保存/恢复工具----------------lxx.2001.4<br /> ;;;保存图层状态 <br /> ;;laylst-图层状态表(全局); sslaylst-图层状态表长度; layln-图层状态命名; layladd-当前图层状态; laytbl-图层符号表数据<br /> (defun c:lasv (/ sslaylst n layln m k layladd laytbl);;laylst<br /> (princ "\n图层状态-保存工具-------用lasr恢复---------lxx.2001.4")<br /> (if (null laylst)<br />   (setq laylst '() <br />         sslaylst nil)<br />   (setq sslaylst (length laylst))<br /> )<br /> (princ "\n已有命名:")<br /> (if sslaylst<br /> (foreach n laylst (princ (strcat "  "" (car n) """) ))<br /> )<br /> (while (= "" (setq layln (getstring t (strcat "\n*-laylst列表/<命名>:")))) );; end while<br /> (if (= "*" layln)<br /> (progn <br />   (foreach n laylst (foreach m n (print m)))<br />   (princ)<br /> )<br /> (progn <br />   (setq k t                                                                                 <br />         layladd '()                                                                         <br />   )                                                                                         <br />   (while (setq laytbl (tblnext "layer" k))                                                  <br />    (setq k nil                                                                              <br />          layladd (cons laytbl layladd)                                                      <br />    )                                                                                        <br />   )                                                                                         <br />   ;(textpage)                                                                                <br />   (princ "\n当前保存的层状态----2:图层名; 70(1)冻结(2)视口冻结(4)锁定; 62(-)关闭; 6:线形名")<br />   (princ (strcat "\n--------------------当前命名:" layln "--------------------"))           <br />   (setq layladd (cons layln layladd)                                                        <br />         laylst (cons layladd laylst))                                                       <br />   (foreach n layladd (print n))                                                                                     <br /> )                                                                                         <br /> );end if<br /> (if (> (length laylst) 6) <br /> (setq laylst (reverse laylst) <br />        laylst (cdr laylst);;;;最多6个存储<br />        laylst (reverse laylst)<br /> )<br /> )<br /> (princ (strcat "\n图层状态已经保存为:" layln))(princ)<br /> ) <br /> ;;恢复图层状态   main                                                                         <br /> (defun c:lasr (/ i roop ix n ik);laylst                                     inc (strcat "  "" (car n) """) ))<br /> (while (= "" (setq layln (getstring t (strcat "\n*-laylst列表/<命名>:")))) );; end while<br /> (if (= "*" layln)<br /> (progn <br />   (foreach n laylst (foreach m n (print m)))<br />   (princ)<br /> )<br /> (progn <br />   (setq k t                                                                                 <br />         layladd '()                                                                         <br />   )                                                                                         <br />   (while (setq laytbl (tblnext "layer" k))                                                  <br />    (setq k nil                                                                              <br />          layladd (cons laytbl layladd)                                                      <br />    )                                                                                        <br />   )                                                                                         <br />   ;(textpage)                                                                                <br />   (princ "\n当前保存的层状态----2:图层名; 70(1)冻结(2)视口冻结(4)锁定; 62(-)关闭; 6:线形名")<br />   (princ (strcat "\n--------------------当前命名:" layln "--------------------"))           <br />   (setq layladd (cons layln layladd)                                                        <br />         laylst (cons layladd laylst))                                                       <br />   (foreach n layladd (print n));;;;;;;;;;;;;<br /> );end progn else<br /> );end if<br /> )<br /> (princ "\nlass/lasr----(图层状态保存/恢复工具)-----lxx.2001.4")(princ)<br />

mmmm

我的印象中好像有一对VLA或 VLAX的函数可以直接做到

CAD_XIN

我来看看，这个好笑用不了？？？？

CAD_XIN

抱歉，打错字，想说好像用不了，只是保存查看图层状态，那么恢复的函数呢