如何取得标注文字的图元名
请问如何通过通过ssget取得一个标注的文字图元名？就象nentsel的效果一样？以前有个帖子说用 tblobjname 和entnext函数可以达到目的，可是还是不会弄，请问怎么用？ ;;根据标注图元获取标注中的文字图元(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
)
页:
[1]