[讨论]：对话的程序程序问题

wujinhua3847

这是一个画轴的程序,在对话框中怎样才能保留上次输入的数据,以作下次再打开时不用重新再调.
(defun c:shaft( / d l x y id std x1 y1)
  (defun getdata()  ;定义从编缉框获取D.L.x.y数据的函数
    (setq d(atof(get_tile"D_box")))    ;"atof"将字符串转换成实型数
    (setq l(atof(get_tile"L_box")))
    (setq x(atof(get_tile"X_box")))
    (setq y(atof(get_tile"Y_box")))
  )
  (setvar"cmdecho"0)                   ;不显示普通命令的提示
  (command"layer" "m" "solid" "")
  (command"layer" "m" "cen" "c" 1 "" "lt" "center" "" "")
  (setq id(load_dialog "C:\\Program Files\\Autodesk\\MDT 2004\\Support\\12-13.dcl"))  ;装入对话框文件
  (if(< id 0)(exit))       ;当加载成功后id的值会大于1
  (setq d 50 l 100 x 0 y 0 std 2 p (list 0 0))
  (while(> std 1);这里用到循环是DCL的循环显示
    (if(not(new_dialog"zhou"id))(exit))
    (setq x1(dimx_tile"image"))     ;获取图像宽度赋给变量x1
    (setq y1(dimy_tile"image"))
    (start_image"image")
    (slide_image 0 0 x1 y1 "C:\\Program Files\\Autodesk\\MDT 2004\\Support\\12-13.sld")  ;插入幻灯片
    (end_image)
    (set_tile "D_box"(rtos d 2 2))
    (set_tile "L_box"(rtos l 2 2))
    (set_tile "X_box"(rtos x 2 2))
    (set_tile "Y_box"(rtos y 2 2))
    (action_tile "pick" "(getdata)(done_dialog 2)")     ;设置屏幕取点按钮的活动
    (action_tile "accept" "(getdata)(done_dialog 1)")
    (action_tile "cancel" "(done_dialog 0)")
    (setq std(start_dialog))
    (if(= std 2)
      (progn
        (initget 1)     ;禁止空输入
        (setq p(getpoint "定位点:"))
        (setq x(car p)y(cadr p))
      )
    )
  )
  (if(= std 1)
    (progn
      (command"layer""m""solid" "")
      (command"pline"
              (list x(+ y(* 0.5 d)))
              (list x(- y(* 0.5 d)))
              (list (+ x l)(- y(* 0.5 d)))
              (list (+ x l)(+ y(* 0.5 d)))
              "c")
      (command"layer" "m" "cen" "")
      (command"line"(polar p pi 10)(polar p 0(+ l 10)) "")
    )
  )
  (unload_dialog id)
  (princ)
)
   

zhou: dialog{
label="绘制轴段";
alignment=centered;
:row{
  :image{width=40;
         height=8;
         key="image";
         color=-2;
         }
  :column{
    :edit_box{label="直径&D(mm):";
              key="D_box";
              width=12;
              }
    :edit_box{label="长度&L(mm):";
              width=12;
              key="L_box";
              }
    :boxed_column{
        label="定位点";
        :button{
           label="屏幕取点<";
           key="pick";
               }
        :edit_box{
           label="&X(mm):";
           width=12;
           key="X_box";
                 }
        :edit_box{
           label="&Y(mm):";
           width=12;
           key="Y_box";
                 }
                  }
          }
     }
   ok_cancel;
  }