Gz:lsplistboxmulti

Gz-Lib Home - Gz-Lib 目次 - AutoLISP Home - CAD&CGブログ - オンラインショップ- GizmoTools ヘルプセンター

構文: (gz:lspListBoxMulti main msg1 list)

機能: 複数項目選択可能なリストボックスを表示する。

引数

main … ダイアログのタイトル
msg1 … ダイアログボックスに表示する文字列または文字列のリスト。
list … リストボックスに表示するリスト

戻り値: 新仕様 → リストボックスで選択された項目の list のリスト。キャンセルだったら nil; 旧仕様 → リストボックスで選択された項目のインデックス値の文字列、キャンセルだったら nil

サンプル

; 新仕様関数
(gz:lspListBoxMulti "複数選択リストボックス" '("メッセージ１") '("aaa" "AA" "あああ" "ぁぁぁ" "1234567890"))
(gz:lspListBoxMulti "複数選択リストボックス" nil '("aaa" "AA" "あああ" "ぁぁぁ" "1234567890"))
; "0 2 3" が選ばれた時の返り値 : ("aaa" "あああ" "ぁぁぁ")
; 旧仕様関数
(gz:lspListBoxMulti "複数選択リストボックス" '("メッセージ１") '("aaa" "AA" "あああ" "ぁぁぁ" "1234567890"))
(gz:lspListBoxMulti "複数選択リストボックス" nil '("aaa" "AA" "あああ" "ぁぁぁ" "1234567890"))
; 返り値サンプル : "0 2 3"


(defun gz_msgbox_test (/ result)
  ; gz_msgbox 関連関数のテスト
  (setq msg1 '("メッセージ1" "メッセージ2" "メッセージ3")
        lst1 '("aaa" "AA" "あああ" "ぁぁぁ" "1234567890"))

  (setq result (gz:lspOkCancel "OK-Cancel メッセージボックス" msg1))
  (alert (if (= T result) "OK" "キャンセル"))
  (setq result (gz:lspYesNo "Yes-No メッセージボックス" msg1 ))
  (alert (if (= T result) "Yes" "No"))
  (setq result (gz:lspokonly "OK Only メッセージボックス" msg1 ))
  (alert (if (= T result) "OK" "エラー"))
  (setq result (gz:lspRetryCancel "Retry-Cancel メッセージボックス" msg1 ))
  (alert (if (= T result) "リトライ" "キャンセル"))
  (setq result (gz:lspGetPass  "GetPass メッセージボックス" msg1 ))
  (alert (strcat "パスワードは" result))
  (setq result (gz:lspInputBox "インプットボックス" msg1 ))
  (alert (if (= nil result) "キャンセル" result))
  (setq result (gz:lspComboBox "コンボボックス" msg1 lst1))
  (alert (if (= nil result) '("キャンセル") result))
  (setq result (gz:lspListBox "リストボックス" msg1 lst1))
  (alert (if (= nil result) '("キャンセル") result))
  (setq result (gz:lspListBoxMulti "複数選択リストボックス" msg1 lst1))
  (alert (if (= nil result) '("キャンセル") result))
  (setq result (gz:lspListBoxMulti "複数選択リストボックス" nil lst1))
  (princ result)
  (setq result (gz:lspbrowsefolder "○○のフォルダを選択" nil))
  (alert (if (= nil result) '("キャンセル") result))
  (setq result (GZ:popup "ポップアップメッセージ" "メッセージ文字列。" (+ 2 48 4096)))
  (alert (if (= nil result) '("キャンセル") result))
  (princ)
)