[编程交流] DCL对话框代码查询

(defun DynaToggle_write_header ()
 (write-line
   (strcat
     "DynaToggle:dialog{label="DynaToggle";spacer;spacer;:text_part {key="txt1";width=32;fixed_width=true;}"
     ":text_part{key="txt2";width=32;fixed_width=true;}spacer;") fp))
(defun DynaToggle_write_body1 ( %lst / i )
 (write-line ":boxed_column{" fp)
 (setq i 0)
 (mapcar '(lambda (x)
        [b](write-line
          (strcat
        ":row{spacer;:toggle{key="tg" (itoa i) "";width=2;fixed_width=true;}"
        ":text_part{key="tp" (itoa i) "";label="" x "";width=32;fixed_width=true;}}") fp)
        (setq i (1+ i)))[/b]
     %lst
 )
 (repeat (- 10 i)(write-line ":row{height=1.5;}" fp))
 (write-line "}spacer;" fp)
)
(defun DynaToggle_write_body2 ( %lst / i )
 (write-line ":boxed_row {:column{" fp)
 (setq i 0)
 (repeat 10
   (write-line
     (strcat
   ":row { spacer; :toggle { key ="tg" (itoa i) "";width=2;fixed_width=true;}"
   ":text_part{key="tp" (itoa i) "";label="" (nth i %lst) "";width=32;fixed_width=true;}}") fp)
   (setq i (1+ i))
 )
 (write-line
   (strcat "}:column{:slider{key="sldr";layout=vertical;min_value=0;max_value=" (itoa nof-tog)
       ";small_increment=1;big_increment=10;value=" (itoa nof-tog) ";}}}spacer;") fp)
)
(defun DynaToggle_write_footer1 ()
 (write-line
   (strcat
     "spacer;"
     ": row {: button{label="Select All";key="all";}:button{label="Select None";key="none";}}"
     "spacer;ok_cancel;}") fp))
(defun DynaToggle_write_footer2 ()
 (write-line
   (strcat
     "spacer;"
     ":row{:button{label="|<";key="home";}:button{label="<";key="back";}"
     ":button{label=">";key="next";}:button{label=">|";key="end";}}"
     ":row{:button{label="Select All";key="all";}:button{label="Select None";key="none";}}"
     "spacer;ok_cancel;}") fp))

; lst list of strings , def default (int) to set
(defun RlxBLK_ChooseFromColumn (lst def / fn fp dcl-id inp drv)
 (if (and (setq fn (vl-filename-mktemp ".dcl")) (setq fp (open  fn "w")))
   (progn
     (write-line "cfrc : dialog { label = "Choose From Column"; : boxed_radio_column {" fp)
     (mapcar '(lambda (x) (write-line (strcat " : radio_button { key = "" x ""; label = "" x "";}") fp)) lst)
     (write-line "} spacer;ok_cancel;}" fp)(close fp)(gc)
     (if (and (setq dcl-id (load_dialog fn)) (new_dialog "cfrc" dcl-id))
(progn
  (mapcar '(lambda (x)(action_tile x "(setq inp $key)")) lst)
  (if (not (null (nth def lst)))(set_tile (nth def lst) "1"))
  (action_tile "accept" "(done_dialog 1)")
  (setq drv (start_dialog))(unload_dialog dcl-id)))))
 (cond ((not (null inp)) inp) ((not (null (nth def lst))) (nth def lst)) (t nil))
)
; * * testing * *
(defun c:cfc () (RlxBLK_ChooseFromColumn '("1 2" "a b" "3 4" "c d" "5 6" "e f" "7 8" "g h" "9 10" "i j") 5 ))