如何获取相同组码的属性？
<p>一个图案填充，结构如下：</p><p>选择对象: ((-1 . <图元名: 7ef9b260>) (0 . "HATCH") (330 . <图元名: 7ef97cc0>) <br/>(5 . "324C") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "GCD") (62 . <br/>94) (6 . "Continuous") (370 . 0) (100 . "AcDbHatch") (10 0.0 0.0 81.102) (210 <br/>0.0 0.0 1.0) (2 . "SOLID") (70 . 1) (71 . 0) (91 . 1) (92 . 1) (93 . 1) (72 . <br/>2) (10 460072.0 2.568e+006 0.0) (40 . 0.5) (50 . 0.0) (51 . 6.28319) (73 . 1) <br/>(97 . 0) (75 . 0) (76 . 1) (98 . 0) (450 . 0) (451 . 0) (460 . 0.0) (461 . 0.0) <br/>(452 . 0) (462 . 0.0) (453 . 0) (470 . "")</p><p>我想获取： (10 0.0 0.0 81.102) ， (10 460072.0 2.568e+006 0.0) 两个属性，</p><p>我使用（assoc 10 (entget (car (entsel)))）只能获取到第一个，我想两个都获取，代码该如何写啊？</p> <p>将上个图元表赋值给变量a，如下写</p><p>(setq b '())</p><p>(foreach x a </p><p> (if (= (car x) 10) </p><p> (setq b (append (list x) b) ) </p><p> )</p><p>)</p><p>以上语句返回b表，即为所需要的数据。</p><p> </p> 很好→很棒！很好~很棒！！很好……很棒！！！
页:
[1]