求助：对话框无法隐藏以拾取屏幕坐标

gingko_sf

    本人制作了一个简单的画圆对话框，其中可能需要隐藏对话框以拾取屏幕坐标，但就是不隐藏，“确定”和“取消”按钮功能倒是正常。一直找不出问题出在哪儿，这里高人多，请教。



LISP代码
(defun getdata ()  ;从对话框获取数据的子程序   ;子程序
            (setq xc (atof (get_tile "X")))
            (setq yc (atof (get_tile "Y")))
             (setq r (atof (get_tile "R")))
        )

(defun yuan ( )      ;子程序
    (command "circle" (list  xc yc) r)

  )
(defun c:drawcircle ( / p xc yc r id x1 y1 sdt id)
  (setq xc 50.0 yc 50 r 25)
  (setq sdt 2)
(while (> sdt 1)
  (setq id (load_dialog "C:\\drawcircle.dcl"))
  (if (< id 0)(exit))
  (if (not (new_dialog "drawcircle" id))(exit))  

  (set_tile "X" (rtos xc 2 2))  
  (set_tile "Y" (rtos yc 2 2))
  (set_tile "R" (rtos r 2 2))  
  (action_tile "hide" "(getdata)(done_dialog 4)")   
  (action_tile "accept" "(getdata)(done_dialog 1)")  
  (action_tile "cancel" "(done_dialog 0)")   
  (setq sdt (start_dialog))   

   (if (= sdt 2 )
         (progn
              
               (setq p (getpoint "圆心坐标拾取：" ) )
               (setq xc (car p) yc (cadr p) )
          ) ;end of progn
           
    ) ;end of lower if


)  ;end of while

        (if (= sdt 1 ) (yuan)
         )  ;end of upper if


  (unload_dialog id)

  (princ)
  )

yjr111

有书吗？看一下书，需要while循环的

Andyhon

Ref:
http://www.afralisp.net/dialog-c ... ng-dialog-boxes.php

gingko_sf

谢谢andyhon长老的例子。
我解决了。