Acet-ui-progress-init

提供:GizmoLabs - だいたい CAD LISP なサイト
構文
(acet-ui-progress-init message limit )


機能
ステータスバーのプログレスバー(進捗メーター)を初期化する。


引数
  • message … ステータスバーのプログレスメーターに表示するテキスト。
  • limit … 範囲の最大値


戻り値
成功すれば T、そうでなければ nil を返す


サンプル
(progn
(acet-ui-progress "進捗どうですか?:" 100)
(acet-ui-progress (getint "いくつ?:"))
(acet-ui-progress (getint "次は?:"))
(acet-ui-progress-init  "やり直し:"  100)
(acet-ui-progress (getint "いくつ?:"))
(acet-ui-progress (getint "次は?:"))
(acet-ui-progress (getint "最後は?:"))
(acet-ui-progress)
)


関連事項