Acet-file-find-image

提供:GizmoLabs - だいたい CAD LISP なサイト
2025年8月2日 (土) 09:51時点におけるGizmon (トーク | 投稿記録)による版 (ページの作成:「{{AutoLISP}} ; 構文 : (acet-file-find-image ''filename'') ; 機能 : この関数は、指定されたイメージファイル(BMP、JPG、PNGなど)を検索する。CADのサポートファイル検索パス、および現在の図面ファイルがあるフォルダ内を探し、画像ファイルが見つかった場合、その完全なパスを返す。 ; 引数 :* filename : 検索するイメージファイルの名前の文字列。 ; 戻り値…」)
(差分) ← 古い版 | 最新版 (差分) | 新しい版 → (差分)
構文
(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)
)

関連事項