[分享]：专业图层设置程序（免币）

xyp1964

[php]专业图层设置程序：
    图层设置不规范是cad绘图的通病，如果不使用专业软件，情况更是如此。
    其结果是不便于编辑，也不便于专业间的交流。
利用本程序可以建立国标所要求的建筑设计的所有图层（中文名称），图层清晰明了，同时还可以自动清除文件中的“垃圾”，使文件减肥。

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

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

    加载zhytc.lsp，运行zhytc。

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;专业图层 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 (专业图层)")
;[B]专业图层设置程序 [/B] 专业图层设置程序[/COLOR][/php]

xyp1964

附图：

xxxyzxx

谢谢楼主提供，虽然我不懂LISP，但是可以照葫芦划瓢，把楼主的一些命令行，改成我自己的就有自己建层的规范了，不知道行否？
(defun ?????
  (mkla "????" 5)
对楼主程序的疑问，有些层并没有创建，如下所示
;;;室内图层
(defun SN-TC ()


[PHP]
为了自己的需要我做了如下改动，不知是否还有能自己改动的地方？请高手指教
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;专业图层 zhytc.lsp
;;;层名符合国标要求，层颜色可自定义
;;;自己做了改动，满足个人需求*@_@*
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(prompt "\n\r      加载专业图层设置程序。")
(defun c:ZHYTC (/)
  (cmdla0)
  (c:puu);清除垃圾
  (prompt "\n\r      请稍候···")
  (princ "·")
  (princ)
  (MY-TC)
;;;我的图层
  (princ "·")
  (princ)
  (LS-TC)
;;;临时图层
  (princ "·")
  (princ)
  (princ "专业图层设置完毕!")
  (cmdla1)
  (pxyp "zhytc  (专业图层)")
)
;;;defun

;;;我的图层
(defun MY-TC ()
;;;[—常用—]
  (mkla "PL层" 2)
  (mkla "BO层" 50)
  (mkla "BH层" 7)
;;;[—不常用—]
  (mkla "SPL层" 150)
;;;defun

;;;临时图层
(defun LS-TC ()
;;;[—没用也不能删—]
  (mkla "没用也不能删" 210)
;;;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 (专业图层)")
[/PHP]

xyp1964

最初由 xxxyzxx 发布
[B]谢谢楼主提供，虽然我不懂LISP，但是可以照葫芦划瓢，把楼主的一些命令行，改成我自己的就有自己建层的规范了，不知道行否？
(defun ?????
  (mkla "????" 5)
对楼主程序的疑问，有些层并没有创建，如下所示
;;;... [/B]

行不行，加载后运行就知道。
少了两个右括号，当然不能加载和运行。
不过方法还是可以的！继续努力！
修改如下：
[php]
(defun c:test (/);;;test命令 可以自定义
  (cmdla0)
  (c:puu)
;;;我的图层
  (MY-TC)
  (cmdla1)
)
(defun MY-TC ()
;;;[—常用—]
  (mkla "PL层" 2)
  (mkla "BO层" 50)
  (mkla "BH层" 7)
;;;[—不常用—]
  (mkla "SPL层" 150)
;;;临时图层[—没用也不能删—]
  (mkla "没用也不能删" 210)
)

(defun CMDLA0 ()
  (setq cmdech (getvar "CMDECHO"))
  (setq oom (getvar "orthomode"))
  (setq osm (getvar "osmode"))
  (SETQ LA (getvar "clayer"))
  (setq rmode (getvar "regenmode"))
  (setq pw (getvar "plinewid"))
  (setvar "regenmode" 0)
  (setvar "CMDECHO" 0)
  (princ)
)
(defun CMDLA1 ()
  (setvar "CMDECHO" cmdech)
  (setvar "orthomode" oom)
  (setvar "osmode" osm)
  (setvar "clayer" LA)
  (setvar "regenmode" rmode)
  (setvar "plinewid" pw)
  (princ)
)
(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 C:PUU () (repeat 3 (COMMAND "-PURGE" "A" "" "n")))
[/php]

xxxyzxx

恩，谢谢老大，很好使
疑问1.(defun CMDLA1 ()和 (Defun MKLA (a b) 的顺序在何时可以换位置？
疑问2.“保存原有系统变量，设置程序运行时的系统变量”这个语句的具体用途是？
疑问3.老大的原始程序中 (princ "·") 与(princ)的作用，为什么老大帮我改版的那个就不需要了呢？

qsg12

有仕么用

xyp1964

最初由 xxxyzxx 发布
[B]恩，谢谢老大，很好使
疑问1.(defun CMDLA1 ()和 (Defun MKLA (a b) 的顺序在何时可以换位置？
疑问2.“保存原有系统变量，设置程序运行时的系统变量”这个语句的具体用途是？
疑问3.老大的原始程序中 (princ "·... [/B]

[php]
问题①
(defun CMDLA1 ()……和 (Defun MKLA (a b)…… 的顺序在任何时候都可以换位置，两个都是单独的子程序。
问题②
这是个人习惯问题，本人的程序都以(cmdla0)开头以(cmdla1)结尾。
比如，程序运行前，用户可能设置了捕捉，而程序运行中为避免错误取消了捕捉，程序运行的最后再恢复原来的捕捉设置。
问题③
当有n个实体要处理时，程序运行过程可能会花费一段时间，为避免引起“死机”的误会，在程序中适当添加(princ "·")，屏幕能不断显示......也就是告诉你：别着急，“我姓流，氓着呢”！呵呵……[/php]

aeo

我基本不设层

有没有发现
entmod是可以自动建层的.

xyp1964

最初由 aeo 发布
[B]我基本不设层

有没有发现
entmod是可以自动建层的. [/B]

还可以“不设层”？
“entmod是可以自动建层的”，这不是也设层了？！
所谓“自动建层”不知何意？编程与操作不会简单吧？
请老大明示！

aeo

(setq e(car(entsel)))
(setq en(entget e))
(entmod
(subst(cons 8 "AEO")(assoc 8 en)en)
)

如果就一两个实体，又要建层，设层，还要恢复层，还要对应的*error*
你说哪个烦一点?

xyp1964

谁画图“就一两个实体”呢？

自由的鱼

我现在也遇到了这些问题了，图层太多，要做一些处理的时候还真的很麻烦！尤其是别的单位过来的图，真是要命！

xyp1964

最初由 自由的鱼 发布
[B]我现在也遇到了这些问题了，图层太多，要做一些处理的时候还真的很麻烦！尤其是别的单位过来的图，真是要命！ [/B]

如果只有白色、“0”层，那就更惨了！欲哭无泪！呵呵……

xxxyzxx

听了老大的解说，对LSP有些开窍了：）～
疑问2+.“保存原有系统变量，设置程序运行时的系统变量”是否只是保留捕捉设置，如果新调用的LSP程序中的命令与原自动加载LSP命令重名如何处理？
疑问3+.(princ "·")，屏幕能不断显示......，如果改为(princ "程序正在生成XX层")，能否只显示一次而不是“程序正在生成XX层程序正在生成XX层程序正在生成XX层”的状态？
疑问4.记得以前的版本中能删除0层，而现在似乎不能了，将0层重命名似乎也不行，不知老大有什么高招？
疑问5.与12楼楼主相似问题，是否能在生成新层的时候添加一个命令，对原有层作系统的处理（目前的PUU只是清理垃圾） ，例：
图原有层为：
C1
c1
C1行政办公用地
xyp1964－c1
xxxyzxx  －c1
xxxyzxx  －c1行政办公用地
C2
......

新创建层名为:
G-C1行政办公用地
G-C2商业金融业用地
......
能否对系统原有层作选择判断，将所有带某一特征的所有层（含带C1的）提取、合并、并重命名（如G-C1行政办公用地）
最好能弹出对话框列表，默认设置为替换具有某一特征的所有层，并能手动选择（机器也许只注意特征码，不会识别是英文人名还是层名）

xyp1964

疑问2+：除保留捕捉设置外还用层及正交状态。如果重名可以改名称或重新加载程序。
疑问3+：把(princ "程序正在生成XX层，请稍候——")放到最前面就可以了。
疑问4：0层是不能删除的！
疑问5：所谓“对原有层作系统的处理”要根据实际需求而定。“将所有带某一特征的层（如C1）提取、合并、并重命名（如G-C1行政办公用地）”虽然是个想法，肯定能实现，但有一定的风险。