[编程交流] DC中取消按钮出错

//---------------------------------//
cbut
   : retirement_button
   {
   alignment     = centered ;
   key           = "cancel" ;
   label         = "Cancel" ;
   is_cancel    = true ;
   fixed_width     = true ;
   width         = 12 ;
   }
okbut
   : retirement_button
   {
   alignment     = centered ;
   key           = "accept" ;
   label         = "Update" ;
   is_default     = true ;
   fixed_width     = true ;
   width         = 12 ;
   }
edbox
   : edit_box
   {
   fixed_width    = true;
   edit_width     = 6;
   }
//---------------------------------//
tile_a
   :boxed_column
   {
   label = "Defaults" ;
   :edbox {key = "eb1"; label = "Timber length"; alignment = right;}
   :edbox {key = "eb2"; label = "Ply Length"; alignment = right;}
   }
//---------------------------------//
Materials
   : dialog
   {
   fixed_width = true;
   width = 40;
   label = "Materials";
tile_a;
cbut;
okbut;
}
//---------------------------------//

(setq dcl_id (load_dialog  fname))
(if (not (new_dialog "ddgetval2" dcl_id))
(exit))
(mode_tile "key1" 3)
(set_tile "key1" (setq val1 def1))
(action_tile "key1" "(setq val1 $value)")
(mode_tile "key2" 3)
(set_tile "key2" (setq val2 def2))
(action_tile "key2" "(setq val2 $value)")
; put the action tile ok and cancel here as a saved variable
(action_tile "cancel" "(setq action "Yes")")
(start_dialog)
(done_dialog)
(unload_dialog dcl_id)
; returns the value of val1 and val2 as strings
(vl-file-delete fname)
) 

(defun c:Material-sizes  () ;Get Initial Values if set to nil
 (if (= timber_length nil) (setq timber_length "4800"))
 (if (= Ply_length nil) (setq Ply_length "2400"))
 
 (defun DControl  ()
   (setq dcl-id (load_dialog (findfile "Materials.dcl")))
   (if (not (new_dialog "Materials" dcl-id "" '(-1 -1)))
     (exit)
     (progn (setq Output "Canceled")
            (set_tile "eb1" timber_length)
            (set_tile "eb2" Ply_length)
            (action_tile "accept" "(result)(done_dialog 1)")
            (action_tile "cancel" "(done_dialog 0)")
            (defun result () (setq Output (list "v1.0" (get_tile "eb1") (get_tile "eb2"))))
            (start_dialog)
     )
   )
   Output
 )
 
 (setq Output (DControl))
 (if (not (eq Output "Canceled"))
   (progn
     (setq timber_length (atof (nth 1 Output))
           Ply_length    (atof (nth 2 Output))) ;Do the calculations
     ;This lengthy section has been removed
     ;reset Variables to strings
     (setq timber_length (rtos timber_length 2 2))
     (setq Ply_length (rtos Ply_length 2 2))
    )
   (princ "\nCanceled by User")
  )
 ;clean exit
 (princ)
)

Materials : dialog {label="Materials";fixed_width=true;width=40;
 :boxed_row {label="Defaults";
   :column {:text {label="Timber Length";} :text {label="Ply Length";}}
   :column {:edit_box {key="eb1";} :edit_box {key="eb2";}}}
 ok_cancel;
}

;;This
(if (= timber_length nil)
  (setq timber_length "4800")
)
(if (= ply_length nil)
  (setq ply_length "2400")
)
;; Could be this
(or timber_length (setq timber_length "4800"))
(or ply_length (setq ply_length "2400"))

(setq timber_length (cond ( timber_length ) ( "4800") ) )
(setq Ply_length (cond ( Ply_length ) ( "2400") ) )

; (mapcar 'AssignFirstVal '((timber_length "4800")(Ply_length "2400")))
; (mapcar 'AssignFirstVal '((a 1)(b 2)(c 3)))
; (AssignFirstVal '(x 123))
(defun AssignFirstVal ( L / sym val )
  (mapcar 'set '(sym val) L)
  (set sym (cond ( (eval sym) ) ( val ) ) )
)

9

13