[求助]用lisp求出所有CAD二维多段线等于十的列表

brain3745

((-1 . <Entity name: dea8df0>) (0 . "LWPOLYLINE") (5 . "104") (67 . 0) (8 . "0") (410 . "Model") (62 . 256) (6 . "ByLayer") (370 . -1) (48 . 1.00000) (60 . 0) (90 . 8.00000) (70 . 0) (43 . 0.000000) (38 . 0.000000) (39 . 0.000000) (210 0.000000 0.000000 1.00000)
(10 154.349 103.751 0.000000) (40 . 0.000000) (41 . 0.000000) (42 . 0.000000)
(10 232.778 180.791 0.000000) (40 . 0.000000) (41 . 0.000000) (42 . 0.000000)
(10 277.891 119.714 0.000000) (40 . 0.000000) (41 . 0.000000) (42 . 0.000000)
(10 360.484 162.051 0.000000) (40 . 0.000000) (41 . 0.000000) (42 . 0.0797022)
(10 370.895 169.686 0.000000) (40 . 0.000000) (41 . 0.000000) (42 . -0.0313589)
 (10 422.949 216.188 0.000000) (40 . 0.000000) (41 . 0.000000) (42 . -0.426363)
(10 551.350 198.142 0.000000) (40 . 0.000000) (41 . 0.000000) (42 . 1.05089)
(10 624.226 256.443 0.000000) (40 . 0.000000) (41 . 0.000000) (42 . 0.655622))

各位高手，大家好，上面发的东西不是什么垃圾，是一个PLINE的属性，我现在有一个问题就是我想找到所有等于10的属性，用lisp要该怎么写才能实现查找出所有等于“10”的列表啊。找第一个我知道的(10 154.349 103.751 0.000000) ，呵呵。谢谢啦

附：谢谢版主的回复，解决上面的问题的同时，又出来了新问题，呵呵。因为我现在已经知道这条PLINE上的全部起点，但我要把每一个对应的坐标标注在对应的点上！这时候我要获取已经找出等于“10”的每一个点，该怎么找啊，麻烦版主啦，谢谢版主！

caoyin

(vl-remove-if-not '(lambda(a)(eq (car a) 10))(entget(car(entsel))))

brain3745

谢谢版主的回复，解决上面的问题的同时，又出来了新问题，呵呵。因为我现在已经知道这条PLINE上的全部起点，但我要把每一个对应的坐标标注在对应的点上！这时候我要获取已经找出等于“10”的每一个点，该怎么找啊，麻烦版主啦，谢谢版主！