[编程申请]：自编的改层LISP

zxy9202

诸位大侠，自己编了一个改图层的lisp，目的是可以通过命令来修改物体的图层名，由于探索者的图层较长，也可以自动判断并进行修改，例如探索者的柱标注为COLU_DIM，则输入程序设定的默认CD即可自动将物体所在层改到了COLU_DIM，如果图层不存在，则新建图层。现在的问题是，程序不太稳定，有时候突然就不能用了，请诸位高手多多指教。

;CHANGE OBJIECT TO A LAYER
(defun c:gc (/ Layer_name Object_name Current_layer_name Temp_layer_name layer_color)
  (setvar "cmdecho" 0)
  (setq Layer_name (getstring "\nInput object layer[柱标注(CD)\\柱填充(CH)\\柱编号(CB)\\墙标注(WD)\\墙填充(WH)\\墙详图(WX)\\墙详图钢筋(WG)\\钢筋(G)\\表格文字(TT)]:"))
  (setq Object_name (ssget))
  (setq Current_layer_name (getvar "CLAYER"))
  ;The following is a description of the layer setup
  (setq Layer_name (cond ((= Layer_name "CD") "COLU_DIM")
                   ((= Layer_name "CH") "COLU_HATCH")
                   ((= Layer_name "CB") "COLU_NUM")
                   ((= Layer_name "WD") "WALL_DIM")
                   ((= Layer_name "WH") "WALL_HATCH")
                   ((= Layer_name "WX") "WALL_DE")
                   ((= Layer_name "WG") "WALL_DE_REIN")
                   ((= Layer_name "G") "REIN")
                   ((= Layer_name "TT") "TAB_TEXT")
;;;                   (t Layer_name)
             )       
  )
  (setq Temp_layer_name (tblsearch "layer" Layer_name))
  (if (= Temp_layer_name nil)
    (progn
      (princ "\nhaven't this layer:")
      (setq layer_color (getint "\n Input the layer's layer_color:"))
      (COMMAND "-LAYER" "n" Layer_name "c" layer_color Layer_name "")
      (command "change" Object_name "" "p" "la" Layer_name "")
    )
    (command "change" Object_name "" "p" "la" Layer_name "")   
  )
  (command "CLAYER" Current_layer_name)
  (prin1)   
)

jiang_fengye

顶

gysjy

将
(setq Layer_name (getstring "\nInput object layer[柱标注(CD)\\柱填充(CH)\\柱编号(CB)\\墙标注(WD)\\墙填充(WH)\\墙详图(WX)\\墙详图钢筋(WG)\\钢筋(G)\\表格文字(TT)]:"))
改为
(setq Layer_name (strcase (getstring "\nInput object layer[柱标注(CD)\\柱填充(CH)\\柱编号(CB)\\墙标注(WD)\\墙填充(WH)\\墙详图(WX)\\墙详图钢筋(WG)\\钢筋(G)\\表格文字(TT)/<柱标注>]:")))
将
;;; (t Layer_name)
改为
(t "COLU_DIM")

zxy9202

下午翻了一下午的书，已经有办法解决了，方法就同3楼的说法一样，不过我的程序稍微处理的麻烦一点，以下为修改好的源程序，再次感谢gysjy。
;CHANGE OBJIECT TO A LAYER
(defun c:gc (/ Layer_name Object_name Current_layer_name Temp_layer_name layer_color)
  (setvar "cmdecho" 0)
  (setq Layer_name (getstring "\nInput object layer[柱标注(CD)\\柱填充(CH)\\柱编号(CB)\\墙标注(WD)\\墙填充(WH)\\墙详图(WX)\\墙详图钢筋(WG)\\钢筋(G)\\表格文字(TT)]:"))
  (setq Layer_name (strcase Layer_name));将图层名称转换为大写字母
  (setq Object_name (ssget))
  (setq Current_layer_name (getvar "CLAYER"))
  ;The following is a description of the layer setup
  (setq Layer_name (cond ((= Layer_name "CD") "COLU_DIM")
                         ((= Layer_name "CH") "COLU_HATCH")
                         ((= Layer_name "CB") "COLU_NUM")
                         ((= Layer_name "WD") "WALL_DIM")
                         ((= Layer_name "WH") "WALL_HATCH")
                         ((= Layer_name "WX") "WALL_DE")
                         ((= Layer_name "WG") "WALL_DE_REIN")
                         ((= Layer_name "G") "REIN")
                         ((= Layer_name "TT") "TAB_TEXT")
                         (T Layer_name)         
                   )
  )
  (setq Temp_layer_name (tblsearch "layer" Layer_name))
  (if (= Temp_layer_name nil)
    (progn
      (princ "\nhaven't this layer:")
      (setq layer_color (getint "\n Input the layer's layer_color:"))
      (COMMAND "-LAYER" "n" Layer_name "c" layer_color Layer_name "")
      (command "change" Object_name "" "p" "la" Layer_name "")
    )
    (command "change" Object_name "" "p" "la" Layer_name "")   
  )
  (command "CLAYER" Current_layer_name)
  (prin1)   
)

nichon

谢谢啊，我还不会编程啊