[Linkor]

Здравствуйте!
Подскажите, как проверить существование объектов, до обращения к ним и получения ошибки в VBA.
Например, при обращении к ThisDrawing.ActiveUCS, если таковой не задано, возникает ошибка. Можно ли обойтить без On Error resume next

[Kirill_Ja]

http://forum.dwg.ru/showthread.php?t=91467&page=3
Пост №45. Есть возможность в лиспе реализовать try - then - except
В принципе применимо к обработке любых ошибок.
Отдельный респект ShaggyDoc

[gomer]

причем тут лисп, автор на ВБА просит... не?

[trir]

Обработка ошибок есть и в VBA

[Kirill_Ja]

Offtop: Да, по ходу в ВБА.
Ну и написал бы тогда, что ему в ВБА надо)

[Linkor]

Kirill_Ja
Да VBA, прошу пардону, исправлюсь
Хотелось бы выяснить, можно ли обойтись без обработчика ошибок. Возможно есть какая то стандартная функция проверки существования объекта...

[Boxa]

"Чукча не читатель, чукча писатель." Я код не проверял, писал по памяти...

Код:

[Выделить все]

Sub srfgthsr()
    'Объявляем переменную
    Dim li As AcadLine
    ' Создание указателя на объект
    Set li = New acLine
    'Проверяем есть ли указатель на объект
    'и соответственно есть ли объект
    If li Is Nothing Then
        'Объекта нет
    Else
        'Объект есть
        
    End If
End Sub

[trir]

Воха, не сработает. В данном случае ThisDrawing.ActiveUCS имеет значение, просто оно "неправильное" - хрен какое

[Boxa]

Вопрос был:

Подскажите, как проверить существование объектов, до обращения к ним и получения ошибки в VBA.

Код должен вполне сработать, а на тему ActiveUCS, то вероятно объект существует и показывает активную СК, а уж какая она надо разбираться отдельно.

[trir]

А надо было просто в справку посмотреть...

Код:

[Выделить все]

    If ThisDrawing.GetVariable("UCSNAME") = "" Then
        ' Current UCS is not saved so get the data and save it
        With ThisDrawing
            Set currUCS = .UserCoordinateSystems.Add( _
                            .GetVariable("UCSORG"), _
                            .Utility.TranslateCoordinates(.GetVariable("UCSXDIR"), acUCS, acWorld, 0), _
                            .Utility.TranslateCoordinates(.GetVariable("UCSYDIR"), acUCS, acWorld, 0), _
                            "OriginalUCS")
        End With
    Else
        Set currUCS = ThisDrawing.ActiveUCS  'current UCS is saved
    End If

[Linkor]

trir Спасибо! Хорошо, когда есть кто-то, кто может подсказать, что смотреть и где смотреть )