(setq ss (mapcar 'cdr (vl-remove-if-not '(lambda (x) (= (car x) 10)) (entget ent))));取得多段线属性列表，提取10组码的表，提取坐标。
