*请路过的高手进来坐坐,顺便帮我看看为什么出错

iixf

这是一个改图层名的脚本,这个脚本改完名图层名后,不知道怎么样才能把改好名字的图层置为当前层还有就是这个改图层名的脚本,运行的时候有错误提示,请路过的高手指点一下,以下是脚本内容:

2. (defun c:m()
3. (setvar "cmdecho" 0)
4.   (setq LAY NIL)
5.   (while (setq LAY (tblnext "layer" (not LAY)))
6.     (setq NAME (cdr (assoc 2 LAY)))
7.     (if (and (not (wcmatch NAME "*|*"))(/= NAME "0")(/= NAME "Defpoints")
8. )
9. (command "_.rename" "la" NAME (strcat PREFIX NAME))
10.     )
11.   )
12. (setvar "cmdecho" 1)
13.   (princ)
14. )

(defun c:m() (setvar "cmdecho" 0)   (setq LAY NIL)   (while (setq LAY (tblnext "layer" (not LAY)))     (setq NAME (cdr (assoc 2 LAY)))     (if (and (not (wcmatch NAME "*|*"))(/= NAME "0")(/= NAME "Defpoints") ) (command "_.rename" "la" NAME (strcat PREFIX NAME))     )   ) (setvar "cmdecho" 1)   (princ) )

Andyhon

您的 PREFIX 并未赋值
若有请试试能否通过 (strcat PREFIX NAME)

iixf

怎么赋值呢???

iixf

错误如下

1. 命令: m ; 错误: 参数类型错误: stringp ni

复制代码

quanguang

有一下的提示

1. 命令: m ; 错误: 参数类型错误: stringp ni

是因为PREFIX没有定义

Andyhon

这么说吧您想在图层名的前头加什么字串呢

quanguang

至于怎么赋值，那要看你想把图层如何改名称了

ZZXXQQ

1、这是LISP程序，不是脚本。
2、程序遍历层名表，并将每个图层名加上前缀后改名。
3、因为前缀PREFIX未赋值，所以程序出错。
4、设置当前层可以：(setvar "CLAYER" NAME)
5、其实可以直接使用：(command ".layer" "m" "LAYERNAME" "")转到该层。（如果该层不存在，就新建层并转到该层；如果该层存在，直接切换到该层。）