Sub Ch2_NalezeniVrstvyPRVNI()  
 ' použití metody Item pro nalezení vrstvy se jménem "PRVNI" 
   On Error Resume Next 
 
   Dim PrvniVrstva As AcadLayer 
   Set PrvniVrstva = ThisDrawing.Layers.Item("PRVNI") 
   If Err <> 0 Then  
     MsgBox "Vrstva 'PRVNI' neexistuje." 
   End If  
End Sub