[求助]：请各位老师帮我看看

gyc2001

我想学学各位老师那样自已也编个小程序可是刚学不会，今天在网上下了一个专业的图层程序可是想学这改改。改是改好了，可加载后别的程序不好用了不知为何望各位老师帮帮我，谢谢！！！
改后;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;专业图层
;;;层名符合国标要求，层颜色可自定义
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(prompt "\n\r 加载专业图层设置程序。")
(defun c:ZHYTC (/)
(cmdla0)
(c:puu);清除垃圾
(prompt "\n\r 请稍候···")
(princ "·")
(princ)
;;;总图图层
(princ "·")
(princ)
(JZ-TC)
;;;建筑图层
(princ "·")
(princ)
(princ "专业图层设置完毕!")
(cmdla1)
(pxyp "zhytc (专业图层)")
)
;;;defun

;;;建筑图层
(defun jz-tc ()
;;;[—墙体—]
(mkla "建筑-墙体" 2)
;;;[—门—]
(mkla "建筑-门体" 131)
;;;[—窗—]
(mkla "建筑-窗户" 132)
;;;[—柱—]
(mkla "建筑-柱子" 7)
;;;[—其他—]
(mkla "建筑-轴网" 1)
(mkla "建筑-尺寸" 2)
(mkla "建筑-说明" 4)
)
;;;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 (专业图层)")的如下：

好用但我在这下的建轴网程序不好用了。
命令: NetBee_RectAxis 错误: 线型 Axis 未定义，位于图层表记录 Axis
AutoCAD 变量设置被拒绝: "clayer" "Axis"


请各位老师帮帮改改看是那里错了！！！