专业图层设置程序
本帖最后由 xyp1964 于 2014-8-13 08:11 编辑 <br /><br /> 专业图层设置程序;|专业图层设置程序图层设置不规范是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(专业图层)") 谢谢！我也要！邮箱是robinlxp@fc18.com 欢迎大家多参与评论 好东西。不过我还是习惯用英文表图层。而且。这样标图层的话，专业软件就不怎么好用了。 同意楼上意见，如何使用和发挥，只要方便，怎么着都成。
按照国标要求，也有英文名称的图层标准，本可以编进程序里，限于本人的“应个力是”水平有限，打开图层管理器时往往云山雾罩，所以就放弃了。 怎么弄啊，我是刚学的，都不会，好郁闷啊 哇噻，比机械的复杂多了，找个图层都得雾里看花。。 好东西!谢谢啦. 小妹丁发表于2004-7-30 16:23:00static/image/common/back.gif哇噻，比机械的复杂多了，找个图层都得雾里看花。。
<BR>雾里看花当然看不清，建筑工程与机械工程虽说有共通之处，但还是有很大区别，建筑艺术与机械技术的有机结合是工程富有生命力的最新要求，“鸟巢”建筑方案的产生有它的时代需求，建筑艺术是视觉的感受，它需要现代技术作为坚强的后盾，复杂的结构构件、可开启的屋盖构成了2008年奥运会主会场的主要特征。
图层管理在某些方面体现了工程师的理性，其好坏不仅影响自己的效率，更影响与他人或合作伙伴的交流与沟通。
“国标”对机械CAD的图层设置同样有要求，只不过限于自己的专业及精力，未做专门研究。
希望可以进行相关的探讨，以便共同提高。 一直以来都这样认为，设计人员应该对CAD的图层管理必须规范化，包括相应的颜色、线型等。不知是否有相关的国标或类似的强制性标准加以约束？