如何根据对像OBJECTID 取得对像名称?
如标题所示。还望大侠指点。好了,找到解决方案了。 请问楼主是如何取得的 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]