「Gz:lsplistboxmulti」の版間の差分

提供:GizmoLabs - だいたい CAD LISP なサイト
編集の要約なし
編集の要約なし
2行目: 2行目:


; 構文
; 構文
: (LspListBoxMulti''msg1'' ''main'' ''list'')  
: (LspListBoxMulti ''main'' ''msg1'' ''list'')  




10行目: 10行目:


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


25行目: 25行目:
; 返り値サンプル : "0 2 3"
; 返り値サンプル : "0 2 3"


(defun gz_msgboxs_sample (/ result)
 
   ; gz_msgbox 関連の表示サンプル
(defun gz_msgbox_test (/ result msg1 lst1)
   (setq result (lspOkCancel '("メッセージ1" "メッセージ2" "メッセージ3") "OK-Cancel メッセージボックス"))
   ; gz_msgbox 関連関数のテスト
   (setq msg1 '("メッセージ1" "メッセージ2" "メッセージ3")
        lst1 '("aaa" "AA" "あああ" "ぁぁぁ" "1234567890"))
 
  (setq result (lspOkCancel "OK-Cancel メッセージボックス" msg1))
   (alert (if (= T result) "OK" "キャンセル"))
   (alert (if (= T result) "OK" "キャンセル"))
   (setq result (lspYesNo '("メッセージ1" "メッセージ2" "メッセージ3") "Yes-No メッセージボックス"))
   (setq result (lspYesNo "Yes-No メッセージボックス" msg1 ))
   (alert (if (= T result) "Yes" "No"))
   (alert (if (= T result) "Yes" "No"))
   (setq result (lspokonly '("メッセージ1" "メッセージ2" "メッセージ3") "OK Only メッセージボックス"))
   (setq result (lspokonly "OK Only メッセージボックス" msg1 ))
   (alert (if (= T result) "OK" "エラー"))
   (alert (if (= T result) "OK" "エラー"))
   (setq result (lspRetryCancel '("メッセージ1" "メッセージ2" "メッセージ3") "Retry-Cancel メッセージボックス"))
   (setq result (lspRetryCancel "Retry-Cancel メッセージボックス" msg1 ))
   (alert (if (= T result) "リトライ" "キャンセル"))
   (alert (if (= T result) "リトライ" "キャンセル"))
   (setq result (lspGetPass  '("メッセージ1" "メッセージ2" "メッセージ3") "GetPass メッセージボックス"))
   (setq result (lspGetPass  "GetPass メッセージボックス" msg1 ))
   (alert (strcat "パスワードは" result))
   (alert (strcat "パスワードは" result))
   (setq result (lspInputBox '("メッセージ1" "メッセージ2" "メッセージ3") "インプットボックス"))
   (setq result (lspInputBox "インプットボックス" msg1 ))
   (alert (if (= nil result) "キャンセル" result))
   (alert (if (= nil result) "キャンセル" result))
   (setq result (lspComboBox '("メッセージ1" "メッセージ2" "メッセージ\t3") "コンボボックス" '("aaa" "AA" "あああ" "ぁぁぁ" "12345\t67890")))
   (setq result (lspComboBox "コンボボックス" msg1 lst1))
   (alert (if (= nil result) ("キャンセル") result))
   (alert (if (= nil result) ("キャンセル") result))
   (setq result (lspListBox '("メッセージ1" "メッセージ2" "メッセージ\t3") "リストボックス" '("aaa" "AA" "あああ" "ぁぁぁ" "1234567890")))
   (setq result (lspListBox "リストボックス" msg1 lst1))
   (alert (if (= nil result) ("キャンセル") result))
   (alert (if (= nil result) ("キャンセル") result))
   (setq result (lspListBoxMulti '("メッセージ1" "メッセージ2" "メッセージ\t3") "リストボックス" '("aaa" "AA" "あああ" "ぁぁぁ" "1234567890")))
   (setq result (lspListBoxMulti "複数選択リストボックス" msg1 lst1))
   (alert (if (= nil result) ("キャンセル") result))
   (alert (if (= nil result) ("キャンセル") result))
   (princ)
   (princ)

2015年7月30日 (木) 10:14時点における版

構文
(LspListBoxMulti main msg1 list)


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


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


戻り値
リストボックスで選択された項目のインデックス値の文字列、キャンセルだったら nil


サンプル
(LspListBoxMulti "メッセージ1" "コンボボックス" '("aaa" "AA" "あああ" "ぁぁぁ" "1234567890"))
(LspListBoxMulti '("メッセージ\t1" "メッセージ\t2" "メッセージ\t3") "コンボボックス" '("aaa" "AA" "あああ" "ぁぁぁ" "1234567890"))
; 返り値サンプル : "0 2 3"


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

  (setq result (lspOkCancel "OK-Cancel メッセージボックス" msg1))
  (alert (if (= T result) "OK" "キャンセル"))
  (setq result (lspYesNo "Yes-No メッセージボックス" msg1 ))
  (alert (if (= T result) "Yes" "No"))
  (setq result (lspokonly "OK Only メッセージボックス" msg1 ))
  (alert (if (= T result) "OK" "エラー"))
  (setq result (lspRetryCancel "Retry-Cancel メッセージボックス" msg1 ))
  (alert (if (= T result) "リトライ" "キャンセル"))
  (setq result (lspGetPass  "GetPass メッセージボックス" msg1 ))
  (alert (strcat "パスワードは" result))
  (setq result (lspInputBox "インプットボックス" msg1 ))
  (alert (if (= nil result) "キャンセル" result))
  (setq result (lspComboBox "コンボボックス" msg1 lst1))
  (alert (if (= nil result) ("キャンセル") result))
  (setq result (lspListBox "リストボックス" msg1 lst1))
  (alert (if (= nil result) ("キャンセル") result))
  (setq result (lspListBoxMulti "複数選択リストボックス" msg1 lst1))
  (alert (if (= nil result) ("キャンセル") result))
  (princ)
)




関連事項