有关ASSOC的用法

sunnylhj

如下角度标注有2个100的DXF码，如果用：(assoc 100 ent) 的时候只能取出第一个(100 . "AcDbEntity") ，怎样才能取出第二个(100 . "AcDb3PointAngularDimension")呢？

((-1 . <Entity name: 7ffffb0ba40>) (0 . "DIMENSION") (330 . <Entity name: 7ffffbed9f0>) (5 . "4EC") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "CON") (100 . "AcDbDimension") (280 . 0) (2 . "*D13") (10 2016.74 1419.8 0.0) (11 2033.82 1426.12 0.0) (12 0.0 0.0 0.0) (70 . 37) (1 . "") (71 . 5) (72 . 1) (41 . 1.0) (42 . 2.92078) (73 . 0) (74 . 0) (75 . 0) (52 . 0.0) (53 . 0.0) (54 . 0.0) (51 . 0.0) (210 0.0 0.0 1.0) (3 . "DEFAULT") (100 . "AcDb3PointAngularDimension") (13 2008.38 1452.63 0.0) (14 2026.87 1462.2 0.0) (15 2017.09 1458.44 0.0) (16 0.0 0.0 0.0) (40 . 0.0) (50 . 0.0))

Andyhon

reverse 先

xyp1964

2. ;;; (aaa (car (entsel "\n选择标注: ")) 100)
   
3. (defun aaa (s1 code)(mapcar 'cdr (vl-remove-if '(lambda (x) (/= (car x) code)) (entget s1))))

;;; (aaa (car (entsel "\n选择标注: ")) 100)<br /> (defun aaa (s1 code)(mapcar 'cdr (vl-remove-if '(lambda (x) (/= (car x) code)) (entget s1))))

sunnylhj

Andyhon 发表于 2014-7-19 20:11
reverse 先

用这个简单点！

sunnylhj

xyp1964 发表于 2014-7-19 21:25

一直都搞不懂lambda函数，感觉好难懂！

Andyhon

就想像它是蒙面的 Defun ...