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

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

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

**** Hidden Message *****

小毛草 发表于 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))

tigcat 发表于 2022-7-18 17:56:00

谢谢分享，支持楼主一下。

丶俗人 发表于 2022-7-19 01:49:00

楼主,你可以看一下这个哟,也是很强大呢~
可以强制更新图层信息.

sncokina 发表于 2022-7-19 08:44:00

谢谢分享，支持

tfanghui 发表于 2022-7-20 10:10:00


他这很强大，我试了一下，但是多建几个图层就会出现错误，不知道是什么原因。

丶俗人 发表于 2022-7-25 00:42:00


应该不会呀.我都是一次性创建五六十个图层.
应该是你图层的代码哪里出错了.

paulpipi 发表于 2022-7-25 08:44:00

感谢分享，挺好的程序

czb203 发表于 2022-7-25 15:45:00

感谢分享，挺好的程序

宁静港湾 发表于 2022-7-25 16:55:00

下来试试，谢谢大佬分手
页: [1] 2
查看完整版本: 自动建立图层并指定图层名称、颜色、线型 、线宽