数字切换图层

断箭

把选中的对象改到相应的图层上，无选中情况下，则图层切换

小毛草

2. ;;;自动创建常用图层
   
3. (defun c:FFF ()
   
4.   (setvar "cmdecho" 0)
   
5.   (command "layer" "m" "DOTE"  "c" "1" "" "l" "DOTE" """")
   
6.   (command "layer" "m" "WALL" "c" "42" "" "")
   
7.   (command "layer" "m" "A-ELEV-LIN1-立面外轮廓线" "c" "42" "" "")
   
8.   (command "layer" "m" "A-ELEV-LIN2-立面中轮廓线" "c" "2" "" "")
   
9.   (command "layer" "m" "A-ELEV-LIN3-立面细轮廓线" "c" "153" "" "")
   
10.   (command "layer" "m" "A-ELEV_OTHER-立面配景" "c" "153" "" "")
    
11.   (command "layer" "m" "0-PM-固定家具" "c" "251" "" "")
    
12.   (command "layer" "m" "0-PM-建筑面积计算" "c" "6" "" "")
    
13.   (command "layer" "m" "DOOR" "c" "4" "" "")
    
14.   (command "layer" "m" "DOOR-NAME" "c" "5" "" "")
    
15.   (command "layer" "m" "大样剖切线" "c" "4" "" "")
    
16.   (command "layer" "m" "WALL" "c" "42" "" "")
    
17.   (command "layer" "m" "A-FURN-绘图层" "c" "2" "" "")
    
18.   (command "layer" "m" "PUB_WINDW" "c" "7" "" "")
    
19.   (command ".layer" "p" "p" "PUB_WINDW" "")
    
20.   (command "layer" "m" "A-FURN-绘图层" "c" "2" "" "")
    
21.   (setvar "cmdecho" 1)
    
22. (princ)
    
23. )
    
24. 
    
25. ;;;自动创建常用总图图层
    
26. (defun c:FFA ()
    
27.   (setvar "cmdecho" 0)
    
28.   (command "layer" "m" "0-总图-建筑红线" "c" "1" "" "l" "PHANTOM" """")
    
29.   (command "layer" "m" "0-总图-红地红线"  "c" "6" "" "l" "DOTE" """")
    
30.   (command "layer" "m" "DOTE"  "c" "1" "" "l" "DOTE" """")
    
31.   (command "layer" "m" "WALL" "c" "42" "" "")
    
32.   (command "layer" "m" "0-总图-道路红线" "c" "2" "" "")
    
33.   (command "layer" "m" "0-总图-道路边线" "c" "3" "" "")
    
34.   (command "layer" "m" "0-总图-道路中心线" "c" "1" "" "l" "CENTER" """")
    
35.   (command "layer" "m" "0-总图-建筑外边线" "c" "42" "" "")
    
36.   (command "layer" "m" "0-总图-建筑可视线" "c" "2" "" "")
    
37.   (command "layer" "m" "0-总图-已建建筑外边线" "c" "190" "" "")
    
38.   (command "layer" "m" "0-总图-围墙线" "c" "221" "" "")
    
39.   (command "layer" "m" "0-总图-构筑物" "c" "6" "" "")
    
40.   (command "layer" "m" "0-总图-园林植物" "c" "251" "" "")
    
41.   (command "layer" "m" "0-总图-表格线" "c" "3" "" "")
    
42.   (command "layer" "m" "0-总图-园林布置" "c" "2" "" "")  
    
43.   (command "layer" "m" "0-总图-摩托车位" "c" "6" "" "")  
    
44.   (command "layer" "m" "0-总图-非机车位" "c" "6" "" "")  
    
45.   (command "layer" "m" "0-总图-绿地面积" "c" "6" "" "")  
    
46.   (command "layer" "m" "0-总图-绿化树" "c" "251" "" "")   
    
47.   (command "layer" "m" "0-总图-小汽车停车位" "c" "6" "" "")
    
48.   (command "layer" "m" "PUB_WINDW" "c" "7" "" "")
    
49.   (command ".layer" "p" "p" "PUB_WINDW" "")
    
50.   (command "layer" "m" "A-FURN-绘图层" "c" "2" "" "")
    
51.   (setvar "cmdecho" 1)
    
52. (princ)
    
53. )
    
54. 
    
55. ;;;自动创建装修常用图层
    
56. (defun c:FFG ()
    
57.   (setvar "cmdecho" 0)
    
58.   (command "layer" "m" "0-TF-天花布置" "c" "2" "" "")
    
59.   (command "layer" "m" "0-FURN-平面图" "c" "2" "" "")
    
60.   (command "layer" "m" "0-TF-天花灯具布置" "c" "6" "" "")
    
61.   (command "layer" "m" "0-TF-天花尺寸标注" "c" "3" "" "")
    
62.   (command "layer" "m" "0-DM-地面填充" "c" "251" "" "")
    
63.   (command "layer" "m" "0-DM-地坪分割线" "c" "251" "" "")
    
64.   (command "layer" "m" "0-DM-门槛线" "c" "251" "" "")
    
65.   (command "layer" "m" "0-DM-地面尺寸标注" "c" "3" "" "")
    
66.   (command "layer" "m" "0-FURN-平面布置图" "c" "2" "" "")
    
67.   (command "layer" "m" "0-FURN-平面尺寸" "c" "2" "" "")
    
68.   (command "layer" "m" "0-PM-固定家具" "c" "251" "" "")
    
69.   (command "layer" "m" "DOOR" "c" "4" "" "")
    
70.   (command "layer" "m" "DOTE"  "c" "1" "" "l" "DOTE" """")
    
71.   (command "layer" "m" "DOOR-NAME" "c" "4" "" "")
    
72.   (command "layer" "m" "WALL" "c" "42" "" "")
    
73.   (command "layer" "m" "大样剖切线" "c" "4" "" "")
    
74.   (command "layer" "m" "PUB_WINDW" "c" "7" "" "")
    
75.   (command ".layer" "p" "p" "PUB_WINDW" "")
    
76.   (command "layer" "m" "A-FURN-绘图层" "c" "2" "" "")
    
77.   (setvar "cmdecho" 1)
    
78. (princ)
    
79. )
    
80. 
    
81. ;;通过命令设换到相应天花图层
    
82. (defun c:T1() (setvar "clayer" "0-TF-天花布置") (princ))
    
83. (defun c:T2() (setvar "clayer" "0-TF-天花尺寸标注") (princ))
    
84. (defun c:T3() (setvar "clayer" "0-TF-天花灯具布置") (princ))
    
85. 
    
86. 
    
87. ;;通过命令设换到相应地面图层
    
88. (defun c:D1() (setvar "clayer" "0-DM-地面填充") (princ))
    
89. (defun c:D2() (setvar "clayer" "0-DM-地面尺寸标注") (princ))
    
90. (defun c:D3() (setvar "clayer" "0-DM-地坪分割线") (princ))
    
91. 
    
92. ;;通过命令设换到相应图层
    
93. (defun c:F1() (setvar "clayer" "A-ELEV-LIN1-立面外轮廓线") (princ))
    
94. (defun c:F2() (setvar "clayer" "A-ELEV-LIN2-立面中轮廓线") (princ))
    
95. (defun c:F3() (setvar "clayer" "A-ELEV-LIN3-立面细轮廓线") (princ))
    
96. (defun c:F4() (setvar "clayer" "A-FURN-绘图层") (princ))
    
97. (defun c:F5() (setvar "clayer" "0-PM-固定家具") (princ))
    
98. (defun c:FFC() (setvar "clayer" "DOTE") (princ))
    
99. (defun c:FFD() (setvar "clayer" "DOOR") (princ))
    
100. (defun c:FFW() (setvar "clayer" "WINDOW") (princ))
     
101. (defun c:FW() (setvar "clayer" "WALL") (princ))
     
102. (defun c:F0() (setvar "clayer" "0") (princ))
     
103. 
     
104. ;;;定义各视图方向
     
105. (defun c:w`()(command "vpoint" "-1,-2,1") (princ))
     
106. (defun c:w1()(command "-view" "swiso")    (princ))
     
107. (defun c:w2()(command "-view" "seiso")    (princ))
     
108. (defun c:w3()(command "-view" "neiso")    (princ))
     
109. (defun c:w4()(command "-view" "nwiso")    (princ))
     
110. (defun c:w5()(command "-view" "top")      (princ))
     
111. (defun c:w6()(command "-view" "front")    (princ))
     
112. (defun c:w7()(command "-view" "left")     (princ))
     
113. (defun c:w8()(command "-view" "right")    (princ))

;;;自动创建常用图层<br /> (defun c:FFF ()<br />   (setvar "cmdecho" 0)<br />   (command "layer" "m" "DOTE"  "c" "1" "" "l" "DOTE" """") <br />   (command "layer" "m" "WALL" "c" "42" "" "")<br />   (command "layer" "m" "A-ELEV-LIN1-立面外轮廓线" "c" "42" "" "")<br />   (command "layer" "m" "A-ELEV-LIN2-立面中轮廓线" "c" "2" "" "")<br />   (command "layer" "m" "A-ELEV-LIN3-立面细轮廓线" "c" "153" "" "")<br />   (command "layer" "m" "A-ELEV_OTHER-立面配景" "c" "153" "" "")<br />   (command "layer" "m" "0-PM-固定家具" "c" "251" "" "")<br />   (command "layer" "m" "0-PM-建筑面积计算" "c" "6" "" "")<br />   (command "layer" "m" "DOOR" "c" "4" "" "")<br />   (command "layer" "m" "DOOR-NAME" "c" "5" "" "")<br />   (command "layer" "m" "大样剖切线" "c" "4" "" "")<br />   (command "layer" "m" "WALL" "c" "42" "" "")<br />   (command "layer" "m" "A-FURN-绘图层" "c" "2" "" "")<br />   (command "layer" "m" "PUB_WINDW" "c" "7" "" "")<br />   (command ".layer" "p" "p" "PUB_WINDW" "")<br />   (command "layer" "m" "A-FURN-绘图层" "c" "2" "" "")<br />   (setvar "cmdecho" 1)<br /> (princ)<br /> )<br /> <br /> ;;;自动创建常用总图图层<br /> (defun c:FFA ()<br />   (setvar "cmdecho" 0)<br />   (command "layer" "m" "0-总图-建筑红线" "c" "1" "" "l" "PHANTOM" """") <br />   (command "layer" "m" "0-总图-红地红线"  "c" "6" "" "l" "DOTE" """")<br />   (command "layer" "m" "DOTE"  "c" "1" "" "l" "DOTE" """") <br />   (command "layer" "m" "WALL" "c" "42" "" "")<br />   (command "layer" "m" "0-总图-道路红线" "c" "2" "" "")<br />   (command "layer" "m" "0-总图-道路边线" "c" "3" "" "")<br />   (command "layer" "m" "0-总图-道路中心线" "c" "1" "" "l" "CENTER" """")<br />   (command "layer" "m" "0-总图-建筑外边线" "c" "42" "" "")<br />   (command "layer" "m" "0-总图-建筑可视线" "c" "2" "" "")<br />   (command "layer" "m" "0-总图-已建建筑外边线" "c" "190" "" "")<br />   (command "layer" "m" "0-总图-围墙线" "c" "221" "" "")<br />   (command "layer" "m" "0-总图-构筑物" "c" "6" "" "")<br />   (command "layer" "m" "0-总图-园林植物" "c" "251" "" "")<br />   (command "layer" "m" "0-总图-表格线" "c" "3" "" "")<br />   (command "layer" "m" "0-总图-园林布置" "c" "2" "" "")  <br />   (command "layer" "m" "0-总图-摩托车位" "c" "6" "" "")  <br />   (command "layer" "m" "0-总图-非机车位" "c" "6" "" "")  <br />   (command "layer" "m" "0-总图-绿地面积" "c" "6" "" "")  <br />   (command "layer" "m" "0-总图-绿化树" "c" "251" "" "")    <br />   (command "layer" "m" "0-总图-小汽车停车位" "c" "6" "" "")<br />   (command "layer" "m" "PUB_WINDW" "c" "7" "" "")<br />   (command ".layer" "p" "p" "PUB_WINDW" "")<br />   (command "layer" "m" "A-FURN-绘图层" "c" "2" "" "")<br />   (setvar "cmdecho" 1)<br /> (princ)<br /> )<br /> <br /> ;;;自动创建装修常用图层<br /> (defun c:FFG ()<br />   (setvar "cmdecho" 0)<br />   (command "layer" "m" "0-TF-天花布置" "c" "2" "" "")<br />   (command "layer" "m" "0-FURN-平面图" "c" "2" "" "")<br />   (command "layer" "m" "0-TF-天花灯具布置" "c" "6" "" "")<br />   (command "layer" "m" "0-TF-天花尺寸标注" "c" "3" "" "")<br />   (command "layer" "m" "0-DM-地面填充" "c" "251" "" "")<br />   (command "layer" "m" "0-DM-地坪分割线" "c" "251" "" "")<br />   (command "layer" "m" "0-DM-门槛线" "c" "251" "" "")<br />   (command "layer" "m" "0-DM-地面尺寸标注" "c" "3" "" "")<br />   (command "layer" "m" "0-FURN-平面布置图" "c" "2" "" "")<br />   (command "layer" "m" "0-FURN-平面尺寸" "c" "2" "" "")<br />   (command "layer" "m" "0-PM-固定家具" "c" "251" "" "")<br />   (command "layer" "m" "DOOR" "c" "4" "" "")<br />   (command "layer" "m" "DOTE"  "c" "1" "" "l" "DOTE" """") <br />   (command "layer" "m" "DOOR-NAME" "c" "4" "" "")<br />   (command "layer" "m" "WALL" "c" "42" "" "")<br />   (command "layer" "m" "大样剖切线" "c" "4" "" "")<br />   (command "layer" "m" "PUB_WINDW" "c" "7" "" "")<br />   (command ".layer" "p" "p" "PUB_WINDW" "")<br />   (command "layer" "m" "A-FURN-绘图层" "c" "2" "" "")<br />   (setvar "cmdecho" 1)<br /> (princ)<br /> )<br /> <br /> ;;通过命令设换到相应天花图层<br /> (defun c:T1() (setvar "clayer" "0-TF-天花布置") (princ))<br /> (defun c:T2() (setvar "clayer" "0-TF-天花尺寸标注") (princ))<br /> (defun c:T3() (setvar "clayer" "0-TF-天花灯具布置") (princ))<br /> <br /> <br /> ;;通过命令设换到相应地面图层<br /> (defun c:D1() (setvar "clayer" "0-DM-地面填充") (princ))<br /> (defun c:D2() (setvar "clayer" "0-DM-地面尺寸标注") (princ))<br /> (defun c:D3() (setvar "clayer" "0-DM-地坪分割线") (princ))<br /> <br /> ;;通过命令设换到相应图层<br /> (defun c:F1() (setvar "clayer" "A-ELEV-LIN1-立面外轮廓线") (princ))<br /> (defun c:F2() (setvar "clayer" "A-ELEV-LIN2-立面中轮廓线") (princ))<br /> (defun c:F3() (setvar "clayer" "A-ELEV-LIN3-立面细轮廓线") (princ))<br /> (defun c:F4() (setvar "clayer" "A-FURN-绘图层") (princ))<br /> (defun c:F5() (setvar "clayer" "0-PM-固定家具") (princ))<br /> (defun c:FFC() (setvar "clayer" "DOTE") (princ))<br /> (defun c:FFD() (setvar "clayer" "DOOR") (princ))<br /> (defun c:FFW() (setvar "clayer" "WINDOW") (princ))<br /> (defun c:FW() (setvar "clayer" "WALL") (princ))<br /> (defun c:F0() (setvar "clayer" "0") (princ))<br /> <br /> ;;;定义各视图方向<br /> (defun c:w`()(command "vpoint" "-1,-2,1") (princ))<br /> (defun c:w1()(command "-view" "swiso")    (princ))<br /> (defun c:w2()(command "-view" "seiso")    (princ))<br /> (defun c:w3()(command "-view" "neiso")    (princ))<br /> (defun c:w4()(command "-view" "nwiso")    (princ))<br /> (defun c:w5()(command "-view" "top")      (princ))<br /> (defun c:w6()(command "-view" "front")    (princ))<br /> (defun c:w7()(command "-view" "left")     (princ))<br /> (defun c:w8()(command "-view" "right")    (princ))

huxu823

panliang9 发表于 2022-2-18 08:48
不错，这个可以扩展一下。
1、在选中对象的前提下下，输入命令则将对象切换到该数字图层。
2、没有选中对 ...

2. ;;加载线型
   
3. (defun JZXX ()
   
4.   (or (TBLSEARCH "LTYPE" "CENTER,DASHED,FENCELINE1,FENCELINE2,PHANTOM")    ;搜索是否存在线型
   
5.     (vl-catch-all-apply
   
6.       'vla-load
   
7.       (list (vla-get-Linetypes
   
8.             (vla-get-ActiveDocument (vlax-get-acad-object))
   
9.           )
   
10.           "CENTER,DASHED,FENCELINE1,FENCELINE2,PHANTOM"
    
11.           (findfile "acadiso.lin")
    
12.       )                                                                    ;不存在则加载线型
    
13.     )
    
14.   )
    
15. )
    
16. 
    
17. (defun li-xjtc (cm ys xx xk dy / ss lts )
    
18.     (JZXX) ;加载线型
    
19.     (Princ "\<<<<图层切换程序>>>>")
    
20.     (setvar "cmdecho" 0)
    
21.     (if        (= (tblsearch "layer" cm) nil)
    
22.       (entmake
    
23.         (list
    
24.                       '(0 . "LAYER")
    
25.                       '(100 . "AcDbSymbolTableRecord")
    
26.                       '(100 . "AcDbLayerTableRecord")
    
27.                       '(70 . 0)        ;图层状态
    
28.                       (cons 2 cm)      ;图层名称
    
29.                       (cons 62 ys)     ;图层颜色
    
30.                       (cons 6 xx)      ;图层线型
    
31.                       (cons 370 xk)    ;图层线宽：100=1, 15=0.15, 18=0.18, -3=默认
    
32.                       (cons 290 dy)    ;0-不打印，1-打印
    
33.         )
    
34.       )
    
35.     )
    
36.     (setq ss (ssget))
    
37.     (if (= ss nil)
    
38.       (setvar "clayer" cm)                                                 ;没有对象就切换至指定图层
    
39.       (command "chprop" ss "" "la" cm "c" "bylayer" "lt" "bylayer" "")     ;有对象就将对象改至指定图层
    
40.     )
    
41.     (princ)
    
42. )
    
43. 
    
44. ;;;主程序
    
45. (defun c:00 (/) (li-xjtc "0" 7 "continuous" -3 1))              ;切换至 "0" 图层
    
46. (defun c:01 (/) (li-xjtc "01-DIM" 3 "continuous" 18 1))         ;切换至 "01-DIM" 图层
    
47. (defun c:02 (/) (li-xjtc "02-TXT" 7 "continuous" -3 1))         ;切换至 "02-TXT" 图层
    
48. (defun c:03 (/) (li-xjtc "03-Center" 1 "CENTER" 15 1))          ;切换至 "03-Center" 图层
    
49. (defun c:04 (/) (li-xjtc "04-Hidden" 8 "DASHED" -3 1))          ;切换至 "04-Hidden" 图层
    
50. (defun c:05 (/) (li-xjtc "05-Hatch" 2 "continuous" -3 1))       ;切换至 "05-Hatch" 图层

;;加载线型<br /> (defun JZXX ()<br />   (or (TBLSEARCH "LTYPE" "CENTER,DASHED,FENCELINE1,FENCELINE2,PHANTOM")    ;搜索是否存在线型<br />     (vl-catch-all-apply<br />       'vla-load<br />       (list (vla-get-Linetypes<br />             (vla-get-ActiveDocument (vlax-get-acad-object))<br />           )<br />           "CENTER,DASHED,FENCELINE1,FENCELINE2,PHANTOM"<br />           (findfile "acadiso.lin")<br />       )                                                                    ;不存在则加载线型<br />     )<br />   )<br /> )<br /> <br /> (defun li-xjtc (cm ys xx xk dy / ss lts )<br />     (JZXX) ;加载线型<br />     (Princ "\<<<<图层切换程序>>>>")<br />     (setvar "cmdecho" 0)<br />     (if        (= (tblsearch "layer" cm) nil)<br />       (entmake <br />         (list<br />                       '(0 . "LAYER")<br />                       '(100 . "AcDbSymbolTableRecord")<br />                       '(100 . "AcDbLayerTableRecord")<br />                       '(70 . 0)        ;图层状态<br />                       (cons 2 cm)      ;图层名称<br />                       (cons 62 ys)     ;图层颜色<br />                       (cons 6 xx)      ;图层线型<br />                       (cons 370 xk)    ;图层线宽：100=1, 15=0.15, 18=0.18, -3=默认<br />                       (cons 290 dy)    ;0-不打印，1-打印<br />         )<br />       )<br />     )<br />     (setq ss (ssget))<br />     (if (= ss nil)<br />       (setvar "clayer" cm)                                                 ;没有对象就切换至指定图层<br />       (command "chprop" ss "" "la" cm "c" "bylayer" "lt" "bylayer" "")     ;有对象就将对象改至指定图层<br />     )<br />     (princ)<br /> )<br /> <br /> ;;;主程序<br /> (defun c:00 (/) (li-xjtc "0" 7 "continuous" -3 1))              ;切换至 "0" 图层<br /> (defun c:01 (/) (li-xjtc "01-DIM" 3 "continuous" 18 1))         ;切换至 "01-DIM" 图层<br /> (defun c:02 (/) (li-xjtc "02-TXT" 7 "continuous" -3 1))         ;切换至 "02-TXT" 图层<br /> (defun c:03 (/) (li-xjtc "03-Center" 1 "CENTER" 15 1))          ;切换至 "03-Center" 图层<br /> (defun c:04 (/) (li-xjtc "04-Hidden" 8 "DASHED" -3 1))          ;切换至 "04-Hidden" 图层<br /> (defun c:05 (/) (li-xjtc "05-Hatch" 2 "continuous" -3 1))       ;切换至 "05-Hatch" 图层

panliang9

不错，这个可以扩展一下。
1、在选中对象的前提下下，输入命令则将对象切换到该数字图层。
2、没有选中对象的前提下，则切换到该图层。
3、如果没有该图层，则自动建立该图层。

e2002

建筑行业，除了缺省必须的0层，其他的图层几乎没有这种以整数命名的。

gzcsun

e2002 发表于 2022-2-18 10:19
建筑行业，除了缺省必须的0层，其他的图层几乎没有这种以整数命名的。

只建筑行业用cad?

w379106181

感谢大神分享感谢大神分享

下文没句号。

gzcsun 发表于 2022-3-27 15:21
只建筑行业用cad?

可以改图层名吧。

小毛草

可以参考一下

哥很帅也很温柔

很好用感谢!!!!

tfanghui

panliang9 发表于 2022-2-18 08:48
不错，这个可以扩展一下。
1、在选中对象的前提下下，输入命令则将对象切换到该数字图层。
2、没有选中对 ...

前辈，这个功能做写出来了吗