Sub Example_GetSubEntity()
    ' Этот пример запрашивает пользователя выбирать объект на экране
    ' щелчком мыши и возвращает немного информации о выбранном объекте.
    
    Dim Object As Object
    Dim PickedPoint As Variant, TransMatrix As Variant, ContextData As Variant
    Dim HasContextData As String
    
    On Error GoTo NOT_ENTITY
        
TRYAGAIN:
        
    MsgBox "Используйте мышь, чтобы нажать на объект в текущем рисунке после закрытия этого диалогового окна."
        
    ' Получите информацию о выбранном объекте
    ThisDrawing.Utility.GetSubEntity Object, PickedPoint, TransMatrix, ContextData
    
    ' Отображение выбранных объектных свойств
    HasContextData = IIf(VarType(ContextData) = vbEmpty, " не имеет ", " имеет ")
    
    MsgBox "Объект, который Вы выбрали, был
            "Ваша точка выбора была: " & PickedPoint(0) & ", " & _
                                              PickedPoint(1) & ", " & _
                                              PickedPoint(2) & vbCrLf & _
            "Этот объект" & HasContextData & "вложенные объекты."
    
    Exit Sub
    
NOT_ENTITY:
    ' Если Вы нажимаете на пустоту или не выбираете объект
    ' будет сгенерирована ошибка
    If MsgBox("Вы не выбрали объект. Нажмите OK, чтобы попытаться снова.", _
               vbOKCancel & vbInformation) = vbOK Then
        Resume TRYAGAIN
    End If
End Sub

Сайт управляется системой uCoz