Vla-isremotefile

AutoLISP Home - AutoLISP 目次 - DCL - AutoLisp関数互換表 - CAD&CGブログ - オンラインショップ- GizmoTools ヘルプセンター

構文: (vla-isremotefile vla-object LocalFile URL )

機能: リモートファイルのダウンロード元の URL を返す。

引数

vla-object … Utility の VLAオブジェクト
LocalFile … ダウンロードされたファイル。
URL … ファイルのダウンロード元の URL (ある場合)。

戻り値

ブール型

:vlax-True: ファイルはリモート位置からダウンロードされた。
:vlax-False: ファイルはリモート位置からダウンロードされなかった。

MEMO : このメソッドは、IsURL メソッドの逆操作を行うもので、ローカルファイルから、ファイルをダウンロードした該当する URL へのマッピングを提供する。

サンプル

(vl-load-com)
(defun c:Example_IsRemoteFile()
    ;; ダウンロードする URL をユーザーに入力を求めて、適切な URL が入力されたことを検証する。
    ;; ダウンロードした後の例はダウンロードした図面に関する情報を提供する。
    ;;
    ;; * 注: 終わったらダウンロードしたファイルは削除すること。
    (setq acadObj (vlax-get-acad-object))
    (setq doc (vla-get-ActiveDocument acadObj))

    (setq Utility (vla-get-Utility doc))   ;; Utility オブジェクトに接続
    
    ;; ダウンロードする URL をユーザーに要求。図面ファイルへの URL を入力する必要がある。
    (setq URL (vla-GetString Utility :vlax-false "Enter the complete URL of the file you wish to download: "))
  
    (if (/= URL "")
        (progn
               (if (= (vla-IsURL Utility URL) :vlax-false)
                   (alert "入力した URL は無効だ。有効な URL か確認して出直してこい。")
                   (progn
                       ;; ダウンロード URL
                       (vla-GetRemoteFile Utility URL 'DestFile :vlax-true)
            
                       ;; ダウンロードファイルの情報を表示
                       (alert (strcat URL " をダウンロード : " DestFile "\n"))

                       ;; IsRemoteFile を使用して、ファイルが URL からダウンロードされたかどうか確認。
                       ;; 
                       (if (= (vla-IsRemoteFile Utility DestFile URL) :vlax-true)
                           (alert (strcat "file: " DestFile " は、次の URL からダウンロードされました。: " URL))
                           (alert (strcat "file: " DestFile " はダウンロードされてません."))
                       )))))
)