一个程其中一句看不懂了

amwkto2011 · 发表于 2014-12-13 10:51:13

您需要登录才可以下载或查看，没有账号？立即注册

×

(defun c:sel (/ ss i layer lst)
(if (setq ss (ssget))
(progn
(repeat (setq i (sslength ss))
(if (not (member (setq layer (cdr (assoc 8 (entget (ssname ss (setq i (1- i))))))) lst))
(setq lst (cons "," (cons layer lst)))
)
)
(sssetfirst nil (ssget "_A" (list (cons 8 (apply 'strcat (cdr lst))))))
)
)
(princ)
)
;这个程序是，先选择多个图层的对象，然后就能全部选到与前面选的对象相同的图层对象
;(member (setq layer (cdr (assoc 8 (entget (ssname ss (setq i (1- i))))))) lst)
;这一句看不懂了，member 起到什么作用了，要搜索表达式 lst还是空的啊？是有意弄成空吗？
求解答

st788796 · 发表于 2014-12-13 11:15:10

有了就过没有就加入，变量初始值为nil，空表

newer · 发表于 2014-12-13 11:17:28

第一次的时候，表里没有，就加入，以后判断是否没有，没有就加入，然后处理，如何有了就不处理了。明白了吗？

amwkto2011 · 发表于 2014-12-13 11:18:38

st788796 发表于 2014-12-13 11:15
有了就过没有就加入，变量初始值为nil，空表

谢谢哦，还不是很明白的，我写几个程序来试试，应该就更能理解了

amwkto2011 · 发表于 2014-12-13 11:23:39

newer 发表于 2014-12-13 11:17
第一次的时候，表里没有，就加入，以后判断是否没有，没有就加入，然后处理，如何有了就不处理了。明白了吗 ...

是不是这样，
第一次为空，not,返回T
执行后面的，就加入了第一个对象的图层表
然后还有while执行比较，只要不是与第一个相同的图层，就再入
我这样理解对吗？

newer · 发表于 2014-12-13 11:24:13

amwkto2011 发表于 2014-12-13 11:18
谢谢哦，还不是很明白的，我写几个程序来试试，应该就更能理解了

你需要明白一个，就是NIL也是个表，(cons item nil) =(item)

和累加、累乘一样，累加操作，初始值 0，累乘操作，初始值是1，字符串的累积连接，初始值是"",

对表的累积加入元素操作，表的初始值是NIL。

amwkto2011 · 发表于 2014-12-13 11:28:21

newer 发表于 2014-12-13 11:24
你需要明白一个，就是NIL也是个表，(cons item nil) =(item)

和累加、累乘一样，累加操作，初始值 0， ...

原来是这样啊，现在明白了，
上次你帮我解答过，相加，相乘，还有字符串连接。
非常谢谢

账号		自动登录	找回密码
密码			立即注册

[求助] 一个程其中一句看不懂了