如何取得标注文字的图元名

960322

请问如何通过通过ssget取得一个标注的文字图元名？就象nentsel的效果一样？以前有个帖子说用 tblobjname 和entnext函数可以达到目的，可是还是不会弄，请问怎么用？

wandong

;;根据标注图元获取标注中的文字图元
(defun getmtextofdim(diment / blockname ent entdata)
  (setq blockname (cdr (assoc 2 (entget diment))))
  (setq ent (tblobjname "block" blockname)
          ent (entnext ent)
  );;setq
  (if ent
    (progn
      (setq entdata (entget ent))
      (while (/= (cdr (assoc 0 entdata)) "MTEXT")
        (setq ent (entnext ent)
                entdata (entget ent)
        );;setq
      );;while
    );;progn
  );;if
  ent
)