如何获得文本或属性文本内容

nhbabc

已定义了

.........
Dim returnobj As AcadEntity
   Dim basepnt As Variant
   ThisDrawing.Utility.GetEntity returnobj, basepnt, "select file name to save"
...........
   假设用户从屏幕上只选取文本或属性定义，如何获得属性或文本的内容，好另存文件名？
期待高手回复。