如何根据对像OBJECTID 取得对像名称?

tcsl9621

如标题所示。还望大侠指点。

tcsl9621

好了，找到解决方案了。

yinzhiw

请问楼主是如何取得的

tcsl9621

    Public ed As Editor = Application.DocumentManager.MdiActiveDocument.Editor
    Public Function objectidtoacadobject(ByVal objid As ObjectId) As AcadObject
        Dim obj2 As AcadObject
        Dim db = HostApplicationServices.WorkingDatabase
        Dim trans As Transaction = db.TransactionManager.StartTransaction()
        Dim ent As Entity = trans.GetObject(objid, OpenMode.ForRead, False)
        obj2 = ent.AcadObject
        Return obj2
    End Function