lihengmin 发表于 2008-7-15 18:40:00

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

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

jdhszh 发表于 2008-7-15 20:38:00

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

lihengmin 发表于 2008-7-15 22:58:00

十分感谢

lihengmin 发表于 2008-7-15 23:21:00

<p>不好意思,读倒数第二个怎样读啊</p>

lihengmin 发表于 2008-7-15 23:31:00

帮帮忙吧

caoyin 发表于 2008-7-16 09:21:00

(setq x (reverse (entget (car (entsel)))))<br/>(assoc 330 (cdr (member (assoc 330 x) x)))

sailorcwx 发表于 2008-7-16 13:58:00

<p>&nbsp;(setq lst330 '())<br/>(mapcar '(lambda(x) (if (= (car x) 330)(setq lst330 (append lst330 (list (cdr x)))))) (entget (car (entsel))))</p><p>然后用nth读取,随便你喜欢读哪个</p>

caoyin 发表于 2008-7-16 14:12:00

<br/>(vl-remove-if '(lambda(x) (/= (car x) 330)) (entget (car (entsel))))
页: [1]
查看完整版本: 实体中有几个330组码值，怎样读取最后一个？