[求助]：矩形的属性表中有多个10号群码，如何取！

walong

((-1 . <图元名: 40084e10>) (0 . "LWPOLYLINE") (330 . <图元名: 40084cf8>) (5 .
"42") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "0") (100 .
"AcDbPolyline") (90 . 4) (70 . 1) (43 . 0.0) (38 . 0.0) (39 . 0.0) (10 54.1622
433.533) (40 . 0.0) (41 . 0.0) (42 . 0.0) (10 829.153 433.533) (40 . 0.0) (41 .
0.0) (42 . 0.0) (10 829.153 106.855) (40 . 0.0) (41 . 0.0) (42 . 0.0) (10
54.1622 106.855) (40 . 0.0) (41 . 0.0) (42 . 0.0) (210 0.0 0.0 1.0))


上面是矩形的属性表，其中有多个10号群码，
我想取出 (10 54.1622 433.533) 和  (10 829.153 106.855)
请大家帮助！

wkai

(defun c:tt( / n)
(foreach n  (entget (car (entsel)))
  (if (= 10 (car n))
    (setq lst (append lst (list (cdr n))))
    )
  )
(princ lst)(princ)
)