[转贴]：[转贴]：专业图层设置程序

as123456

专业图层设置程序
专业图层设置程序


图层设置不规范是cad绘图的通病，如果不使用专业软件，情况更是如此。

其结果是不便于编辑，也不便于专业间的交流。

利用本程序可以建立国标所要求的建筑设计的所有图层（中文名称），图层清晰明了，同时还可以自动清除文件中的“垃圾”，使文件减肥。

如果要单独清垃圾，使用“PUU”命令。

以下是本程序的全部内容，请专业人士多加指点！

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;专业图层 zhytc.lsp
;;;层名符合国标要求，层颜色可自定义
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(prompt "\n\r      加载专业图层设置程序。")
(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
;;; 保存原有系统变量，设置程序运行时的系统变量
(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 ()   ;(/ cmdech LA oom osm)
  (Setvar "Cmdecho" cmdech)
  (Setvar "Clayer" LA)
  (Setvar "Orthomode" oom)
  (Setvar "Osmode" osm)
  (setvar "regenmode" 1)
  (Terpri)
  (Princ)
)

;;;* 显示命令简写
(DEFUN PXYP (TXT1)
  (SETQ TXT1 (STRCAT "\n\r      程序命令: "
       TXT1
       "      -- XYP@bsedi.com"
      )
  )
  (PRINC TXT1)
  (Princ)
)     ;defun

;清除垃圾
(defun C:PUU () (repeat 3 (COMMAND "-PURGE" "A" "" "n")))

(pxyp "zhytc  (专业图层)")

czad

太恐怖了！

9701519

好

xyp1964

这儿：http://www.xdcad.net/forum/showt ... 1971132#post1971132

aicoco

太多了
看得眼花

心渐凉

用到层太多了吧?管理起来会不会不方便?

luyu430

自己专业的层可以分细点，其他专业能合则合

JXNCZQY

是啊，有必要用这么多的图层吗？好象图层多了文件也会变大。

xcpcd

是机械还是建筑呀

云中帆

这么多的图层，有必要吗？自己的专业又用不到全部的，图层一多，文件自然就变大了。人家清理都来不及，你还要加上去，不理解！

iambit

有必要用这么多的图层吗？好象图层多了文件也会变大。

柔柔

这里有个理解偏差问题
这个程序是xyp1964 斑竹编的，用意不错－养成分层绘图习惯，省去手工建层的麻烦。

需要的时候运行程序，完后用PURGE清理，没用到的层自然就不存在，也就是说，实际图纸上并没有程序中列出的全部图层。

xyp1964比较擅长编程，主观上真不想打击积极性，但既然发言，也就不客气了。

1，这根本就用不着编程
  建立一个空文件，起一个最好记的名字，如acad.dwg，建立各个图层后保存。以后需要添加图层时用INSERT插入这个dwg文件，目的达到。
2，建立了图层，并不等于就一定分层绘图
  一般来说，稍有规模的单位，总会有一位来做诸如制定绘图要求、定制和二次开发的工作，更多的人只管使用。而只管使用的人往往并不体谅别人的用心，你给他做好了基础工作，他并不按照规矩做。
3，这是先建层，然后按层绘。另外一种是先绘，然后自动分层。xyp1964，你以为如何？

先不按图层画，完后用程序自动分层，这样的程序才有实际意义。

as123456

长老说的对

hust_fww

为了年终多点奖金，现在狂练CAD

liinsh

图层问题是老生长谈，在我们单位就没统一过。每个人有每个人的习惯，用的又是不同的专业软件，各自又定义了一堆的图层。每回出图都是头大，尤其是大工程，图形xref一大堆，只好大致改改颜色出图。：（