自动建立图层并指定图层名称、颜色、线型、线宽

tfanghui · 发表于 2022-7-18 17:08:00

借鉴乐筑天下大神的建图层，自动建立图层指定图层名称、颜色、线型、线宽。朋友们可以根据自己工作习惯修改。

本帖以下内容被隐藏保护；需要你回复后，才能看到！

游客，如果您要查看本帖隐藏内容请回复

小毛草 · 发表于 2022-7-26 17:38:00


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

;;;自动创建常用图层
(defun c:FFF ()
  (setvar "cmdecho" 0)
  (command "layer" "m" "DOTE"  "c" "1" "" "l" "DOTE" """")
  (command "layer" "m" "WALL" "c" "42" "" "")
  (command "layer" "m" "A-ELEV-LIN1-立面外轮廓线" "c" "42" "" "")
  (command "layer" "m" "A-ELEV-LIN2-立面中轮廓线" "c" "2" "" "")
  (command "layer" "m" "A-ELEV-LIN3-立面细轮廓线" "c" "153" "" "")
  (command "layer" "m" "A-ELEV_OTHER-立面配景" "c" "153" "" "")
  (command "layer" "m" "0-PM-固定家具" "c" "251" "" "")
  (command "layer" "m" "0-PM-建筑面积计算" "c" "6" "" "")
  (command "layer" "m" "DOOR" "c" "4" "" "")
  (command "layer" "m" "DOOR-NAME" "c" "5" "" "")
  (command "layer" "m" "大样剖切线" "c" "4" "" "")
  (command "layer" "m" "WALL" "c" "42" "" "")
  (command "layer" "m" "A-FURN-绘图层" "c" "2" "" "")
  (command "layer" "m" &quotUB_WINDW" "c" "7" "" "")
  (command ".layer" "p" "p" &quotUB_WINDW" "")
  (command "layer" "m" "A-FURN-绘图层" "c" "2" "" "")
  (command "-style" "ZG" "TXT1.shx,HZTXT1.shx" "" "0.7" "" "" "" "N")
  (command "-style" "黑体" "黑体" "" "0.7" "" "" "")
  (command ".layer" "p" "p" &quotUB_WINDW" "")
  (setvar "cmdecho" 1)
(princ)
)
;;;自动创建常用总图图层
(defun c:FFA ()
  (setvar "cmdecho" 0)
  (command "layer" "m" "0-总图-建筑红线" "c" "1" "" "l" &quotHANTOM" """")
  (command "layer" "m" "0-总图-用地红线"  "c" "6" "" "l" "DOTE" """")
  (command "layer" "m" "DOTE"  "c" "1" "" "l" "DOTE" """")
  (command "layer" "m" "WALL" "c" "42" "" "")
  (command "layer" "m" "0-总图-道路红线" "c" "2" "" "")
  (command "layer" "m" "0-总图-道路边线" "c" "3" "" "")
  (command "layer" "m" "0-总图-道路中心线" "c" "1" "" "l" "CENTER" """")
  (command "layer" "m" "0-总图-建筑外边线" "c" "42" "" "")
  (command "layer" "m" "0-总图-建筑可视线" "c" "2" "" "")
  (command "layer" "m" "0-总图-已建建筑外边线" "c" "190" "" "")
  (command "layer" "m" "0-总图-围墙线" "c" "221" "" "")
  (command "layer" "m" "0-总图-构筑物" "c" "6" "" "")
  (command "layer" "m" "0-总图-园林植物" "c" "251" "" "")
  (command "layer" "m" "0-总图-表格线" "c" "3" "" "")
  (command "layer" "m" "0-总图-园林布置" "c" "2" "" "")
  (command "layer" "m" "0-总图-摩托车位" "c" "6" "" "")
  (command "layer" "m" "0-总图-非机车位" "c" "6" "" "")
  (command "layer" "m" "0-总图-绿地面积" "c" "6" "" "")
  (command "layer" "m" "0-总图-绿化树" "c" "251" "" "")
  (command "layer" "m" "0-总图-小汽车停车位" "c" "6" "" "")
  (command "layer" "m" &quotUB_WINDW" "c" "7" "" "")
  (command ".layer" "p" "p" &quotUB_WINDW" "")
  (command "layer" "m" "A-FURN-绘图层" "c" "2" "" "")
  (command "-style" "ZG" "TXT1.shx,HZTXT1.shx" "" "0.7" "" "" ""  "N")
  (command "-style" "黑体" "黑体" "" "0.7" "" "" "")
  (command ".layer" "p" "p" &quotUB_WINDW" "")
  (setvar "cmdecho" 1)
(princ)
)
;;;自动创建装修常用图层
(defun c:FFG ()
  (setvar "cmdecho" 0)
  (command "layer" "m" "0-TF-天花布置" "c" "2" "" "")
  (command "layer" "m" "0-FURN-平面图" "c" "2" "" "")
  (command "layer" "m" "0-TF-天花灯具布置" "c" "6" "" "")
  (command "layer" "m" "0-TF-天花尺寸标注" "c" "3" "" "")
  (command "layer" "m" "0-DM-地面填充" "c" "251" "" "")
  (command "layer" "m" "0-DM-地坪分割线" "c" "251" "" "")
  (command "layer" "m" "0-DM-门槛线" "c" "251" "" "")
  (command "layer" "m" "0-DM-地面尺寸标注" "c" "3" "" "")
  (command "layer" "m" "0-FURN-平面布置图" "c" "2" "" "")
  (command "layer" "m" "0-FURN-平面尺寸" "c" "2" "" "")
  (command "layer" "m" "0-PM-固定家具" "c" "251" "" "")
  (command "layer" "m" "DOOR" "c" "4" "" "")
  (command "layer" "m" "DOTE"  "c" "1" "" "l" "DOTE" """")
  (command "layer" "m" "DOOR-NAME" "c" "4" "" "")
  (command "layer" "m" "WALL" "c" "42" "" "")
  (command "layer" "m" "大样剖切线" "c" "4" "" "")
  (command "layer" "m" &quotUB_WINDW" "c" "7" "" "")
  (command ".layer" "p" "p" &quotUB_WINDW" "")
  (command "layer" "m" "A-FURN-绘图层" "c" "2" "" "")
  (command "-style" "ZG" "TXT1.shx,HZTXT1.shx" "" "0.7" "" "" ""  "N")
  (command "-style" "黑体" "黑体" "" "0.7" "" "" "")
  (command ".layer" "p" "p" &quotUB_WINDW" "")
  (setvar "cmdecho" 1)
(princ)
)
;;通过命令设换到相应天花图层
(defun c:T1() (setvar "clayer" "0-TF-天花布置") (princ))
(defun c:T2() (setvar "clayer" "0-TF-天花尺寸标注") (princ))
(defun c:T3() (setvar "clayer" "0-TF-天花灯具布置") (princ))
;;通过命令设换到相应地面图层
(defun c1() (setvar "clayer" "0-DM-地面填充") (princ))
(defun c2() (setvar "clayer" "0-DM-地面尺寸标注") (princ))
(defun c3() (setvar "clayer" "0-DM-地坪分割线") (princ))
;;通过命令设换到相应图层
(defun c:F1() (setvar "clayer" "A-ELEV-LIN1-立面外轮廓线") (princ))
(defun c:F2() (setvar "clayer" "A-ELEV-LIN2-立面中轮廓线") (princ))
(defun c:F3() (setvar "clayer" "A-ELEV-LIN3-立面细轮廓线") (princ))
(defun c:F4() (setvar "clayer" "A-FURN-绘图层") (princ))
(defun c:F5() (setvar "clayer" "0-PM-固定家具") (princ))
(defun c:FFC() (setvar "clayer" "DOTE") (princ))
(defun c:FFD() (setvar "clayer" "DOOR") (princ))
(defun c:FFW() (setvar "clayer" "WINDOW") (princ))
(defun c:FFJ() (setvar "clayer" "0-总图-建筑红线") (princ))
(defun c:FFX() (setvar "clayer" "0-总图-用地红线") (princ))
(defun c:FW() (setvar "clayer" "WALL") (princ))
(defun c:F0() (setvar "clayer" "0") (princ))