Ai apploaded

提供:GizmoLabs - だいたい CAD LISP なサイト
構文
(ai_apploaded "NAME" "TYPE")


機能
NEMEで指定したアプリがロードされているかどうかを返す。
* 旧バージョン用の互換として残されている感じなので、現在のバージョンではほとんど使わない。


引数
NAME
アプリケーション名
TYPE
アプリケーションのタイプ "ARX" or "ADS"


戻り値
T = acadapp がロードされている
nil = acadapp がロードされていない


サンプル
; 関数の定義としては以下のとおり
(defun ai_AppLoaded (appname apptype)
  (apply 'or
    (mapcar
      '(lambda (j)
         (wcmatch
           (strcase j T)
           (strcase (strcat "*" appname "*") T)
         ))
         (eval (list (read apptype)))
  ))
)


; 以下使い方。
(ai_AppLoaded "VLIDE" "ARX")
T ; 読み込まれてる


関連事項