[求助]隐藏Autocad对话框如何回显

pickle_cad

隐藏AutoCAD对话框时如何让它操作完又显示出来,如点选坐标点后自动显示并将值反映在编辑框中。

郁闷，一直没搞懂(start_dialog)在其中起的作用，还请各位高手指点迷津。谢谢！

pickle_cad

liminnet，能否说的具体点,我真的真的不知怎么搞，尤其start_dialog不知道到底在里面起什么作用，还请多帮忙

pickle_cad

没有看到有相关内容呀。还请明确指教，谢谢！

ZZXXQQ

……
 (if (> (setq dcl_id(load_dialog "two")) 0) (progn
  (setq re 2)
  (while (> re 1)
   (if (new_dialog "two" dcl_id) (progn
    (action_tile "getpoint" "(done_dialog 2)")
    (action_tile "accept" "(ok_1st)(done_dialog 1)")
    (action_tile "cancel" "(done_dialog 0)")
    (setq re (start_dialog))
   )
    (alert "Unable to display dialog box!\n无法显示对话框！")
   )
   (if (= re 2) (progn
    ……
   ))
  ) ;end while
  (unload_dialog dcl_id)
 )
  (alert "Unable to load dialog box!\n无法装载对话框！")
 )
 (if (= re 1) (progn
  ……
 ))
……

pickle_cad

谢谢ZZXXQQ版主

不知下面红色部分表示什么意思，上面有了一个(done_dialog 2),为什么下面又调用一遍呢?还请指点。

(defun dlg2(/)
  (if (not (new_dialog "basept" id)) (exit))
  (initimg "rect2" "rect2")
  (set_tile "x" (rtos x 2 2))
  (set_tile "y" (rtos y 2 2))
  (action_tile "pick" "(done_dialog 2)")
  (action_tile "accept" "(getdata2) (done_dialog 3)")
  (action_tile "cancel" "(done_dialog 4)")
  (setq what (start_dialog))
  (if (= what 2) (done_dialog 2))
       )

ZZXXQQ

我六楼只调用了一遍呀。

pickle_cad

呵呵,六楼的没问题，我指的是在七楼复制的代码,它是一个子对话框，很不明白他直接调用（done_dialog 2)干什么？？还请ZZXXQQ版主指教

(defun dlg2(/)
  (if (not (new_dialog "basept" id)) (exit))
  (initimg "rect2" "rect2")
  (set_tile "x" (rtos x 2 2))
  (set_tile "y" (rtos y 2 2))
  (action_tile "pick" "(done_dialog 2)")
  (action_tile "accept" "(getdata2) (done_dialog 3)")
  (action_tile "cancel" "(done_dialog 4)")
  (setq what (start_dialog))
  (if (= what 2) (done_dialog 2))
       )

ZZXXQQ

调用两次当然是不对的。删了就行了。