Topic: Dialog Help Needed

[V-Man]

Hey guys,

In reference to my other post http://www.theswamp.org/index.php?topic=47646.0 I have come up with this bit of code that I need a little help with. I originally used the sample from Afralisp to generate what I currently have. The problem I am experiencing is when the user selects the "Accept" button I need it to run the (InsDoor) which inserts doors based on the dialog selection and if the "Cancel" is pressed then exit the dialog and do nothing. I will admit, I am not good with dcl's so I am just stuck and I need another set of eyes to look at this. Any help would be great.

Thanks

Lisp

Code: [Select]

(defun C:InsertDoor () ;define function
(setq DoorType "LH")
(setq DoorSize "3-0")
  (setq dcl_id (load_dialog "samp.dcl")) ;load dialog
  (if (not (new_dialog "samp" dcl_id) ;test for dialog
      );not
    (exit) ;exit if no dialog
  );if
  (setq w (dimx_tile "im") ;get image tile width
        h (dimy_tile "im") ;get image tile height
);setq
  (start_image "im") ;start the image
  (fill_image 0 0 w h 5) ;fill it with blue
  (end_image) ;end image
 ;added
    (mode_tile "rb1" 0)
    (mode_tile "rb2" 0)
    (mode_tile "rb3" 0)
    (mode_tile "rb4" 1)
    (mode_tile "rb5" 1)
    (mode_tile "rb6" 1)
    (mode_tile "selections" 0)
(drsizes)
 ;added 
(action_tile "rb1" "(setq DoorType \"LH\")(drsizes)")
(action_tile "rb2" "(setq DoorType \"RH\")(drsizes)")
(action_tile "rb3" "(setq DoorType \"DB\")(ddrsizes)")
(action_tile "rb4" "(setq DoorType \"BFD\")(drsizes)")
(action_tile "rb5" "(setq DoorType \"PD\")(drsizes)")
;(action_tile "rb6" "(setq DoorType \"VD\")(Vdrsizes)")
(action_tile "selections" "(setq Doorsize (nth (atoi $value) sizes))")
  (action_tile
    "accept" ;if O.K. pressed
    " (done_dialog)(setq userclick T)" ;close dialog
  );action tile
      (action_tile
      "cancel" ;if cancel button pressed
      "(done_dialog)(setq userclick nil)" ;close dialog
    );action_tile
  (start_dialog) ;start dialog
  (unload_dialog dcl_id) ;unload
(if (= userclick T)
         (InsDoor)
         (command)
)
(princ)
);defun C:InsertDoor


(defun InsDoor ()
(if (= T (wcmatch doorsize "V*"))
       (progn
       (setq drft (substr doorsize 2 1)
               drin (substr doorsize 4 2))
(setq cnt (strlen doorsize))
(setq zmath1 (* (atoi drft) 12))
(setq zmath2 (+ (atoi drin) zmath1))
(setq drsz (rtos zmath2 2 0))
(setq doorsize (strcat "08" (strcase DoorType) drsz "VD"))
(setvar "orthomode" 1)
(command ".-Insert" doorsize pause "" "")
       )
(progn
(setq drft (substr doorsize 1 1)
        drin (substr doorsize 3 2))
(setq cnt (strlen doorsize))
(setq zmath1 (* (atoi drft) 12))
(setq zmath2 (+ (atoi drin) zmath1))
(setq drsz (rtos zmath2 2 0))
(setq doorsize (strcat "08" (strcase DoorType) drsz "EX"))
(setvar "orthomode" 1)
(command ".-Insert" doorsize pause "" "")
)
)
(princ)
)

(defun drsizes ()
       (setq sizes '("1-6" "2-0" "2-2" "2-4" "2-6" "2-8" "2-10" "3-0" "3-2" "3-4" "3-6" "3-8" "3-10" "4-0" "V3-0" "V4-0")
                dcl:option "1")
      (start_list "selections")
      (mapcar 'add_list sizes)
      (end_list)
)
(defun ddrsizes ()
      (setq sizes '("4-0" "5-0" "5-4" "6-0" "7-0" "8-0")
               dcl:option "2")
      (start_list "selections")
      (mapcar 'add_list sizes)
      (end_list)
)
DCL

Code: [Select]

samp : dialog { //dialog name
      label = "Insert Door, version 1.0" ; //give it a label
 
       : row { //define row
 
  :boxed_radio_column{
        label = "Door Type" ;
         : radio_button {
        key = "rb1" ;
        label = "Left Hand Door" ;
        is_enabled = false;
        value = "1" ;
         }
      : radio_button {
        key = "rb2" ;
        label = "Right Hand Door" ;
        is_enabled = false;
      }
      : radio_button {
        key = "rb3" ;
        label = "Double Door" ;
        is_enabled = false;
        }
      : radio_button {
        key = "rb4" ;
        label = "Bifold" ;
        is_enabled = false;
        }
      : radio_button {
        key = "rb5" ;
        label = "Pocket" ;
        is_enabled = false;
        }
 }
         : boxed_column {
         label = "&Size";
      : popup_list {
         key = "selections";
         is_enabled = false;
        // value = "1" ;
         }
        }
 
 
       } //end row
 
 :spacer{
 width=4;
}
 
     ok_cancel ; //predifined OK/Cancel
 
     : row { //define row
 
     : image { //define image tile
     key = "im" ; //give it a name
     height = 1.0 ; //and a height
     width = 1.0 ; //and now a width
     } //end image
 
     : paragraph { //define paragraph
 
     : text_part { //define text
     label = "Designed and Created"; //give it some text
     } //end text
 
     : text_part { //define more text
     label = "by DV"; //some more text
     } //end text
     } //end paragraph
     } //end row
     } //end dialog