[求助]lisp自动建立图层出错问题，及形参建立图层请教

congcong96

sailorcwx发表于2010-5-19 19:32:00(defun c:m71()   (makelayer \"ton\" 2))(defun makelayer(xx1 xx2)  (if (=  xx1 nil)(command \"-layer\" \"new\" xx1 \"color\" xx2  xx1  \"\")))实际

谢谢大家，后来我调试了几次也发现这个问题，后来增加了一个形参解决问题了。

(defun c:m71()  
 (makelayer "ton" ton 2))

(defun makelayer(xx1 xx3 xx2)  (if (=  xx3 nil)(command "-layer" "new" xx1 "color" xx2  xx1  "")))

skg123

给你看一个批量建立图层的例子，程序不是我写的。
你参考一下，
;;;专业图层 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 (专业图层)") -------------------------------------

woky57

学习了。对新手很有用

陈伟

谢谢楼主，对我帮助很大，终于找到设置图层不打印的方法了