[求助]為何出現錯誤？

ljs026 · 发表于 2004-9-6 22:13:00

请大大帮忙看看，为何出现这样的错误讯息：损坏的引数类型: 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 · 发表于 2004-9-7 08:26:00

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

BDYCAD · 发表于 2004-9-7 08:34:00

这个程序有很多错误的地方呢.
(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 · 发表于 2004-9-7 08:37:00

楼上的提示错误的那句是多余的，而不是错误.
不知道楼主怎么运行过去的,竟然能到后面的一个错误地方?
(prompt (strcat "\n\t保留..." "\"" l "层" "\""))
这里的变量l从头到尾没有赋过值,导致楼主的错误提示

ljs026 · 发表于 2004-9-7 13:06:00

请问如何能复选？

meflying · 发表于 2004-9-7 13:34:00

使用ssget函数选择

ljs026 · 发表于 2004-9-7 20:55:00

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

王咣生 · 发表于 2004-9-7 21:07:00

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

jinzuofeng · 发表于 2004-9-7 23:56:00

(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 · 发表于 2004-9-8 08:20:00

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

[求助]為何出現錯誤？

发表回复

精选推荐