Sub Example_GetInterfaceObject()
    ' Этот пример возвращает объект верхнего уровня другого приложения.
    On Error GoTo ERRORHANDLER
    
    Dim poly As Object
    Set poly = ThisDrawing.Application.GetInterfaceObject("Polycad.Application")

ERRORHANDLER:
    MsgBox Err.Description, , "GetInterfaceObject Пример"
    
End Sub

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