Vla-isremotefile

提供:GizmoLabs - だいたい CAD LISP なサイト
2016年1月24日 (日) 10:04時点におけるGizmon (トーク | 投稿記録)による版 (ページの作成:「{{AutoLISP}} ; 構文 : (vla-isremotefile ''vla-object'' ''LocalFile'' ''URL'' ) ; 機能 : リモート ファイルのダウンロード元の URL を返す。 ;...」)
(差分) ← 古い版 | 最新版 (差分) | 新しい版 → (差分)
構文
(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 " はダウンロードされてません."))
                       )))))
)


関連事項