.....
Dim returnobj As AcadEntity
Dim basepnt As Variant
ThisDrawing.Utility.GetEntity returnobj, basepnt, "select file name to save"
......
之后如何获取 returnobj 的文本内容，（假设用户屏幕上选的是文本）
求高手支招
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
先判断这个图元是单行文本或多行文本，然后取得它们的字符串即可
置顶卡
