【求助】隐藏对话框不能返回。。。

seven11

做了1个小程序，本意是可以直接输入图层名，也可以点选图元确定图层名。
对话框能隐藏但不能返回了，请帮忙看看哪里错了？

(defun c:jxtc (/ dcl_id wn)
    (setq fn (open "d:/Backup/cad/jxtc1.txt" "r"))
    (setq l_ywbz (read-line fn)
          l_jzbz (read-line fn)
          l_lxtc (read-line fn)
    )
    (close fn)
    (if (and (not dcl_id)
        (< (setq dcl_id (load_dialog "jxtc1.dcl")) 0)
        )
        (exit)
    )
    (if (not (new_dialog "jxtc1" dcl_id))
        (exit)
    )
    (setq wn 2)
   (while (>= wn 2)
    (set_tile "edit1" l_ywbz)
    (set_tile "edit2" l_jzbz)
    (set_tile "edit3" l_lxtc)
    (action_tile "edit1" "(setq l_ywbz $value)")
    (action_tile "edit2" "(setq l_jzbz $value)")
    (action_tile "edit3" "(setq l_lxtc $value)")
    (action_tile "pick1" "(done_dialog 4)")
    (action_tile "accept" "(done_dialog 1)")
    (action_tile "cancel" "(done_dialog 0)(exit)")
    (setq wn (start_dialog))
    (cond
       ((= wn 4)
        (dxtc)
       )
    )
   )
    (unload_dialog dcl_id)
    (setq fn (open "d:/Backup/cad/jxtc1.txt" "w"))
    (write-line l_ywbz fn)
    (write-line l_jzbz fn)
    (write-line l_lxtc fn)
    (close fn)
)

(defun dxtc (/ l_ent)
    (setq l_ent (entsel))
    (setq l_ywbz (cdr (assoc 8 (entget (car l_ent)))))
    (set_tile "edit1" l_ywbz)
)

Andyhon

Ref Here:
http://www.afralisp.net/dialog-c ... evisited-part-2.php

seven11

知道了，new_dialog 位置错了，谢谢！！！