如何索引到第三个原子对象？

mokson

当我用 (entget (car (entsel))) 选取一个半径标注后，得到它的组码：
选择对象: ((-1 . <图元名: 5c0e2250>) (0 . "DIMENSION") (100 . "AcDbEntity") (8 . "0") (100 . "AcDbDimension") (3 . "Standard") (100 . "AcDbRadialDimension"))


请教问题：上面的组码共有三个100的子组码，我想通过用 "AcDbRadialDimension" 的字串来判断它是一个半径标注，但是用 (assoc 100 en) 的方法，它总是索引到第1个对象("Dimension")，如何写这个lisp 才能索引到第3个呢，即 "AcDbRadialDimension" ?


谢谢相助！

原地踏步

(member '(100 . "AcDbRadialDimension") en)

mokson

用历遍的方法，又多了许多代码，有没有列好的方法？

gaics

(vla-get-objectname obj)

wrf610051

(defun getn ( n a en / term )
        (while (> n 0)
                (setq term (assoc a en))
                (if term
                        (progn
                                (setq en (cdr (member term en)))
                                (setq n (- n 1))
                        )
                        (progn
                                (setq term nil)
                                (setq n 0)
                        )
                )
        )
        term
)
;(getn 3 100 en)

yshf

(last (vl-remove-if '(lambda(x)(/= (car x) 100))
                          (entget (car (entsel "\nent:")))
        ）
)

mokson

感谢大神们的鼎力相助。