(SSGetByPoly)批量获得封闭多段线内部文字的选择集

http://bbs.mjtd.com/forum.php?mod=viewthread&tid=88086#lastpost

;;;测试： (SSGetByPoly (car (entsel "\n 选择多段线: ")) '((0 . "*text")))
(defun SSGetByPoly (poly filter / pl ss)
  (setq pl (mapcar 'cdr (vl-remove-if '(lambda (X) (/= 10 (car x))) (entget poly))))
  (setq ss (ssget "wp" pl filter))
)