切换快捷键图层时检查图层是否存在，如果不存在则按给定的图层颜色、线型等创建相...

小毛草

;;;;;;;;切换图层时检查图层是否存在，如果不存在则按给定的图层颜色、线型等创建相应图层
(defun create-layer-if-not-exists (layer-name color linetype)
  (if (not (tblsearch "LAYER" layer-name))
    (progn
      (entmake (list
                 (cons 0 "LAYER")

2. ;;;;;;;;切换图层时检查图层是否存在，如果不存在则按给定的图层颜色、线型等创建相应图层
   
3. 
   
4. (defun create-layer-if-not-exists (layer-name color linetype)
   
5. 
   
6.   (if (not (tblsearch "LAYER" layer-name))
   
7. 
   
8.     (progn
   
9. 
   
10.       (entmake (list
    
11. 
    
12.                  (cons 0 "LAYER")
    
13. 
    
14.                  (cons 100 "AcDbSymbolTableRecord")
    
15. 
    
16.                  (cons 100 "AcDbLayerTableRecord")
    
17. 
    
18.                  (cons 2 layer-name)
    
19. 
    
20.                  (cons 70 0)
    
21. 
    
22.                  (cons 62 color)
    
23. 
    
24.                  (cons 6 linetype)
    
25. 
    
26.                ))
    
27. 
    
28.       (princ (strcat "\n图层 " layer-name " 已创建。"))
    
29. 
    
30.     )
    
31. 
    
32.   )
    
33. 
    
34. )
    
35. 
    
36. 
    
37. 
    
38. (defun set-layer (layer-name color linetype)
    
39. 
    
40.   (create-layer-if-not-exists layer-name color linetype)
    
41. 
    
42.   (setvar "clayer" layer-name)
    
43. 
    
44.   (princ (strcat "\n已经切换到：" layer-name))
    
45. 
    
46. )
    
47. 
    
48. 
    
49. 
    
50. (defun c:F1 () (set-layer "A-ELEV-LIN1-立面外轮廓线" 42 "Continuous"))
    
51. 
    
52. (defun c:F2 () (set-layer "A-ELEV-LIN2-立面中轮廓线" 2 "Continuous"))
    
53. 
    
54. (defun c:F3 () (set-layer "A-ELEV-LIN3-立面细轮廓线" 153 "Continuous"))
    
55. 
    
56. (defun c:F4 () (set-layer "A-FURN-绘图层" 2 "Continuous"))
    
57. 
    
58. (defun c:F5 () (set-layer "0-PM-固定家具" 251 "Continuous"))
    
59. 
    
60. (defun c:F6 () (set-layer "Area【区域轮廓不打印】" 250 "Continuous"))
    
61. 
    
62. (defun c:FFC () (set-layer "DOTE" 1 "dote"))
    
63. 
    
64. (defun c:FFD () (set-layer "DOOR" 4 "Continuous"))
    
65. 
    
66. (defun c:FFDD () (set-layer "DOOR-NAME" 4 "Continuous"))
    
67. 
    
68. (defun c:FFW () (set-layer "WINDOW" 4 "Continuous"))
    
69. 
    
70. (defun c:FFWW () (set-layer "WINDOW_TEXT" 4 "Continuous"))
    
71. 
    
72. (defun c:FW () (set-layer "WALL" 42 "Continuous"))
    
73. 
    
74. (defun c:FFX () (set-layer "0-PM-建筑面积计算" 5 "Continuous"))
    
75. 
    
76. (defun c:D1 () (set-layer "0-DM-地面填充" 251 "Continuous"))
    
77. 
    
78. (defun c:D2 () (set-layer "0-DM-地面尺寸标注" 3 "Continuous"))
    
79. 
    
80. (defun c:D3 () (set-layer "0-DM-地坪分割线" 251 "Continuous"))
    
81. 
    
82. (defun c:T1 () (set-layer "0-TF-天花布置" 251 "Continuous"))
    
83. 
    
84. (defun c:T2 () (set-layer "0-TF-天花尺寸标注" 3 "Continuous"))
    
85. 
    
86. (defun c:T3 () (set-layer "0-TF-天花灯具布置" 6 "Continuous"))

;;;;;;;;切换图层时检查图层是否存在，如果不存在则按给定的图层颜色、线型等创建相应图层<br /> <br /> (defun create-layer-if-not-exists (layer-name color linetype)<br /> <br />   (if (not (tblsearch "LAYER" layer-name))<br /> <br />     (progn<br /> <br />       (entmake (list<br /> <br />                  (cons 0 "LAYER")<br /> <br />                  (cons 100 "AcDbSymbolTableRecord")<br /> <br />                  (cons 100 "AcDbLayerTableRecord")<br /> <br />                  (cons 2 layer-name)<br /> <br />                  (cons 70 0)<br /> <br />                  (cons 62 color)<br /> <br />                  (cons 6 linetype)<br /> <br />                ))<br /> <br />       (princ (strcat "\n图层 " layer-name " 已创建。"))<br /> <br />     )<br /> <br />   )<br /> <br /> )<br /> <br /> <br /> <br /> (defun set-layer (layer-name color linetype)<br /> <br />   (create-layer-if-not-exists layer-name color linetype)<br /> <br />   (setvar "clayer" layer-name)<br /> <br />   (princ (strcat "\n已经切换到：" layer-name))<br /> <br /> )<br /> <br /> <br /> <br /> (defun c:F1 () (set-layer "A-ELEV-LIN1-立面外轮廓线" 42 "Continuous"))<br /> <br /> (defun c:F2 () (set-layer "A-ELEV-LIN2-立面中轮廓线" 2 "Continuous"))<br /> <br /> (defun c:F3 () (set-layer "A-ELEV-LIN3-立面细轮廓线" 153 "Continuous"))<br /> <br /> (defun c:F4 () (set-layer "A-FURN-绘图层" 2 "Continuous"))<br /> <br /> (defun c:F5 () (set-layer "0-PM-固定家具" 251 "Continuous"))<br /> <br /> (defun c:F6 () (set-layer "Area【区域轮廓不打印】" 250 "Continuous"))<br /> <br /> (defun c:FFC () (set-layer "DOTE" 1 "dote"))<br /> <br /> (defun c:FFD () (set-layer "DOOR" 4 "Continuous"))<br /> <br /> (defun c:FFDD () (set-layer "DOOR-NAME" 4 "Continuous"))<br /> <br /> (defun c:FFW () (set-layer "WINDOW" 4 "Continuous"))<br /> <br /> (defun c:FFWW () (set-layer "WINDOW_TEXT" 4 "Continuous"))<br /> <br /> (defun c:FW () (set-layer "WALL" 42 "Continuous"))<br /> <br /> (defun c:FFX () (set-layer "0-PM-建筑面积计算" 5 "Continuous"))<br /> <br /> (defun c:D1 () (set-layer "0-DM-地面填充" 251 "Continuous"))<br /> <br /> (defun c:D2 () (set-layer "0-DM-地面尺寸标注" 3 "Continuous"))<br /> <br /> (defun c:D3 () (set-layer "0-DM-地坪分割线" 251 "Continuous"))<br /> <br /> (defun c:T1 () (set-layer "0-TF-天花布置" 251 "Continuous"))<br /> <br /> (defun c:T2 () (set-layer "0-TF-天花尺寸标注" 3 "Continuous"))<br /> <br /> (defun c:T3 () (set-layer "0-TF-天花灯具布置" 6 "Continuous"))

                 (cons 100 "AcDbSymbolTableRecord")
                 (cons 100 "AcDbLayerTableRecord")
                 (cons 2 layer-name)
                 (cons 70 0)
                 (cons 62 color)
                 (cons 6 linetype)
               ))
      (princ (strcat "\n图层 " layer-name " 已创建。"))
    )
  )
)


