Acet-ui-progress

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

構文: (acet-ui-progress [ label [ max ]]); (acet-ui-progress current); (acet-ui-progress)

機能: プログレスバー（進行状況メータ）を表示する。

引数

label … プログレスバーのラベル文字列
max … 最大値（開始は0）
current … 指定した場合は、現在の値になる。max 未満である必要がある。正の値は絶対値で、負の値は現在の位置がインクリメントされる。

戻り値

T または nil

戻り値は、実行されたアクションによって異なる。

初期化: 成功した場合は T、それ以外の場合は nil。
更新: 現在の進行状況を整数で返す。
復元: nil を返す。

注: 引数を指定しない場合、進行状況メータは削除される。
値は増えるだけバーを戻す事はできない。

サンプル

(progn
(acet-ui-progress "進捗どうですか？:" 100)
(acet-ui-progress (getint "いくつ？："))
(acet-ui-progress (getint "次は？："))
(acet-ui-progress (getint "最後は？："))
(acet-ui-progress)
)

;;  初期化
(acet-ui-progress "進捗どうですか？:" (length theList))

;;  更新
(foreach item theList
  ;; 何かしらの処理
  (princ item)

  ;;  メーターを1項目ずつ更新
  (acet-ui-progress -1)
)

;; メーターを削除
(acet-ui-progress)