nhbabc 发表于 2015-6-25 21:25:41

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


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

......

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

poly168 发表于 2015-8-7 17:01:07

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

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

先判断这个图元是单行文本或多行文本，然后取得它们的字符串即可
页: [1]
查看完整版本: Utility.GetEntity 后如何获取 对象内容