专业图层设置程序

;|专业图层设置程序
图层设置不规范是cad绘图的通病，如果不使用专业软件，情况更是如此。
其结果是不便于编辑，也不便于专业间的交流。
利用本程序可以建立国标所要求的建筑设计的所有图层（中文名称），图层清晰明了，同时还可以自动清除文件中的“垃圾”，使文件减肥。
如果要单独清垃圾，使用“PUU”命令。
以下是本程序的全部内容，请专业人士多加指点！|;
;; 专业图层 zhytc.lsp
;; 层名符合国标要求，层颜色可自定义
(prompt "\n加载专业图层设置程序 ")
(defun c:ZHYTC (/)
  (cmdla0)
  (c:puu)                                ;清除垃圾
  (prompt "\n\r         请稍候···")
  (princ "·")
  (princ)
  (ZT-TC)                                ; 总图图层
  (princ "·")
  (princ)
  (JZ-TC)                                ; 建筑图层
  (princ "·")
  (princ)
  (JG-TC)                                ; 结构图层
  (princ "·")
  (princ)
  (DQ-TC)                                ; 电气图层
  (princ "·")
  (princ)
  (NT-TC)                                ; 暖通图层
  (princ "·")
  (princ)
  (GPS-TC)                                ; 给排水图层
  (princ "·")
  (princ)
  (SB-TC)                                ; 设备图层
  (princ "·")
  (princ)
  (TX-TC)                                ; 通讯图层
  (princ "·")
  (princ)
  (princ "专业图层设置完毕!")
  (cmdla1)
  (pxyp "zhytc         (专业图层)")
)
;; defun ;; 建筑图层
(defun jz-tc ()
  ;; [—墙体—]
  (mkla "建筑-墙体" 2)
  (mkla "建筑-墙体-全高" 2)
  (mkla "建筑-墙体-半墙" 7)
  (mkla "建筑-墙体-隔断" 7)
  (mkla "建筑-墙体-绝缘" 7)
  (mkla "建筑-墙体-卫生" 7)
  (mkla "建筑-墙体-三维" 7)
  (mkla "建筑-墙体-结构" 7)
  (mkla "建筑-墙体-设备" 7)
  (mkla "建筑-墙体-灯具" 7)
  ;; [—门—]
  (mkla "建筑-门体" 131)
  (mkla "建筑-门体-全高" 131)
  (mkla "建筑-门体-半门" 131)
  (mkla "建筑-门体-三维" 131)
  (mkla "建筑-门体-编号" 131)
  (mkla "建筑-门体-木门" 131)
  (mkla "建筑-门体-金属" 131)
  ;; [—窗—]
  (mkla "建筑-窗户" 132)
  (mkla "建筑-窗户-半窗" 132)
  (mkla "建筑-窗户-组号" 132)
  (mkla "建筑-窗户-三维" 132)
  (mkla "建筑-窗户-木窗" 132)
  (mkla "建筑-窗户-金属" 132)
  (mkla "建筑-窗户-阳台" 132)
  ;; [—楼梯—]
  (mkla "建筑-楼梯" 7)
  (mkla "建筑-楼梯-踢板" 7)
  (mkla "建筑-楼梯-护栏" 7)
  (mkla "建筑-楼梯-电梯" 7)
  ;; [—楼面—]
  (mkla "建筑-楼面" 7)
  (mkla "建筑-楼面-轮廓" 7)
  (mkla "建筑-楼面-标高" 7)
  (mkla "建筑-楼面-特殊" 7)
  (mkla "建筑-楼面-木活" 7)
  (mkla "建筑-楼面-厨柜" 7)
  (mkla "建筑-楼面-顶棚" 7)
  (mkla "建筑-楼面-地板" 7)
  (mkla "建筑-楼面-房号" 7)
  (mkla "建筑-楼面-装饰" 6)
  (mkla "建筑-楼面-管道" 7)
  (mkla "建筑-楼面-标记" 7)
  (mkla "建筑-楼面-排水" 7)
  (mkla "建筑-楼面-管井" 7)
  ;;'[—设备—]
  (mkla "建筑-设备" 133)
  (mkla "建筑-设备-固定" 133)
  (mkla "建筑-设备-活动" 133)
  (mkla "建筑-设备-契外" 133)
  (mkla "建筑-设备-通道" 133)
  (mkla "建筑-设备-索引" 133)
  (mkla "建筑-设备-三维" 133)
  (mkla "建筑-设备-顶棚" 133)
  ;; [—顶棚—]
  (mkla "建筑-顶棚" 134)
  (mkla "建筑-顶棚-藻井" 134)
  (mkla "建筑-顶棚-透视" 134)
  (mkla "建筑-顶棚-主体" 134)
  (mkla "建筑-顶棚-构件" 134)
  (mkla "建筑-顶棚-图案" 134)
  (mkla "建筑-顶棚-检口" 134)
  (mkla "建筑-顶棚-设备" 134)
  (mkla "建筑-顶棚-设备" 134)
  ;; [—柱—]
  (mkla "建筑-柱子" 7)
  (mkla "建筑-柱子-结构" 7)
  ;; [—梁—]
  (mkla "建筑-梁体" 7)
  ;; [—暖通—]
  (mkla "建筑-暖通-送风" 8)
  (mkla "建筑-暖通-回风" 8)
  ;; [—屋顶—]
  (mkla "建筑-屋顶" 220)
  (mkla "建筑-屋顶-轮廓" 220)
  (mkla "建筑-屋顶-标高" 220)
  (mkla "建筑-屋顶-图案" 220)
  (mkla "建筑-屋顶-三维" 220)
  (mkla "建筑-屋顶-设备" 220)
  ;; [—立面—]
  (mkla "建筑-立面" 7)
  (mkla "建筑-立面-轮廓" 3)
  (mkla "建筑-立面-装饰" 6)
  (mkla "建筑-立面-壁柜" 7)
  (mkla "建筑-立面-设备" 7)
  (mkla "建筑-立面-管道" 7)
  (mkla "建筑-立面-标记" 4)
  (mkla "建筑-立面-影线" 7)
  (mkla "建筑-立面-索引" 4)
  ;; [—剖面—]
  (mkla "建筑-剖面" 7)
  (mkla "建筑-剖面-材料" 7)
  (mkla "建筑-剖面-剖外" 7)
  (mkla "建筑-剖面-影线" 7)
  (mkla "建筑-剖面-索引" 4)
  ;; [—详图—]
  (mkla "建筑-详图" 7)
  (mkla "建筑-详图-材料" 7)
  (mkla "建筑-详图-剖外" 7)
  (mkla "建筑-详图-影线" 7)
  (mkla "建筑-详图-索引" 4)
  ;; [—玻璃—]
  (mkla "建筑-玻璃" 4)
  (mkla "建筑-玻璃-全高" 4)
  (mkla "建筑-玻璃-半高" 4)
  (mkla "建筑-玻璃-窗台" 4)
  (mkla "建筑-玻璃-编号" 4)
  (mkla "建筑-玻璃-三维" 4)
  ;; [—其他—]
  (mkla "建筑-轴网" 1)
  (mkla "建筑-尺寸" 2)
  (mkla "建筑-说明" 4)
  (mkla "建筑-场所" 4)
  (mkla "建筑-装饰" 6)
  (mkla "建筑-影线" 7)
  (mkla "建筑-影线-砼线" 7)
  (mkla "建筑-影线-石料" 7)
  (mkla "建筑-洁具" 4)
)
;; defun 
;; 电气图层
(defun DQ-TC ()
  ;; [—照明—]
  (mkla "电气-照明" 3)
  (mkla "电气-照明-特殊" 3)
  (mkla "电气-照明-应急" 3)
  (mkla "电气-照明-出口" 3)
  (mkla "电气-照明-顶灯" 3)
  (mkla "电气-照明-壁灯" 3)
  (mkla "电气-照明-楼层" 3)
  (mkla "电气-照明-简图" 3)
  (mkla "电气-照明-室内" 3)
  (mkla "电气-照明-户外" 3)
  (mkla "电气-照明-开关" 3)
  (mkla "电气-照明-线路" 4)
  (mkla "电气-照明-编号" 4)
  (mkla "电气-照明-线盒" 3)
  ;; [—电源—]
  (mkla "电气-电源" 4)
  (mkla "电气-电源-墙座" 4)
  (mkla "电气-电源-顶棚" 4)
  (mkla "电气-电源-电盘" 4)
  (mkla "电气-电源-设备" 4)
  (mkla "电气-电源-电柜" 4)
  (mkla "电气-电源-线号" 4)
  (mkla "电气-电源-电路" 4)
  (mkla "电气-电源-暗管" 4)
  (mkla "电气-电源-总线" 4)
  (mkla "电气-电源-户外" 4)
  (mkla "电气-电源-户内" 4)
  (mkla "电气-电源-简图" 4)
  (mkla "电气-电源-线盒" 4)
  ;; [—控制系统—]
  (mkla "电气-控制" 6)
  (mkla "电气-控制-装置" 6)
  (mkla "电气-控制-布线" 6)
  (mkla "电气-控制-接地" 6)
  (mkla "电气-控制-地线" 6)
  (mkla "电气-控制-零位" 6)
  (mkla "电气-控制-设备" 6)
  (mkla "电气-控制-概图" 6)
  (mkla "电气-辅助" 6)
  (mkla "电气-保护" 6)
  (mkla "电气-防火" 6)
  (mkla "电气-电话" 6)
  (mkla "电气-数据" 6)
  (mkla "电气-天线" 6)
  (mkla "电气-电视" 6)
  (mkla "电气-呼叫" 6)
  (mkla "电气-保安" 6)
  (mkla "电气-主控" 6)
  (mkla "电气-时钟" 6)
  (mkla "电气-报警" 6)
  (mkla "电气-内线" 6)
  (mkla "电气-符号" 6)
  (mkla "电气-单图" 6)
  (mkla "电气-立图" 6)
  (mkla "电气-户外" 6)
  (mkla "电气-户外-路灯" 6)
  (mkla "电气-户外-埋线" 6)
  (mkla "电气-户外-电杆" 6)
  (mkla "电气-户外-架空" 6)
)
;; defun ;; 总图图层
(defun ZT-TC ()
  (mkla "总图-平面" 4)
  (mkla "总图-现场" 4)
  (mkla "总图-道路" 4)
  (mkla "总图-防火" 4)
  (mkla "总图-排水" 4)
  (mkla "总图-车场" 4)
  (mkla "总图-尺寸" 4)
  (mkla "总图-文字" 4)
  (mkla "总图-图案" 4)
  (mkla "总图-给水" 4)
  (mkla "总图-暖通" 4)
  (mkla "总图-电气" 4)
  (mkla "总图-煤气" 4)
  (mkla "总图-通讯" 4)
)
;; defun ;; 室内图层
(defun SN-TC ()
  (mkla "室内-墙体-全高" 4)
  (mkla "室内-墙体-半墙" 4)
  (mkla "室内-墙体-窗肚" 4)
  (mkla "室内-墙体-窗间" 4)
  (mkla "室内-墙体-绝缘" 4)
  (mkla "室内-墙体-三维" 4)
  (mkla "室内-墙体-防火" 4)
  (mkla "室内-门体" 4)
  (mkla "室内-门体-全高" 4)
  (mkla "室内-门体-半门" 4)
  (mkla "室内-门体-编号" 4)
  (mkla "室内-门体-三维" 4)
  (mkla "室内-玻璃" 4)
  (mkla "室内-玻璃-全高" 4)
  (mkla "室内-玻璃-半高" 4)
  (mkla "室内-玻璃-窗台" 4)
  (mkla "室内-玻璃-编号" 4)
  (mkla "室内-玻璃-立面" 4)
  (mkla "室内-楼面" 4)
  (mkla "室内-楼面-轮廓" 4)
  (mkla "室内-楼面-踏步" 4)
  (mkla "室内-楼面-踢板" 4)
  (mkla "室内-楼面-护栏" 4)
  (mkla "室内-楼面-卫间" 4)
  (mkla "室内-楼面-附件" 4)
  (mkla "室内-楼面-木活" 4)
  (mkla "室内-楼面-顶棚" 4)
  (mkla "室内-楼面-地板" 4)
  (mkla "室内-楼面-编号" 4)
  (mkla "室内-楼面-图案" 4)
  (mkla "室内-楼面-管道" 4)
  (mkla "室内-楼面-设备" 4)
  (mkla "室内-楼面-标记" 4)
  (mkla "室内-设备" 4)
  (mkla "室内-设备-三维" 4)
  (mkla "室内-家具" 4)
  (mkla "室内-家具-活动" 4)
  (mkla "室内-家具-植物" 4)
  (mkla "室内-家具-图案" 4)
  (mkla "室内-家具-三维" 4)
  (mkla "室内-顶棚" 4)
  (mkla "室内-顶棚-藻井" 4)
  (mkla "室内-顶棚-图案" 4)
  (mkla "室内-照明" 4)
  (mkla "室内-柱子" 4)
  (mkla "室内-面积-影线" 4)
  (mkla "室内-面积-标记" 4)
  (mkla "室内-立面" 4)
  (mkla "室内-立面-木活" 4)
  (mkla "室内-立面-设备" 4)
  (mkla "室内-立面-管道" 4)
  (mkla "室内-立面-标记" 4)
  (mkla "室内-立面-图案" 4)
  (mkla "室内-立面-索引" 4)
  (mkla "室内-剖面" 4)
  (mkla "室内-剖面-材料" 4)
  (mkla "室内-剖面-剖外" 4)
  (mkla "室内-剖面-图案" 4)
  (mkla "室内-剖面-索引" 4)
  (mkla "室内-详图" 4)
  (mkla "室内-详图-材料" 4)
  (mkla "室内-详图-剖外" 4)
  (mkla "室内-详图-图案" 4)
  (mkla "室内-详图-索引" 4)
)
;; defun 
;; 暖通图层
(defun NT-TC ()
  (mkla "暖通-压缩" 5)
  (mkla "暖通-压缩-设备" 5)
  (mkla "暖通-压缩-管线" 5)
  (mkla "暖通-排气" 5)
  (mkla "暖通-排气-设备" 5)
  (mkla "暖通-排气-屋顶" 5)
  (mkla "暖通-空调" 5)
  (mkla "暖通-空调-设备" 5)
  (mkla "暖通-空调-加热" 5)
  (mkla "暖通-空调-过滤" 5)
  (mkla "暖通-空调-暖气" 5)
  (mkla "暖通-热水" 5)
  (mkla "暖通-热水-设备" 5)
  (mkla "暖通-热水-管线" 5)
  (mkla "暖通-热水-立管" 5)
  (mkla "暖通-热水-阀门" 5)
  (mkla "暖通-冷水" 5)
  (mkla "暖通-冷水-设备" 5)
  (mkla "暖通-冷水-管线" 5)
  (mkla "暖通-冷水-水泵" 5)
  (mkla "暖通-冷冻" 5)
  (mkla "暖通-冷冻-设备" 5)
  (mkla "暖通-冷冻-管线" 5)
)
;; defun ;; 给排水图层
(defun GPS-TC ()
  (mkla "给排-冷热" 5)
  (mkla "给排-冷热-设备" 5)
  (mkla "给排-冷热-热管" 5)
  (mkla "给排-冷热-冷管" 5)
  (mkla "给排-排水" 5)
  (mkla "给排-排水-设备" 5)
  (mkla "给排-排水-管线" 5)
  (mkla "给排-雨水" 5)
  (mkla "给排-雨水-管线" 5)
  (mkla "给排-雨水-屋面" 5)
  (mkla "给排-消防" 5)
)
;; defun 
;; 设备图层
(defun SB-TC ()
  (mkla "设备-简图" 6)
  (mkla "设备-动力" 6)
  (mkla "设备-配管" 6)
)
;; defun 
;; 结构图层
(defun JG-TC ()
  (mkla "结构-轴网" 6)
  (mkla "结构-尺寸" 6)
  (mkla "结构-文字" 6)
  (mkla "结构-荷载" 6)
  (mkla "结构-荷载-静载" 6)
  (mkla "结构-荷载-活载" 6)
  (mkla "结构-柱网" 1)
  (mkla "结构-柱网-户外" 1)
  (mkla "结构-柱网-室内" 1)
  (mkla "结构-柱网-尺寸" 1)
  (mkla "结构-柱网-编码" 1)
  (mkla "结构-柱子" 7)
  (mkla "结构-柱子-承重" 7)
  (mkla "结构-柱子-构造" 7)
  (mkla "结构-柱子-框架" 7)
  (mkla "结构-柱子-钢筋" 7)
  (mkla "结构-柱子-模板" 7)
  (mkla "结构-柱子-编码" 7)
  (mkla "结构-墙体" 7)
  (mkla "结构-墙体-砖墙" 7)
  (mkla "结构-墙体-钢砼" 7)
  (mkla "结构-墙体-配筋" 7)
  (mkla "结构-墙体-编码" 7)
  (mkla "结构-梁体" 7)
  (mkla "结构-梁体-模板" 7)
  (mkla "结构-梁体-框架" 7)
  (mkla "结构-梁体-配筋" 7)
  (mkla "结构-梁体-编码" 7)
  (mkla "结构-楼板" 3)
  (mkla "结构-楼板-开洞" 3)
  (mkla "结构-楼板-钢筋" 3)
  (mkla "结构-楼板-节点" 3)
  (mkla "结构-楼板-代码" 3)
  (mkla "结构-洞口" 3)
  (mkla "结构-洞口-配筋" 3)
  (mkla "结构-洞口-代号" 3)
  (mkla "结构-楼盖" 3)
  (mkla "结构-楼盖-配筋" 3)
  (mkla "结构-楼盖-代码" 3)
  (mkla "结构-基础" 3)
  (mkla "结构-基础-独立" 3)
  (mkla "结构-基础-条形" 3)
  (mkla "结构-基础-片筏" 3)
  (mkla "结构-基础-桩基" 3)
  (mkla "结构-基础-箱形" 3)
  (mkla "结构-基础-配筋" 3)
  (mkla "结构-楼梯" 5)
  (mkla "结构-楼梯-模板" 5)
  (mkla "结构-楼梯-配筋" 5)
  (mkla "结构-楼梯-平台" 5)
  (mkla "结构-节点" 5)
  (mkla "结构-零件" 5)
  (mkla "结构-地螺" 5)
  (mkla "结构-平台" 5)
  (mkla "结构-支撑" 5)
  (mkla "结构-屋架" 5)
  (mkla "结构-模板" 5)
  (mkla "结构-框架" 5)
  (mkla "结构-钢筋" 5)
  (mkla "结构-剖面" 5)
  (mkla "结构-详图" 5)
)
;; defun ;; 通讯图层
(defun TX-TC ()
  (mkla "通讯-布线" 5)
  (mkla "通讯-设备" 5)
  (mkla "通讯-插座" 5)
  (mkla "通讯-框图" 5)
)
;;  保存原有系统变量，设置程序运行时的系统变量
(Defun cmdla0 ()
  (Setq        cmdech (Getvar "Cmdecho")
        oom    (Getvar "Orthomode")
        osm    (Getvar "Osmode")
        la     (Getvar "Clayer")
  )
  (Setvar "Cmdecho" 0)
  (Setvar "Regenmode" 0)
)
;;  建图层: (mala "层名" 颜色号)
(Defun MKLA (a b)
  (If (= (Tblsearch "layer" a) nil)
    (Command "layer" "m" a "c" b a "")
    (Command "layer" "t" a "s" a "c" b a "")
  )
)
;;  恢复原有系统变量
(Defun cmdla1 ()
  (Setvar "Cmdecho" cmdech)
  (Setvar "Clayer" LA)
  (Setvar "Orthomode" oom)
  (Setvar "Osmode" osm)
  (setvar "regenmode" 1)
  (Terpri)
  (Princ)
)
(defun C:PUU () (repeat 3 (COMMAND "-PURGE" "A" "" "n")))
(PRINC "zhytc(专业图层)")