求助：VB.NET怎么把一个图元改到其它图层

绝情一剑

已经获取图元的ObjectId，怎么把这个图元移动到其它图层？

tiancao100

Dim acDb As Database = HostApplicationServices.WorkingDatabase
        Using acTrans As Transaction = acDb.TransactionManager.StartTransaction()
            Dim Ent As Entity = acTrans.GetObject(ID, OpenMode.ForWrite)
            Ent.Layer = LName
            acTrans.Commit()
        End Using

绝情一剑

非常感谢