[部分解决]：帮帮忙啦，设定图层问题

haibinpro

如下：
(defun c:TM()
(setvar "cmdecho" 0)
(setq TMchk(tblsearch "layer" "08"))
(cond (= TMchk nil))
(command "layer" "n" "08" "c" "4" "08" "")
(t
(setvar "clayer" "08")
(prin1)
)
)

运行后，如果无08图层，结果如下：
命令: TdmSetLayerPHANTOM ; 错误: 函数错误: T

若已存在，结果如下：
命令: TdmSetLayerPHANTOM
图层“08”已存在。
; 错误: 函数错误: T

那么
; 错误: 函数错误: T
及
图层“08”已存在。的提示如何去除？

我在尝试做无选择集时单击某按钮实现如上功能。
若有选择集则将所选择图元转移到08图层。

有谁能够提供程序参考下么？

zxq0220

(defun c:TM()
(setvar "cmdecho" 0)
(IF (NOT (tblsearch "layer" "08"))
(command "layer" "n" "08" "c" "4" "08" "")
)
(setvar "clayer" "08")
(prin1)
)

haibinpro

谢谢，问题部分解决。

(defun c:TM()
(setvar "cmdecho" 0)
(IF (NOT (tblsearch "layer" "08"))
(command "layer" "n" "08" "c" "4" "08" "")
)
(setvar "clayer" "08")
(IF (NOT (= nil entlast))
(setq s (ssget))
(if (/= s nil)
(command "change" s "" "p" "la" "08" "")
(prin1)
)
(if (= s nil)
(prin1)
)

(prin1)
)
已可实现将选择图元改到08图层，
若无选择图元状态，需按多次enter才能改到08作为当前层，请问应如何处理此程序。

另：
请教一楼
(cond (= TMchk nil))
(command "layer" "n" "08" "c" "4" "08" "")
(t
的格式有误么？

海边的拾贝者

(cond (= TMchk nil))
(command "layer" "n" "08" "c" "4" "08" "")
(t
(setvar "clayer" "08")
(prin1)
)
改为：
(cond ((= TMchk nil)
(command "layer" "n" "08" "c" "4" "08" "")
)
(t
(setvar "clayer" "08")
(prin1)
)
本人菜鸟，打得不对的话，请多指教。