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

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;
) 主函数如下： (defun c:xxx()
(setq pos1 (getpoint "\n第一点 : "))
(if pos1 (setq pos2 (getcorner pos1 "\n第二点 : ")))
(setq ssw (ssget "W" pos1 pos2 (list '(-4 . "<OR")'(0 . "LWPOLYLINE")'(0 . "POLYLINE")'(-4 . "OR>"))))
(if ssw (setq ssw (ss_layer_check ssw)))
(if ssw (command "EXPLODE" ssw))
) 尤其是其中的(or (= lcode70 0)(= lcode70 64))那个64码代表什么意义？

meflying

是一个过滤选择集的子程序，两个代码意义参考帮助文件中的DXF部分。。。 其实可以将主函数中的过滤表改成如下直接过滤，而不需要这个子函数了： (setq ssw (ssget "W" pos1 pos2 (list '(0 . "*POLYLINE") '(-4 . "<OR") '(70 . 0) '(70 . 64) '(-4 . "OR>"))))