[编程交流] DCL的滑动问题！！

space :dialog {
label = "The Spacing Chart!" ;
: row {
:boxed_column {
label = "ENTER DIMENSIONS EXACTLY";
:edit_box {
key="x";
label="What is your Overall Diemsnion of Object?" ;
edit_width=14;
alignment=centered;
}
:edit_box {
key="y" ;
label = "What is your Desired Spacing on Object?";
edit_width=14;
}
}
:boxed_column {
:edit_box {
label="Displays Overall in Feet & inches";
key="sd";
edit_width=14;
alignment=centered;
}
}}
:row {
:column {
width=10;
alignment=centered;
label="End Space 1";
:edit_box {
edit_width=6;
key="end1" ;
}
}
:column {
width=3;}
:column {
width=10;
label="# of Spaces";
:edit_box {
edit_width=6;
key="sp";
}
}
:row {
:column{
width=15;
:text {key="tt" ; value="SPACES @";
alignment=centered;}}
}
:column {
width=10;
label="Space Size";
:edit_box {
edit_width=6;
key="sp2";
}
}
:row {
:column{
width=15;
:text {key="eq" ; value="EQUALS";
alignment=centered;}}
}
:column {
width=10;
label="Overall Middle";
:edit_box {
edit_width=12;
key="oa";
}
}
:column {
width=3;}
:column {
width=10;
alignment=centered;
label="End Space 2";
:edit_box {
key="end2" ;
edit_width=6;
}
}}
:row {
:boxed_column {
label="Written by: Brandon DeLoach and Joe Barrertt     <2009>" ;}
}
: image {
key = "im1";
height = 30;
aspect_ratio = 1.5;
color = 0;
allow_accept = true;
}
: row {          // defines the OK/Cancel button row
 : spacer { width = 20; }
 : button {    // defines the OK or calculate button
   label = "Calculate";
   is_default = true;
   key = "accept";
   width = 8;
   fixed_width = true;
 }
 : button {    // defines the Cancel button
   label = "Cancel";
   is_cancel = true;
   key = "cancel";
   width = 8;
   fixed_width = true; }
 : spacer { width = 20;}
}
}

feet : dialog {
label = "Edit Box Test";
   : row {
       : edit_box {
       label = "Feet:";
       mnemonic = "F";
       key = "edit_feet";
       alignment = centered;
       edit_limit = 3;
       edit_width = 3;
       value = "2";
       }
       : edit_box {
       label = "Inches:";
       mnemonic = "I";
       key = "edit_inches";
       alignment = centered;
       edit_limit = 3;
       edit_width = 3;
       value = "3";
       }
   }
   ok_cancel;
}

(defun space:DialogInput (/ dcl_id dialogloaded dialogshow userclick what_next rtvls w h  dstx spax 
      )
(setq dialogLoaded T
dialogShow T) 
(if (= -1 (setq dcl_id (load_dialog "SPACE.DCL")));_looks for and loads the dcl file
(progn
(princ "\nERROR: Cannot load space.DCL");_error trapping
(setq dialogLoaded nil)
) ;_ end of progn
) ;_ end of if
(setq what_next 2);_this is a variable for the loop
(while (>= what_next 2);_this is the loop
(if (and (not (new_dialog "space" dcl_id));_if everything is found let the program proceed
dialogLoaded
) ;_ end of and
(progn
(princ "\nERROR: Cannot show dialog space");_error trap if there is a problem
) ;_ end of progn
) ;_ end of if]
    (start_image "im1")
(setq dialogShow t)
(setq w (dimx_tile "im1")
h (dimy_tile "im1"))
(slide_image 0 0 w h "space")
  (end_image)
(if (and dialogLoaded dialogShow)
(progn
;;; below is where you assign values to tiles and other stuff
(if rtvls
(progn
(set_tile "end1" (rtos(nth 0 rtvls)5 4))
(set_tile "sp" (rtos(nth 1 rtvls)2 0))
(set_tile "sp2" (rtos(nth 2 rtvls)4 4))
(set_tile "oa" (rtos(nth 3 rtvls)4 4))
(set_tile "end2" (rtos(nth 4 rtvls)5 4))
(set_tile "sd" (rtos(nth 5 rtvls)4 4))
);_progn
(progn
(set_tile "end1" "")
(set_tile "sp" "")
(set_tile "sp2" "")
(set_tile "oa" "")
(set_tile "end2" "")
(set_tile "sd" "")
);_progn
);_if
       (if dstx (set_tile "x" dstx)(set_tile "x" ""))
(if spax (set_tile "y" spax)(set_tile "y" ""))
(action_tile "cancel" "(done_dialog)(setq UserClick nil) ");_if user click the cancle button end dialog
                                                           ;;; if user clicks ok  button assign tile values to variables 
(action_tile "accept" 
(strcat
"(progn"
"(setq dstx (get_tile "x"))"
"(setq spax (get_tile "y"))"
"(if (not (member "" (list dstx spax)))"
"(progn"
"(done_dialog 4)"
")" ;_progn
"(alert "Please enter values")"
")" ;_if
")" ;_progn
) ;_end strcat
) ;_ end of action_tile
(setq what_next (start_dialog))
) ;_ end of progn
) ;_ end of if
(cond
((= what_next 4)
(setq rtvls (space (atof dstx)(atof spax))));_do this if user clicks the button named quit dialog
);_end cond
);_end while
(unload_dialog dcl_id)
) ;_ end of defun

space :dialog {
label = "The Spacing Chart!" ;
: row {
:boxed_column {
label = "ENTER DIMENSIONS EXACTLY";
:edit_box {
key="x";
label="What is your Overall Dimension of Object?" ;
edit_width=14;
alignment=centered;
}
:edit_box {
key="y" ;
label = "What is your Desired Spacing on Object?";
edit_width=14;
}
}
:boxed_column {
:edit_box {
label="Displays Overall in Feet & inches";
key="sd";
edit_width=14;
alignment=centered;
}
}}
:row {
:column {
width=10;
alignment=centered;
label="End Space 1";
:edit_box {
edit_width=6;
key="end1" ;
}
}
:column {
width=3;}
:column {
width=10;
label="# of Spaces";
:edit_box {
edit_width=6;
key="sp";
}
}
:row {
:column{
width=15;
:text {key="tt" ; value="SPACES @";
alignment=centered;}}
}
:column {
width=10;
label="Space Size";
:edit_box {
edit_width=6;
key="sp2";
}
}
:row {
:column{
width=15;
:text {key="eq" ; value="EQUALS";
alignment=centered;}}
}
:column {
width=10;
label="Overall Middle";
:edit_box {
edit_width=12;
key="oa";
}
}
:column {
width=3;}
:column {
width=10;
alignment=centered;
label="End Space 2";
:edit_box {
key="end2" ;
edit_width=6;
}
}}
:row {
:boxed_column {
label="Written by: Brandon DeLoach and Joe Barrertt     <2009>" ;}
}
: image {
key = "im1";
height = 30;
aspect_ratio = 1.5;
color = 0;
allow_accept = true;
}
: row {          // defines the OK/Cancel button row
 : spacer { width = 20; }
 : button {    // defines the OK or calculate button
   label = "Calculate";
   is_default = true;
   key = "accept";
   width = 8;
   fixed_width = true;
 }
 : button {    // defines the Cancel button
   label = "Cancel";
   is_cancel = true;
   key = "cancel";
   width = 8;
   fixed_width = true; }
 : spacer { width = 20;}
}
}