[求助]為何出現錯誤？

ljs026

请大大帮忙看看，为何出现这样的错误讯息：损坏的引数类型: stringp nil 如果要将下列程序改为可复选，应如何修正？ (defun c:gt( / ent lname)
(setvar "cmdecho" 0)
(setq counter 0)
(setq ent (entsel "\n选择要关闭的图层: "))
(if ent
(progn
(setq e (ssname ss counter))
(setq ent (entget (car ent)))
(setq lname (cdr (assoc 8 (entget e))))
)
(setq lname (getstring "\n未选取，请输入图层名: "))
) ;if ent
(if (= (getvar "clayer") lname)
(setvar "clayer" "0")
)
(command "layer" "off" lname "")
(setq counter (+ counter 1))
(prompt (strcat "\n\t保留..." "\"" l "层" "\""))
(princ)
)

hkzwsy

(setq counter 0)
(setq e (ssname ss counter)) 错误!

BDYCAD

这个程序有很多错误的地方呢. (defun c:gt( / ent lname)
(setvar "cmdecho" 0)
(setq counter "0")
(setq ent (entsel "\n选择要关闭的图层:"))
(if ent
(progn
(setq ent (entget (car ent)))
(setq lname (CDR (ASSOC 8 ent)))
)
(setq lname (getstring "\n未未选取，请输入图层名: "))
) ;if ent
(if (= (getvar "clayer") lname)
(setvar "clayer" "0")
)
(command ".layer" "off" lname "")
(princ)
)

meflying

楼上的提示错误的那句是多余的，而不是错误.


不知道楼主怎么运行过去的,竟然能到后面的一个错误地方?


(prompt (strcat "\n\t保留..." "\"" l "层" "\""))


这里的变量l从头到尾没有赋过值,导致楼主的错误提示

ljs026

请问如何能复选？

meflying

使用ssget函数选择

ljs026

我知道错在那了，谢谢大大，但请问大大，该如何强制关闭当前层？即使我选中的物件为当前层！(不是跳到o层哦)，拜託各位大大囉！

王咣生

(command "layer" "off" (getvar "clayer") "Y" "")

jinzuofeng

(defun c:gt (/ ent lname)
(setvar "cmdecho" 0)
(prompt "\n选择要关闭的图层:")
(setq ss (ssget))
(setq counter 0)
(repeat (sslength ss)
(setq ent (ssname ss counter))
(setq lname (cdr (assoc 8 (entget ent))))
(if (= (getvar "clayer") lname)
(command "_.layer" "off" lname "Y" "")
(command "_.layer" "off" lname "")
)
(setq counter (+ counter 1))
)
(princ)
)

meflying

ljs026发表于2004-9-7 20:55:00我知道错在那了，谢谢大大，但请问大大，该如何强制关闭当前层？即使我选中的物件为当前层！(不是跳到o层哦)，拜託各位大大囉！

把你程序中的这句去掉就可以了,因为当前层是可以关闭的,不需要强制,跟关闭其它层一样 (if (= (getvar "clayer") lname)
(setvar "clayer" "0")
)