明经CAD社区

 找回密码
 注册

扫一扫,访问微社区

QQ登录

只需一步,快速开始

查看: 20628|回复: 64

专业图层设置程序

  [复制链接]
发表于 2004-7-25 10:17 | 显示全部楼层 |阅读模式
本帖最后由 xyp1964 于 2014-8-13 08:11 编辑

专业图层设置程序[code="lisp] ;|专业图层设置程序 图层设置不规范是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(专业图层)")[/code]

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?注册

x

评分

参与人数 2威望 +1 明经币 +1 金钱 +10 贡献 +5 激情 +5 收起 理由
一根烟 + 1 很给力!
断桥 + 1 + 10 + 5 + 5 【好评】好

查看全部评分

发表于 2004-7-25 17:39 | 显示全部楼层
谢谢!我也要!邮箱是robinlxp@fc18.com
发表于 2004-7-25 18:33 | 显示全部楼层
欢迎大家多参与评论
发表于 2004-7-27 08:42 | 显示全部楼层
好东西。不过我还是习惯用英文表图层。而且。这样标图层的话,专业软件就不怎么好用了。
 楼主| 发表于 2004-7-27 12:52 | 显示全部楼层
同意楼上意见,如何使用和发挥,只要方便,怎么着都成。


按照国标要求,也有英文名称的图层标准,本可以编进程序里,限于本人的“应个力是”水平有限,打开图层管理器时往往云山雾罩,所以就放弃了。
发表于 2004-7-30 12:16 | 显示全部楼层
怎么弄啊,我是刚学的,都不会,好郁闷啊
发表于 2004-7-30 16:23 | 显示全部楼层
哇噻,比机械的复杂多了,找个图层都得雾里看花。。
发表于 2004-7-30 17:22 | 显示全部楼层
好东西!谢谢啦.
 楼主| 发表于 2004-7-31 23:27 | 显示全部楼层
小妹丁发表于2004-7-30 16:23:00哇噻,比机械的复杂多了,找个图层都得雾里看花。。

雾里看花当然看不清,建筑工程与机械工程虽说有共通之处,但还是有很大区别,建筑艺术与机械技术的有机结合是工程富有生命力的最新要求,“鸟巢”建筑方案的产生有它的时代需求,建筑艺术是视觉的感受,它需要现代技术作为坚强的后盾,复杂的结构构件、可开启的屋盖构成了2008年奥运会主会场的主要特征。 图层管理在某些方面体现了工程师的理性,其好坏不仅影响自己的效率,更影响与他人或合作伙伴的交流与沟通。 “国标”对机械CAD的图层设置同样有要求,只不过限于自己的专业及精力,未做专门研究。 希望可以进行相关的探讨,以便共同提高。
发表于 2004-8-1 14:09 | 显示全部楼层
一直以来都这样认为,设计人员应该对CAD的图层管理必须规范化,包括相应的颜色、线型等。不知是否有相关的国标或类似的强制性标准加以约束?
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号  
©2000-2017 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2018-1-19 02:05 , Processed in 0.234874 second(s), 29 queries , Gzip On.

Powered by Discuz! X3.3

© 2001-2013 Comsenz Inc.

快速回复 返回顶部 返回列表