实体中有几个330组码值，怎样读取最后一个？

lihengmin

如下

命令: (entget (car (entsel)))
选择对象: ((-1 . <图元名: 4058b5a0>) (0 . "LWPOLYLINE") (5 . "241DC4") (102 .
"{ACAD_REACTORS") (330 . <图元名: 4055f688>) (330 . <图元名: 4058e568>) (102 .
"}") (330 . <图元名: 4008ecc0>) (100 . "AcDbEntity") (67 . 0) (410 . "Model")
(8 . "DLJ") (6 . "Continuous") (100 . "AcDbPolyline") (90 . 41) (70 . 129) (43
. 0.0) (38 . 262.367) (39 . 0.0) (10 517714.0 4.05259e+006) (40 . 0.0) (41 .
0.0) (42 . 0.0) (10 517710.0 4.0526e+006) (40 . 0.0) (41 . 0.0) (42 . 0.0) (10
517710.0 4.0526e+006) (40 . 0.0) (41 . 0.0) (42 . 0.0) (10 517712.0
4.0526e+006) (40 . 0.0) (41 . 0.0) (42 . 0.0) (10 517705.0 4.0526e+006) (40 .
0.0) (41 . 0.0) (42 . 0.0) (10 517697.0 4.0526e+006) (40 . 0.0) (41 . 0.0) (42
. 0.0) (10 517688.0 4.0526e+006) (40 . 0.0) (41 . 0.0) (42 . 0.0) (10 517673.0
4.05259e+006) (40 . 0.0) (41 . 0.0) (42 . 0.0) (10 517659.0 4.05259e+006) (40 .
0.0) (41 . 0.0) (42 . 0.0) (10 517649.0 4.05259e+006) (40 . 0.0) (41 . 0.0) (42
. 0.0) (10 517634.0 4.05259e+006) (40 . 0.0) (41 . 0.0) (42 . 0.0) (10 517634.0
4.05259e+006) (40 . 0.0) (41 . 0.0) (42 . 0.0) (10 517628.0 4.05258e+006) (40 .
0.0) (41 . 0.0) (42 . 0.0) (10 517614.0 4.05257e+006) (40 . 0.0) (41 . 0.0) (42
. 0.0) (10 517606.0 4.05257e+006) (40 . 0.0) (41 . 0.0) (42 . 0.0) (10 517606.0
4.05257e+006) (40 . 0.0) (41 . 0.0) (42 . 0.0) (10 517586.0 4.05256e+006) (40 .
0.0) (41 . 0.0) (42 . 0.0) (10 517577.0 4.05255e+006) (40 . 0.0) (41 . 0.0) (42
. 0.0) (10 517573.0 4.05255e+006) (40 . 0.0) (41 . 0.0) (42 . 0.0) (10 517571.0
4.05255e+006) (40 . 0.0) (41 . 0.0) (42 . 0.0) (10 517600.0 4.05252e+006) (40 .
0.0) (41 . 0.0) (42 . 0.0) (10 517606.0 4.05253e+006) (40 . 0.0) (41 . 0.0) (42
. 0.0) (10 517611.0 4.05253e+006) (40 . 0.0) (41 . 0.0) (42 . 0.0) (10 517616.0
4.05253e+006) (40 . 0.0) (41 . 0.0) (42 . 0.0) (10 517617.0 4.05254e+006) (40 .
0.0) (41 . 0.0) (42 . 0.0) (10 517624.0 4.05254e+006) (40 . 0.0) (41 . 0.0) (42
. 0.0) (10 517627.0 4.05254e+006) (40 . 0.0) (41 . 0.0) (42 . 0.0) (10 517638.0
4.05254e+006) (40 . 0.0) (41 . 0.0) (42 . 0.0) (10 517658.0 4.05255e+006) (40 .
0.0) (41 . 0.0) (42 . 0.0) (10 517674.0 4.05256e+006) (40 . 0.0) (41 . 0.0) (42
. 0.0) (10 517683.0 4.05256e+006) (40 . 0.0) (41 . 0.0) (42 . 0.0) (10 517691.0
4.05256e+006) (40 . 0.0) (41 . 0.0) (42 . 0.0) (10 517701.0 4.05256e+006) (40 .
0.0) (41 . 0.0) (42 . 0.0) (10 517708.0 4.05257e+006) (40 . 0.0) (41 . 0.0) (42
. 0.0) (10 517710.0 4.05257e+006) (40 . 0.0) (41 . 0.0) (42 . 0.0) (10 517711.0
4.05257e+006) (40 . 0.0) (41 . 0.0) (42 . 0.0) (10 517714.0 4.05258e+006) (40 .
0.0) (41 . 0.0) (42 . 0.0) (10 517715.0 4.05258e+006) (40 . 0.0) (41 . 0.0) (42
. 0.0) (10 517717.0 4.05259e+006) (40 . 0.0) (41 . 0.0) (42 . 0.0) (10 517717.0
4.05259e+006) (40 . 0.0) (41 . 0.0) (42 . 0.0) (10 517714.0 4.05259e+006) (40 .
0.0) (41 . 0.0) (42 . 0.0) (210 0.0 0.0 1.0))

jdhszh

(assoc 330 (reverse (entget (car (entsel)))))

lihengmin

十分感谢

lihengmin

不好意思,读倒数第二个怎样读啊

lihengmin

帮帮忙吧

caoyin

(setq x (reverse (entget (car (entsel)))))
(assoc 330 (cdr (member (assoc 330 x) x)))

sailorcwx

 (setq lst330 '())
(mapcar '(lambda(x) (if (= (car x) 330)(setq lst330 (append lst330 (list (cdr x)))))) (entget (car (entsel))))

然后用nth读取,随便你喜欢读哪个

caoyin

<br/>(vl-remove-if '(lambda(x) (/= (car x) 330)) (entget (car (entsel))))