Acet-file-find-on-pathのソースを表示

{{AutoLISP}}
; 構文
: (acet-file-find-on-path ''filename'' [ ''search-acad-path'' ])


; 機能
: 指定されたファイルをCADのサポートファイル検索パス上で検索する。オプションの引数により、CADの標準パスを含めるかどうかを制御できる。


; 引数
:* filename : 検索するイメージファイルの名前の文字列。
:* search-acad-path : nil以外を指定すると、CADの標準サポートパスも検索対象に含める。デフォルトは T。


; 戻り値
: 見つかった場合ファイルの完全なパス（文字列）、それ以外は nil を返す。



; サンプル
<pre class="brush:autolisp;">
(defun c:test-find-on-path ()
  (setq file-to-find "acad.lin")
  (if (setq found-path (acet-file-find-on-path file-to-find))
    (progn
      (princ "\nファイルあったよ: ")
      (princ found-path)
    )
    (princ (strcat "\nファイル " file-to-find " はなかったよ。"))
  )
  (princ)
)
</pre>

-----
関連事項
* [[Expresstools関数]]
* [[acet-file-find]]
* [[acet-file-find-font]]
* [[acet-file-find-image]]
* [[acet-file-find-on-path]]


[[Category:AutoLISP]]
[[Category:BricsCADのLISP]]