再---请教如何用LISP的SSGET函数选中“非锁定层”的实体

luoyaya

aeo000000发表于2003-12-26 0:12:00LUCAS简化

(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")结果这样好像有点问题吧,有什么特别的用处吗?

hiper

meflying:"layer并不是LISP的保留字符串，没有layer这样一个函数，怎么混淆？"

我没说清楚，我是指(tblnext "layer")中的符号表名layer
我的概念不是很清楚,谢谢赐教

无痕

帮LUCAS简化

2. 
   
3. (defun getLayfilter ( / lay a)
   
4.   (setq lay nil a nil) ;我觉得还是加好，否则可能串门；
   
5.   (while(setq lay (tblnext "layer" (not lay)))
   
6.     (if (= (cdr (assoc 70 lay)) 0)
   
7.       (setq a (strcat(if a a "") (if a "," "")  (cdr(assoc 2 lay))))
   
8.     )
   
9.   )
   
10.   (cons 8 a)
    
11. )
    

<br /> (defun getLayfilter ( / lay a)<br />   (setq lay nil a nil) ;我觉得还是加好，否则可能串门；<br />   (while(setq lay (tblnext "layer" (not lay)))<br />     (if (= (cdr (assoc 70 lay)) 0)<br />       (setq a (strcat(if a a "") (if a "," "")  (cdr(assoc 2 lay))))<br />     )<br />   )<br />   (cons 8 a)<br /> ) <br />