「Gz:lspokcancel」の版間の差分

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


; 構文
; 構文
: (LspOkCancel ''msg1'' ''main'')  
: (LspOkCancel ''main'' ''msg1'')  




10行目: 10行目:


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


; 戻り値
; 戻り値
19行目: 19行目:
; サンプル
; サンプル
<pre class="brush:autolisp;">
<pre class="brush:autolisp;">
(setq result (lspOkCancel "メッセージ1" "OK-Cancel メッセージボックス"))
(setq result (lspOkCancel "OK-Cancel メッセージボックス" "メッセージ1"))
(setq result (lspOkCancel '("メッセージ1" "メッセージ2" "メッセージ3") "OK-Cancel メッセージボックス"))
(setq result (lspOkCancel "OK-Cancel メッセージボックス" '("メッセージ1" "メッセージ2" "メッセージ3") ))


(defun gz_msgboxs_sample (/ result)
(defun gz_msgbox_test (/ result)
   ; gz_msgbox 関連関数のテスト
   ; gz_msgbox 関連関数のテスト
   (setq result (lspOkCancel '("メッセージ1" "メッセージ2" "メッセージ3") "OK-Cancel メッセージボックス"))
   (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)
)
)


</pre>
</pre>

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

構文
(LspOkCancel main msg1)


機能
OK-キャンセルダイアログを表示する。


引数
  • main … ダイアログのタイトル
  • msg1 … 警告ボックスに表示する文字列。
戻り値
OKだったら T、キャンセルだったら nil


サンプル
(setq result (lspOkCancel "OK-Cancel メッセージボックス" "メッセージ1"))
(setq result (lspOkCancel "OK-Cancel メッセージボックス" '("メッセージ1" "メッセージ2" "メッセージ3") ))

(defun gz_msgbox_test (/ result)
  ; 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)
)





関連事項