显示其ObjectID程序是这样的: 当生成字符串实体A之后,A.ObjectID为2104788765,当我新插入一个字符串实体B之后,发现A.ObjectID为2871635120,由此看来,A的ObjectID是变的
Sub ShowObjectID() Dim mtext As AcadMText Dim entry As AcadEntity Dim mySelect As Variant
ThisDrawing.Utility.GetEntity entry, mySelect , "select a Text:"
MsgBox entry.ObjectID
End Sub