点选子图元如何得到主图元

xiaoyingzi

请教各位：点选子图元如何得到主图元，用entnext 老是lentityp nil
例如：
(defun c:tt ()
(if (setq ob1 (nentsel "\n点选图块中的文字:"))
          (setq obt (car ob1))
)
(if (not obt) (exit) (setq obn obt))
(princ obt)
(while
     (/= "SEQEND"
          (cdr
              (assoc 0
                     (setq ent2
                           (entget (setq obn (entnext obn)))         
                     )
               )
          )
     )
)                                    ;;; 循环﹐直到找到SEQEND
(setq obn (cdr (assoc -2 ent2)))     ;;;从SEQEND中获得主图元名obn  
(princ obn)     
)

yjr111

请看一下nentsel的用法，返回值中就有主图元名(car(last (nentsel)))

xiaoyingzi

感谢楼上提醒，简单的事情被我搞复杂了