vb.net中将选择对象的图层锁上但不显灰色

moyu132 · 发表于 2012-2-15 12:56:00

我将选择的对象的图层锁定，图层上显示是锁上了，并且也不能对这个图层上的对象进行修改了，但是对这个锁上的图层上的对象不灰显，不知道怎么回事，代码如下所示，请求高手帮忙，先谢喽
If Not IsDBNull(acEnt) Then
                        '' 以只读方式打开图层表 Open the Layer table for read
                        Dim acLyrTbl As LayerTable
                        acLyrTbl = acTrans.GetObject(acCurDb.LayerTableId, OpenMode.ForRead)
                        Dim acLyrTblRec As LayerTableRecord
                        acLyrTblRec = acTrans.GetObject(acLyrTbl(acEnt.Layer), OpenMode.ForWrite)
                        acLyrTblRec.IsLocked = True
                     End If
                  End If