autolisp的各种框（DCL）

一、DCL是什么?
前面的事情，是通过在命令行输入参数来实现某个指令的，而DCL是通过用户界面来实现交互的。下图就是一个典型的DCL。
二、DCL怎么用？
首先说明，DCL不像lisp，可以直接通过vlide命令调用出来，调用过程如下：
1、通过vlide命令，打开autolisp对话框，选择文件-另存为DCL格式的文件
2、输入下面的代码保存并载入

(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 "\n对话框名："))
  (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)

3、在CAD输入viewdcl命令，就可以调用DCL命令了，这是个载入前序步骤。
4、完成上面的步骤，你会发现会让你输入两个东西,第一是个DCL文件，你还没有，下一步我就给你，第二步是输入这个DCL文件里的一个函数（文件里可能有很多函数，你调用哪一个都可以）

5、贴出示例的代码（这些代码不是我原创，仅仅作为练习使用）

first002:dialog{
  label="the second design";
  :text{
 	 label="i am newer";
  	alignment=centered;
  }
  spacer_1;
  ok_cancel;
  }

6、结束，展示下CAD屏幕中会出现的东西。