Acet-file-writedialog

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

構文

(acet-file-writedialog title default-name extension flags )

機能

ファイル保存ダイアログボックスを表示し、ユーザーが保存するファイルの名前と場所を指定できるようにする。

すべての引数を nil 指定することも可能で、その場合は規定値が使われる。

getfiled 関数でもいいと思う。

引数

• title : ダイアログボックスのタイトルバーに表示される文字列。
• default-name : ファイル名フィールドに最初に表示されるデフォルトのファイル名。
• extension : デフォルトのファイル拡張子フィルター。例: "dwg;dxf"
• flags : ダイアログボックスの動作を制御するフラグのビットコード。getfiled　を参照。
  • 1: 既にファイルが存在する場合に警告ダイアログを表示する。

戻り値

指定されたファイルの完全なパス（文字列）。それ以外は nil を返す。

サンプル

(defun c:test-writedialog ()
  (setq save-path
    (acet-file-writedialog
      "レポートを保存"
      "MyReport.txt"
      "txt"
      1
    )
  )
  (if save-path
    (progn
      (princ "\n保存先のパス: ")
      (princ save-path)
      ;; 何かの書き込み処理を追加 (write-line "aaaaa") とか
    )
    (princ "\n保存がキャンセルされました。")
  )
  (princ)
)

---

関連事項

• Expresstools関数
• acet-file-find
• acet-file-find-font
• acet-file-find-image
• acet-file-find-on-path
• acet-file-writedialog
• getfiled
• write-line