Question

cad lisp用中文名的图层出错？

;设置当前图层的函数：
(defun ChangeLayer (TargetLayer) ;设置当前图层的函数
(setvar "clayer" TargetLayer) ;设置当前图层为目标图层
)
;快速切换图层的函数:
(defun c:13()
(ChangeLayer "1-luo-新建墙体") ;用中文名的图层出错？

Answer 1

1. 需要检查是否有这个图层；
   
   

2. 代码的【()】要完整对应；修改的代码如下

(defun ChangeLayer (TargetLayer / targetlayer) ;设置当前图层的函数

 (if (tblsearch "layer" TargetLayer);检查是否有这个图层

  (setvar "clayer" TargetLayer) ;设置当前图层为目标图层

 )

)

;快速切换图层的函数:

(defun c:13() 

 (ChangeLayer "1-luo-新建墙体")

)

追问

有这个图层（1-luo-新建墙体），输入13命令后，提示“13 nil”,请问为什么不行？

追答

命令行提示【13nil】表示，这段程序没有加载成功。
你写程序的时候，少了一个【刮弧：)】，仔细看我修正的程序，已经添加了。

追问

运行这个lsp文件，还是不行，提示13 nil,但是把“1-luo-新建墙体”换成其他的英文名图层是成功的。请问怎么解决？

追答

不能作为当前的图层有两个情况：
1.参照图层
2.冻结图层
你的图纸应当属于第1种情况，解决方法也简单，把参照图形变为块就可以。

追问

我的图层不是参照图层，也没有冻结图层。你可以新建一个中文名的图层，然后用lisp切换一下该图层，会提示nil.