如何获取相同组码的属性？

lcctshu

一个图案填充，结构如下：

选择对象: ((-1 . <图元名: 7ef9b260>) (0 . "HATCH") (330 . <图元名: 7ef97cc0>)
(5 . "324C") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "GCD") (62 .
94) (6 . "Continuous") (370 . 0) (100 . "AcDbHatch") (10 0.0 0.0 81.102) (210
0.0 0.0 1.0) (2 . "SOLID") (70 . 1) (71 . 0) (91 . 1) (92 . 1) (93 . 1) (72 .
2) (10 460072.0 2.568e+006 0.0) (40 . 0.5) (50 . 0.0) (51 . 6.28319) (73 . 1)
(97 . 0) (75 . 0) (76 . 1) (98 . 0) (450 . 0) (451 . 0) (460 . 0.0) (461 . 0.0)
(452 . 0) (462 . 0.0) (453 . 0) (470 . "")

我想获取： (10 0.0 0.0 81.102)     ，  (10 460072.0 2.568e+006 0.0)  两个属性，

我使用（assoc 10 (entget (car (entsel)))）只能获取到第一个，我想两个都获取，代码该如何写啊？

ljttjl

将上个图元表赋值给变量a，如下写

(setq b '())

(foreach x a

  (if (= (car x) 10)

    (setq b (append (list x) b) ) 

  )

)

以上语句返回b表，即为所需要的数据。