Тема: 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.) , что бы  это бы это могло значить ?

Re: There is no matching database.

Проверил этот код. Все работает (в 2004).
А ты при вызове этой функции - передаешь параметр?
Вызывать надо так:    СheckLayer "Слой1"  (где в "Слой1" - проверяемый слой)

Re: There is no matching database.

Ну да , я так  и вызываю smile , самое  интересное  , что раньше  это работало , а сейчас нет :(

Re: There is no matching database.

А случайно, не ставил 2005?

Re: There is no matching database.

нет, а на что это может повлиять ?

Re: There is no matching database.

Даже очень.
2005 ставит свои компоненты, и они по неизвестной пока причине "рушат" компоненты с 2004 и ниже. Помогло: снес 2005 и заново установил 2004.