如何选取多段线围成区域里面的实体

wmz

各位大侠,我有一个问题请教,如果用多段线围成一个区域,如何才能做到只要点取该多段线,即可选取里面的所需要层的实体呢(用LISP实现)?

f5612140

(defun c:tttt()
(setq obj (car (entsel "\nSelect a Polyline: ")))
(MASSOC 10 (entget obj))
)
(defun massoc (key alist / x nlist)
(foreach x alist
(if (eq key (car x))
(setq nlist (cons (cdr x) nlist))
)
) (reverse nlist)
(setq ss (ssget "WP" nlist))
)

wmz

多谢f5612140老弟!您的程序经我试用效果很好,解决了我的问题,特表示衷心地感谢,送鲜花一朵!