(entget (car (entsel)))小疑惑求解

sscylh

再次请教大家一个问题.
比如(entget (car (entsel)))这个经典语句,entsel中我选择的对象是一个矩形,返回的结果是:
((-1 . <图元名: 7ef9b070>) (0 . "LWPOLYLINE") (330 . <图元名:
7ef80cf8>) (5 . "23E") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "0")
(100 . "AcDbPolyline") (90 . 4) (70 . 1) (43 . 0.0) (38 . 0.0) (39 . 0.0) (10
22.758 17.2518) (40 . 0.0) (41 . 0.0) (42 . 0.0) (10 37.4613 17.2518) (40 .
0.0) (41 . 0.0) (42 . 0.0) (10 37.4613 9.55792) (40 . 0.0) (41 . 0.0) (42 .
0.0) (10 22.758 9.55792) (40 . 0.0) (41 . 0.0) (42 . 0.0) (210 0.0 0.0 1.0))
其中有4个10::(10 22.758 17.2518)  (10 37.4613 17.2518)        (10 37.4613 9.55792)   (10 22.758 9.55792)
他们代表的是矩形的四个对角点的坐标
当用(assoc 10 entget..)的时候,得到的是第一个10::(10 22.758 17.2518)
现在的问题是:如何得到其余三个10??

yjr111

(setq s(entget (car (entsel))))
(foreach x s (if (=(car x)10)(setq lst10(cons(cdr x)lst10)))

lht

按yjr111的函数得的是空表,且少个闭括号

Andyhon

More info:
http://www.google.com/search?as_ ... A%2F%2Fbbs.mjtd.com

namezg

(mapcar 'cdr (vl-remove-if '(lambda (x) (/= (car x) 10)) (entget (car (entsel)))))

namezg

(vl-remove nil (mapcar  '(lambda (x) (if (= (car x) 10) (cdr x))) (entget (car (entsel)))))

yjr111

参见http://bbs.mjtd.com/forum.php?mod=viewthread&tid=90011第10楼专家代码！

sscylh

yjr111 发表于 2012-9-11 21:43
参见http://bbs.mjtd.com/forum.php?mod=viewthread&tid=90011第10楼专家代码！

谢谢给的链接!
另:看楼上大侠的代码,有vl系列函数,我自己到现在还未开始学,不知道其用处大吗?值得学吗?看论坛上的代码,这样的函数好像用得并不多.

sscylh

yjr111 发表于 2012-9-11 21:43
参见http://bbs.mjtd.com/forum.php?mod=viewthread&tid=90011第10楼专家代码！

呵呵,不知道您说的表数据是(list 表)还是excel或者txt,dat表,如果是后者的话,我倒更喜欢用vba来解
不管vl是什么函数,随着学习的深入,肯定会接触并学习的
目前兴趣正在逐渐从excel转到cad.
希望能在学习cad过程中得到您的帮助,非常感谢!

dingtiedt

namezg 发表于 2012-9-11 21:16
(vl-remove nil (mapcar  '(lambda (x) (if (= (car x) 10) (cdr x))) (entget (car (entsel)))))

这个非常好！如果现在要修改第二个10的组码值，怎么修改，就是怎么用新的值替换掉第二个10的组码，谢谢！