我将选择的对象的图层锁定,图层上显示是锁上了,并且也不能对这个图层上的对象进行修改了,但是对这个锁上的图层上的对象不灰显,不知道怎么回事,代码如下所示,请求高手帮忙,先谢喽
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