ListARX Пример |
Sub Example_ListARX() ' Этот пример получает все загруженные приложения ObjectARX ' Получите список приложений Dim appList As Variant appList = ThisDrawing.Application.ListArx ' Выполните итерации через список, и отобразите названия. If VarType(appList) <> vbEmpty Then Dim I As Integer For I = LBound(appList) To UBound(appList) MsgBox "ObjectARX application name: " & appList(I) Next Else MsgBox "No ObjectARX applications present." End If End Sub