Utility.GetEntity 后如何获取 对象内容

nhbabc

.....
Dim returnobj As AcadEntity
   Dim basepnt As Variant
ThisDrawing.Utility.GetEntity returnobj, basepnt, "select file name to save"

......

之后如何获取 returnobj 的文本内容，（假设用户屏幕上选的是文本）
求高手支招

poly168

Dim returnobj As AcadEntity
    Dim basepnt As Variant
ThisDrawing.Utility.GetEntity returnobj, basepnt, "select file name to save"

if typename(returnobj)="IAcadMText" or  typename(returnobj)="IAcadText" then name1=returnobj.textstring

先判断这个图元是单行文本或多行文本，然后取得它们的字符串即可