Acet-file-find-image

提供:GizmoLabs - だいたい CAD LISP なサイト
構文
(acet-file-find-image filename)


機能
この関数は、指定されたイメージファイル(BMP、JPG、PNGなど)を検索する。CADのサポートファイル検索パス、および現在の図面ファイルがあるフォルダ内を探し、画像ファイルが見つかった場合、その完全なパスを返す。


引数
  • filename : 検索するイメージファイルの名前の文字列。


戻り値
成功ならイメージファイルの完全なパス(文字列)、それ以外は nil を返す。


サンプル
(defun c:test-find-image ()
  (setq image-file "logo.png")
  (if (setq found-path (acet-file-find-image image-file))
    (progn
      (princ "\nイメージ発見!>>> ")
      (princ found-path)
    )
    (princ (strcat "\n" image-file " はぁ、見つかりませんでした!"))
  )
  (princ)
)

関連事項