[LISP程序]：这段子程序是什么作用？老师们帮忙解释一下？

baozhiliang

(defun ss_layer_check(ss / sss i entname ent lcode70)
        (if ss
                (progn
                        (setq sss (ssadd) i 0)
                        (repeat (sslength ss)
                                (setq entname (ssname ss i))
                                (if (setq ent (entget entname))
                                        (progn
                                                (setq lcode70 (cdr (assoc 70 (entget (tblobjname "LAYER" (cdr (assoc 8 ent)))))))
                                                (if (or (= lcode70 0)(= lcode70 64))
                                                        (setq sss (ssadd entname sss))
                                                )
                                        )
                                )
                                (setq i (1+ i))
                        )
                        (if (= (sslength sss)0)(setq sss nil))
                )
        )
        sss;
)

主程序如下：
不好意思，代码贴上来老是处错，只好做成附件了。

eachy

检查是不是在锁定层，可以使用一个未公布的过滤参数的。

baozhiliang

谢谢EA及时解释。

fools

最初由 eachy 发布
[B]检查是不是在锁定层，可以使用一个未公布的过滤参数的。 [/B]

能说说是哪个参数吗？多谢！

xyp1964

最初由 baozhiliang 发布
[B](defun ss_layer_check(ss / sss i entname ent lcode70)
        (if ss
                (progn
                        (setq sss (ssadd) i 0)
                        (repeat (sslength ss)
                                (setq entname (ssname ss i))
                                (if (setq ent (entget entname))
                ... [/B]

程序太多，还是自己先搞清！
对不起，有点严重！