aeo000000发表于2003-12-26 0:12:00static/image/common/back.gifLUCAS简化
(defun getLayer ( / lay lay_list a)
(while(setq lay(tblnext "layer" (not lay)))
(if (= (cdr(assoc 70 lay))0)
(setq a(strcat(if a a"
为什么要加一下个,(8 . ",0")结果这样好像有点问题吧,有什么特别的用处吗?
meflying:"layer并不是LISP的保留字符串，没有layer这样一个函数，怎么混淆？"
我没说清楚，我是指(tblnext "layer")中的符号表名layer
我的概念不是很清楚,谢谢赐教
帮LUCAS简化
(defun getLayfilter ( / lay a)
(setq lay nil a nil) ;我觉得还是加好，否则可能串门；
(while(setq lay (tblnext "layer" (not lay)))
(if (= (cdr (assoc 70 lay)) 0)
(setq a (strcat(if a a "") (if a "," "")(cdr(assoc 2 lay))))
)
)
(cons 8 a)
)