「Gz:lspcombobox」の版間の差分

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


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




10行目: 10行目:


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


21行目: 21行目:
; サンプル
; サンプル
<pre class="brush:autolisp;">
<pre class="brush:autolisp;">
(lspComboBox "メッセージ1" "コンボボックス" '("aaa" "AA" "あああ" "ぁぁぁ" "1234567890"))
(lspComboBox "コンボボックス" "メッセージ1" '("aaa" "AA" "あああ" "ぁぁぁ" "1234567890"))
(lspComboBox '("メッセージ\t1" "メッセージ\t2" "メッセージ\t3") "コンボボックス" '("aaa" "AA" "あああ" "ぁぁぁ" "1234567890"))
(lspComboBox "コンボボックス" '("メッセージ\t1" "メッセージ\t2" "メッセージ\t3") '("aaa" "AA" "あああ" "ぁぁぁ" "1234567890"))


(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)
48行目: 52行目:


</pre>
</pre>





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

構文
(LspComboBox main msg1 list)


機能
コンボボックスを表示する。


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


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


サンプル
(lspComboBox  "コンボボックス" "メッセージ1" '("aaa" "AA" "あああ" "ぁぁぁ" "1234567890"))
(lspComboBox "コンボボックス" '("メッセージ\t1" "メッセージ\t2" "メッセージ\t3") '("aaa" "AA" "あああ" "ぁぁぁ" "1234567890"))


(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)
)



関連事項