[討論] dcl :radio_button 單選的問題

請問各位前輩

我有很多個 :radio_button 要做單選
當我想換行的時候程式該怎麼寫?




dcl1601:dialog{
label="1.6mm 品號&類型";

:boxed_radio_column{ //編輯框的框列
label="鐵1.6mm"; //編輯框的框列名稱

:row{
:radio_button{label="10P";key="bb160110";}
:radio_button{label="14P";key="bb160114";}
:radio_button{label="16P";key="bb160116";}
:radio_button{label="18P";key="bb160118";}
:radio_button{label="20P";key="bb160120";}
}

:row{

:radio_button{label="22P";key="bb160122";}
:radio_button{label="26P";key="bb160126";}
:radio_button{label="30P";key="bb160130";}
:radio_button{label="34P";key="bb160134";}
:radio_button{label="38P";key="bb160138";}
}

}

spacer_1; //一列空白列
cancel_button;
}

以上是我自己寫的dcl程式 ,可是換行後卻變成可以選2個
可是我只要單選,程式該怎麼寫?

謝謝!!

這個部分有點難，注意問題不是在對話框程式，
而是Lisp程式的控制方式有問題，貼一段程式給你參考，
以下是Lisp程式如何控制的部分。

代碼:

  (setq ma mb)
  (if (null ma) (setq ma "M6"))
  (set_tile ma "1")
  (setq spec '("M3" "M4" "M5" "M6" "M8" "M10" "M12" "M14" "M16"
              "M18" "M20" "M22" "M24" "M27" "M30" "M33" "M36" "M39"
              "M42" "M45" "M48" "M52"))
  (foreach keyspec spec (action_tile keyspec "(sel)"))
  (defun sel ()
    (foreach keyspec1 spec (set_tile keyspec1 "0"))
    (setq ma $key)
    (set_tile $key "1")
    (setq mb ma)
  )

謝謝!
真的很難..我看不懂@@
謝謝指導!我會努力了解這個程式的

r1543761189 寫到:謝謝!
真的很難..我看不懂@@
謝謝指導!我會努力了解這個程式的

前輩分享的部份簡單來說就是控制radio_button開關與否
既然可以寫出dcl的畫面,想必手邊該有本可供翻略的工具書~~
查查書上lsp連結dcl的部份

這個部份應該書上找不到，但是要花點時間去了解內容，當初也花了好多時間和同事FOREACH的用法，終於才將他寫出來。

radio_button 換行之後.會被視為.2個獨立單位.所以可以各自單獨選..
自然達不到你要的效果.!!..也許程式可以達到你要的效果..但不建議你用radio_button..做這麼多選項的單選動作..

如果你不那麼堅持一定要用radio_button來做選項選擇的話..建議你改用LISTBOX 來做.!

ps:你要做的是不是.連接器的pin數計算程式.!

List_box有使用上的不方便性，如選項太多就必須捲動選單，這樣會讓操作變的不方便，radio_button的優點是一目了然，沒有list_box的問題，但是相對的會造成控制程式變的複雜難寫，這時就要看寫程式者的考量了。

張譽璋 寫到:List_box有使用上的不方便性，如選項太多就必須捲動選單，這樣會讓操作變的不方便，radio_button的優點是一目了然，沒有list_box的問題，但是相對的會造成控制程式變的複雜難寫，這時就要看寫程式者的考量了。

的確..2者各有優缺點.!!看實際狀況決定..!!遇到選項真的太多.就只好拉長listbox 長度.讓使用者不必捲動太多.!!