AutoLISPDCL对话框设计

AutoLISPDCL对话框设计，代码如下。

(defun c:viewdcl()
  (if (null dcl_pt)
    (setq dcl_pt '(-1 -1))
    )
  (setq dcl_file (getfiled "打开DCL文件" "" "DCL" 2))
  (princ "DCL文件名：") (princ dcl_file)
  (setq dia_name (getstring "\nDialog对话框名："))
  (if (= dia_name "") (exit))
  (setq dcl_id (load_dialog dcl_file))
  (new_dialog dia_name dcl_id)
  (action_tile "accept" "(setq dcl_pt (done_dialog 1))")
  (action_tile "cancel" "(done_dialog 0)")
  (setq dd(start_dialog))
  (cond ((= dd 1) (princ "\n确定<Ok>!!!"))
    ((= dd 0) (princ "\n取消<Cancel>!!!"))
    )
  (prin1)
  )
(prompt "------VIEWDCL对话框设计------")
(prin1)

代码完。