[求助]dck中把点取的坐标赋给textt中？

ghl_729

大家好 我做了下面的界面

 

现在我点取“点击坐标”后怎么不能把点取的坐标值赋给X 和 Y中呢？但是我取得的变量还是有的啊

下面是我的程序

 

 (while (>= dow 2)
   (if(not(new_dialog "fgw" dcl_dtszh)) (exit))
   (if (/= tfm "") (set_tile "tfm" tfm))
   (if (= blc 0.5) (set_tile "bl_1" "1"))
   (if (= blc 1.0) (set_tile "bl_2" "1"))
   (if (= blc 2.0) (set_tile "bl_3" "1"))
   (if (= blc 5.0) (set_tile "bl_4" "1"))
  
   (action_tile "gpoint" "(done_dialog 2)")
   

   (action_tile "accept" "(fgw_ok) (done_dialog 1)")
   (action_tile "cancel" "(progn (done_dialog) (setq bz 0))")
   (setq dow (start_dialog))
   (if (= dow 2)
     (progn
      (setq pt (getpoint "/n请选择图幅的左下角坐:"))
      (setq x1_pt (cadr pt))
      (setq y1_pt (car pt))
      (set_tile "x" (rtos x1_pt))
      (set_tile "y" (rtos y1_pt)) ；这两句是应该把坐标赋给上面的XY中的 为什么没有变化呢
      )
     )

 )

ghl_729

 (while (>= dow 2)
   (if(not(new_dialog "fgw" dcl_dtszh)) (exit))
   (if (/= tfm "") (set_tile "tfm" tfm))
   (if (= blc 0.5) (set_tile "bl_1" "1"))
   (if (= blc 1.0) (set_tile "bl_2" "1"))
   (if (= blc 2.0) (set_tile "bl_3" "1"))
   (if (= blc 5.0) (set_tile "bl_4" "1"))
  
   (action_tile "gpoint" "(done_dialog 2)")
     (set_tile "x" (rtos x1_pt))
      (set_tile "y" (rtos y1_pt)) ；这两句是应该把坐标赋给上面的XY中的 为什么没有变化呢

   (action_tile "accept" "(fgw_ok) (done_dialog 1)")
   (action_tile "cancel" "(progn (done_dialog) (setq bz 0))")
   (setq dow (start_dialog))
   (if (= dow 2)
     (progn
      (setq pt (getpoint "/n请选择图幅的左下角坐:"))
      (setq x1_pt (cadr pt))
      (setq y1_pt (car pt))
           )
     )

 )

ghl_729

这样就可以了 呵呵