大家看下DCL文件问题出在哪

DCL文件定义如下：
newhhole_01:dialog{
label="化工部标准<-95>,机械部标准<-79>";
:row {
:radio_button {
  label="化工部标准手孔";
  key="mode_hg";
}
:radio_button {
  label="机械部标准手孔";
  key="mode_jb";
}
}
:boxed_column{
label="手孔类型";
:list_box {
  key="mode_lt";
  width=40;
  height=4;
}
}
:column{
:row {
    :popup_list {
      label="公称压力:";
      fixed_width=true;
      key="press_lt";
      edit_width=4;
    }
      :popup_list {
       label="密封面:  ";
       fixed_width=true;
       key="seal";
       edit_width=4;
     }
  }
:row{
      :popup_list {
         alignment=right;
         label="公称直径:";
         fixed_width=true;
         key="dimer_lt";
         edit_width=4;
       }
      :popup_list {
       label="材料类别:";
       fixed_width=true;
       key="mate";
       edit_width=4;
     }
}
  :row {
      :edit_box {
       label="高度(H1):";
       fixed_width=true;
       key="high";
       edit_width=6;
      }
      :popup_list {
       label="垫片型式:";
       fixed_width=true;
       key="dian";
       edit_width=6;
     }
}
  :row {
      :popup_list {
       label="回转盖轴耳型式:";
       key="zoer";
       fixed_width=true;
       edit_width=2;
     }
      :edit_box {
       label="垫片材料代号:";
       fixed_width=true;
       key="jbdh";
       edit_width=6;
      }
}
}
:row{
:boxed_row {
  :image_button {
     key="form";
     fixed_width=true;
     color= 0;
     width=14;
     height=5;
  }
:column{
   :radio_button{
     label="侧视";
     key="view_1";
     fixed_width=true;
    }
   :radio_button{
     label="正视";
     key="view_2";
     fixed_width=true;
   }
   :radio_button{
     label="俯视";
     key="view_3";
     fixed_width=true;
   }
  }
}
:column{
spacer;
spacer;
spacer;
ok_button;
cancel_button;
help_button;
}
}
}

装载的lsp程序如下
(alert "程序开始")
(setq dcl_id (load_dialog "newhhole_01"))
(alert "程序开始第一句")
(if (not (new_dialog "newhhole_01" dcl_id)) (exit))
(alert "程序开始第二句")
(action_title "accept" "(setq dcl_pt(done dialog 1))")
(action_title "cancle" "(done dialog 0)")
(setq dd(start_dialog))
(cont ((= dd 1) (printc "\n 确定<OK>!!!!! "))
      ((= dd 0)
      (unload_dialog dcl_id)
      (printc "\n 取消<Cancel>!!!!! "))
)

当执行时，不能出现上方的对话框
注：lsp程序能装载其他对话框文件

求高手指点

你必须把你的DCL文件放在cad的支持路径里；如果不放在支持路径里那么加载DCL文件时应该给出DCL路径。
比如你DCL文件放在C盘下X文件夹里，程序中加载DCL文件就应该这样：(setq dcl_id (load_dialog "C:/X/newhhole_01.dcl"))

我也有个问题，DCL文件怎么加载啊，我刚学习CAD，不熟悉，我的是2007版！