哪位高手帮帮忙啊!!!!!!!!!!!!!!!!救命啊

picachoboy

我想做一个对话框循环的程序，就是在对话框上有一按扭，点击之后可以用getpoint在屏幕中取一点，取完后又可以回到刚刚调用过的对话框，拜托拜托了，急。。。。。。

meflying

(defun c:hidedcl (/ dcl_id what_next cnt)
  (setq dcl_id (load_dialog "d:\\tmp.dcl"))                 ;加载对话框
  (setq what_next 2)
  (setq cnt 1)
  (while (>= what_next 2)                                ;开始显示循环
    (if (null (new_dialog "hidedcl" dcl_id))        ;初始化对话框
      (exit)                                                ;如果返回 nil 则退出
    ); endif  
    (action_tile "accept" "(done_dialog 1)")         ;设置 OK 的动作
    (action_tile "hide" "(done_dialog 4)")        ;设置 PickMe的动作
    (setq what_next (start_dialog))                ;显示对话框
    ;
      (if (= what_next 4)                                ;提示用户
        (getpoint "\npick a point")                ;拾取 pt
      )
  (unload_dialog dcl_id)
  (princ)
)

前生