change layer

[Josefilho]

Please, How can I change the current layer of a drawing to another existing layer?

I'm using VB 2005 Express Beta 2, and tested many examples and they worked fine.

Thanks a lot in advance.
Jose

[Mikko]

Dim ExistingLayerId As ObjectId
Dim elt As LayerTable = CType(tm.GetObject(db.LayerTableId, OpenMode.ForRead, False), LayerTable)
ExistingLayerId = elt.Item("Your Layer Name")
Dim db As Database = HostApplicationServices.WorkingDatabase
Dim curLay As ObjectId = db.Clayer
db.Clayer = ExistingLayerId
' Do something
db.Clayer = curLay

[Josefilho]

Thank you very much.

Regards
Jose