Acet-file-writedialog
- 構文
- (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)
)
関連事項