关于Layer State 的工具和处理函数

Lisphk

执行state，可以对layer state进行保存、恢复、读入、输出、删除等操作。

1. (defun C:State (/ tmp)
   
2.   (initget "I X S R D")
   
3.   (setq
   
4.     tmp        (getkword
   
5.           "\n* Layer States: [Import eXport - Save Restore - Delete]"
   
6.         )
   
7.   )
   
8.   (initget 7)
   
9.   (cond        ((= tmp "I") (LSImportIT))
   
10.         ((= tmp "X") (LSXportIT))
    
11.         ((= tmp "S") (LSSaveIT))
    
12.         ((= tmp "R") (LSRestoreIT))
    
13.         ((= tmp "D") (LSDeleteIT))
    
14.   )
    
15.   (princ)
    
16. )
    
17. ;;;
    
18. (defun ARCH:State (/ tmp)
    
19.   (setq tmp (layerstate-has (getvar "ctab")))
    
20.   (if (= tmp T)
    
21.     (LSRestoreIT)
    
22.   )
    
23.   (princ)
    
24. )
    
25. ;;;
    
26. (ARCH:State)                                ;place in your acaddoc file
    
27. 
    
28. 
    
29. 
    
30. (defun LSImportIT (/ tmp)
    
31.   (setq        tmp (strcat (getvar 'dwgprefix)
    
32.                     (vl-string-right-trim ".dwg" (getvar 'dwgname))
    
33.                     " ctab-"
    
34.                     (getvar "ctab")
    
35.                     ".las"
    
36.             )
    
37.   )
    
38.   (if (/= tmp nil)
    
39.     (progn (princ (strcat "\n* Importing LayerStates to: " tmp))
    
40.            (command "mspace")
    
41.            (layerstate-import tmp)
    
42.            (command "pspace")
    
43.     )
    
44.   )
    
45.   (princ)
    
46. )
    
47. ;;;
    
48. (defun LSXportIT (/ tmp)
    
49.   (setq        tmp (strcat (getvar 'dwgprefix)
    
50.                     (vl-string-right-trim ".dwg" (getvar 'dwgname))
    
51.                     " ctab-"
    
52.                     (getvar "ctab")
    
53.                     ".las"
    
54.             )
    
55.   )
    
56.   (princ (strcat "\n* Exporting Layer States to: " tmp))
    
57.   (command "mspace")
    
58.   (layerstate-export (getvar "ctab") tmp)
    
59.   (command "pspace")
    
60.   (princ)
    
61. )
    
62. ;;;
    
63. (defun LSSaveIT        ()
    
64.   (princ
    
65.     (strcat "\n* Saving New Layer States to: " (getvar "ctab"))
    
66.   )
    
67.   (command "mspace")
    
68.   (layerstate-save (getvar "ctab") 255 nil)
    
69.   (command "pspace")
    
70.   (princ)
    
71. )
    
72. ;;;
    
73. (defun LSRestoreIT ()
    
74.   (princ
    
75.     (strcat "\n* Restoring Layer States from: " (getvar "ctab"))
    
76.   )
    
77.   (command "mspace")
    
78.   (layerstate-restore (getvar "ctab") nil 255)
    
79.   (command "pspace")
    
80.   (princ)
    
81. )
    
82. ;;;
    
83. (defun LSDeleteIT ()
    
84.   (princ
    
85.     (strcat "\n* Deleting Layer States from: " (getvar "ctab"))
    
86.   )
    
87.   (command "mspace")
    
88.   (layerstate-delete (getvar "ctab"))
    
89.   (command "pspace")
    
90.   (princ)
    
91. )
    
92. 
    

(defun C:State (/ tmp)<br />   (initget "I X S R D")<br />   (setq<br />     tmp        (getkword<br />           "\n* Layer States: [Import eXport - Save Restore - Delete]"<br />         )<br />   )<br />   (initget 7)<br />   (cond        ((= tmp "I") (LSImportIT))<br />         ((= tmp "X") (LSXportIT))<br />         ((= tmp "S") (LSSaveIT))<br />         ((= tmp "R") (LSRestoreIT))<br />         ((= tmp "D") (LSDeleteIT))<br />   )<br />   (princ)<br /> )<br /> ;;;<br /> (defun ARCH:State (/ tmp)<br />   (setq tmp (layerstate-has (getvar "ctab")))<br />   (if (= tmp T)<br />     (LSRestoreIT)<br />   )<br />   (princ)<br /> )<br /> ;;;<br /> (ARCH:State)                                ;place in your acaddoc file<br /> <br /> <br /> <br /> (defun LSImportIT (/ tmp)<br />   (setq        tmp (strcat (getvar 'dwgprefix)<br />                     (vl-string-right-trim ".dwg" (getvar 'dwgname))<br />                     " ctab-"<br />                     (getvar "ctab")<br />                     ".las"<br />             )<br />   )<br />   (if (/= tmp nil)<br />     (progn (princ (strcat "\n* Importing LayerStates to: " tmp))<br />            (command "mspace")<br />            (layerstate-import tmp)<br />            (command "pspace")<br />     )<br />   )<br />   (princ)<br /> )<br /> ;;;<br /> (defun LSXportIT (/ tmp)<br />   (setq        tmp (strcat (getvar 'dwgprefix)<br />                     (vl-string-right-trim ".dwg" (getvar 'dwgname))<br />                     " ctab-"<br />                     (getvar "ctab")<br />                     ".las"<br />             )<br />   )<br />   (princ (strcat "\n* Exporting Layer States to: " tmp))<br />   (command "mspace")<br />   (layerstate-export (getvar "ctab") tmp)<br />   (command "pspace")<br />   (princ)<br /> )<br /> ;;;<br /> (defun LSSaveIT        ()<br />   (princ<br />     (strcat "\n* Saving New Layer States to: " (getvar "ctab"))<br />   )<br />   (command "mspace")<br />   (layerstate-save (getvar "ctab") 255 nil)<br />   (command "pspace")<br />   (princ)<br /> )<br /> ;;;<br /> (defun LSRestoreIT ()<br />   (princ<br />     (strcat "\n* Restoring Layer States from: " (getvar "ctab"))<br />   )<br />   (command "mspace")<br />   (layerstate-restore (getvar "ctab") nil 255)<br />   (command "pspace")<br />   (princ)<br /> )<br /> ;;;<br /> (defun LSDeleteIT ()<br />   (princ<br />     (strcat "\n* Deleting Layer States from: " (getvar "ctab"))<br />   )<br />   (command "mspace")<br />   (layerstate-delete (getvar "ctab"))<br />   (command "pspace")<br />   (princ)<br /> )<br /> <br />

Lisphk

1. (defun DeleteLayerStates (/)
   
2.   ;; Delete all layer states
   
3.   ;; Ex: (DeleteLayerStates)
   
4.   (vl-catch-all-apply
   
5.     '(lambda ()
   
6.        (vla-remove
   
7.          (vla-getextensiondictionary
   
8.            (vla-get-layers
   
9.              (vla-get-activedocument (vlax-get-acad-object))
   
10.            )
    
11.          )
    
12.          "ACAD_LAYERSTATES"
    
13.        )
    
14.      )
    
15.   )
    
16.   (princ)
    
17. )
    

(defun DeleteLayerStates (/)<br />   ;; Delete all layer states<br />   ;; Ex: (DeleteLayerStates)<br />   (vl-catch-all-apply<br />     '(lambda ()<br />        (vla-remove<br />          (vla-getextensiondictionary<br />            (vla-get-layers<br />              (vla-get-activedocument (vlax-get-acad-object))<br />            )<br />          )<br />          "ACAD_LAYERSTATES"<br />        )<br />      )<br />   )<br />   (princ)<br /> )<br />

删除所有的Layer State

qqqincccken

謝謝大過年的學習了