Тема: There is no matching database.
При вы полнении функции :
Function СheckLayer(strName As String) As Boolean
Dim objLayer As AcadLayer
For Each objLayer In ThisDrawing.Layers
If objLayer.Name = strName Then
СheckLayer = True
Exit For
End If
Next objLayer
End Function
Автокад( 2004) пишет ошибку (There is no matching database.) , что бы это бы это могло значить ?