tcsl9621 发表于 2006-7-7 21:57:00

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

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

tcsl9621 发表于 2006-7-7 22:56:00

好了,找到解决方案了。

yinzhiw 发表于 2006-7-16 11:02:00

请问楼主是如何取得的

tcsl9621 发表于 2006-7-16 17:38:00

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
页: [1]
查看完整版本: 如何根据对像OBJECTID 取得对像名称?