(defun set-layer (layer-name color linetype)
  (create-layer-if-not-exists layer-name color linetype)
  (setvar "clayer" layer-name)
  (princ (strcat "\n已经切换到：" layer-name))
)


(defun c:F1 () (set-layer "A-ELEV-LIN1-立面外轮廓线" 42 "Continuous"))
(defun c:F2 () (set-layer "A-ELEV-LIN2-立面中轮廓线" 2 "Continuous"))
(defun c:F3 () (set-layer "A-ELEV-LIN3-立面细轮廓线" 153 "Continuous"))
(defun c:F4 () (set-layer "A-FURN-绘图层" 2 "Continuous"))
(defun c:F5 () (set-layer "0-PM-固定家具" 251 "Continuous"))
(defun c:F6 () (set-layer "Area【区域轮廓不打印】" 250 "Continuous"))
(defun c:FFC () (set-layer "DOTE" 1 "dote"))
(defun c:FFD () (set-layer "DOOR" 4 "Continuous"))
(defun c:FFDD () (set-layer "DOOR-NAME" 4 "Continuous"))
(defun c:FFW () (set-layer "WINDOW" 4 "Continuous"))
(defun c:FFWW () (set-layer "WINDOW_TEXT" 4 "Continuous"))
(defun c:FW () (set-layer "WALL" 42 "Continuous"))
(defun c:FFX () (set-layer "0-PM-建筑面积计算" 5 "Continuous"))
(defun c:D1 () (set-layer "0-DM-地面填充" 251 "Continuous"))
(defun c:D2 () (set-layer "0-DM-地面尺寸标注" 3 "Continuous"))
(defun c:D3 () (set-layer "0-DM-地坪分割线" 251 "Continuous"))
(defun c:T1 () (set-layer "0-TF-天花布置" 251 "Continuous"))
(defun c:T2 () (set-layer "0-TF-天花尺寸标注" 3 "Continuous"))
(defun c:T3 () (set-layer "0-TF-天花灯具布置" 6 "Continuous"))

zmzk

收藏了！有一天可能会用到

panliang9

谢谢楼主分享，很不错！！！

moranyuyan

谢谢分享