ListARX メソッド(ActiveX)

現在ロードされている ObjectARX アプリケーションを取得します。

サポートされているプラットフォーム: Windows のみ

構文と要素

VBA:

RetVal = object.ListArx

object

タイプ: Application

このメソッドが適用されるオブジェクト。

戻り値(RetVal)

タイプ: バリアント型

現在ロードされている ObjectARX アプリケーションの配列。現在ロードされているアプリケーションがなければ空の配列を返します。

注意

追加の注意はありません。

例

VBA:

Sub Example_ListARX()
    ' This example gets all the loaded ObjectARX applications
    
    ' Get the list of applications
    Dim appList As Variant
    appList = ThisDrawing.Application.ListArx
    
    ' Iterate through the list, and display the names, if any.
    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

Visual LISP:

(vl-load-com)
(defun c:Example_ListARX()
    ;; This example gets all the loaded ObjectARX applications
    (setq acadObj (vlax-get-acad-object))
  
    ;; Get the list of applications
    (setq appList (vla-ListArx acadObj))
    
    ;; Iterate through the list, and display the names, if any.
    (if (/= (vlax-variant-value appList) vlax-vbEmpty)
        (progn
            (setq I 0
                  appList (vlax-variant-value appList))
            (while (>= (vlax-safearray-get-u-bound appList 1) I)
                (alert (strcat "ObjectARX application name: " (vlax-safearray-get-element appList I)))
                (setq I (1+ I))
            )
        )
        (alert "No ObjectARX applications present.")
    )
)