Category

Development Platform
Home > SourceCode/Document > Graph program > CAD > View Code
XGBT.DCL
Package: lcx.rar　[view]
Upload User: cqhairun
Upload Date: 2017-05-24
Package Size: 173k
Code Size: 2k
Category:

CAD

Development Platform:

Lisp/Scheme

XGBT.DCL：Code Content
  1. modify_title:dialog{
  2.   label="修改零件表头信息:";
  3. spacer;
  4. :popup_list{
  5.    label="零件名称及代号:";
  6.    key="ljmcjdh";
  7.    width = 30;
  8.    list = "";
  9. }
  10. :row{
  11.   :edit_box{
  12. label="产品名称:";
  13. key=cpmc;
  14. edit_width=12;
  15.   }
  16.   :edit_box{
  17. label="产品型号:";
  18. key=cpxh;
  19. edit_width=12;
  20.   }
  21.   :edit_box{
  22. label="零件名称:";
  23. key=ljmc;
  24. edit_width=12;
  25.   }
  26. }
  27. spacer;
  28. :row{
  29.   :edit_box{
  30. label="零件图号:";
  31. key=ljth;
  32. edit_width=12;
  33.   }
  34.   :edit_box{
  35. label="毛坯类型:";
  36. key=mplx;
  37. edit_width=12;
  38.   }
  39.   :edit_box{
  40. label="零件净重:";
  41. key=ljjz;
  42. edit_width=12;
  43.   }
  44. }
  45. spacer;
  46.      :row{
  47. :column{
  48.   :edit_box{
  49. label="合加工产品型号:";
  50. key=hjgcpxh;
  51. edit_width=12;
  52.   }
  53. spacer;
  54.   :edit_box{
  55. label="合加工件零件号:";
  56. key=hjgjljh;
  57. edit_width=12;
  58.   }
  59. spacer;
  60.   :popup_list{
  61. label="零件类型:";
  62. key=ljlx;
  63. edit_width=12;
  64.   }
  65. spacer;
  66.   :popup_list{
  67. label="材料:";
  68. key=cl;
  69. edit_width=12;
  70.   }
  71. spacer;
  72.   :popup_list{
  73. label="油漆分类:";
  74. key=yqfl;
  75. edit_width=12;
  76.   }
  77. spacer;
  78.   :popup_list{
  79. label="热处理类型:";
  80. key=rcllx;
  81. edit_width=12;
  82.   }
  83. }
  84. spacer;
  85.  :column{ 
  86.   :edit_box{
  87. label="每台本部件数:";
  88. key=mtbbjs;
  89. edit_width=12;
  90.   }
  91. spacer;
  92.    :edit_box{
  93. label="铸件工艺要求:";
  94. key=zjgyyq;
  95. edit_width=12;
  96.    }
  97. spacer;
  98.   :edit_box{
  99. label="工件最大高度:";
  100. key=gjzdgd;
  101. edit_width=12;
  102.   }
  103. spacer;
  104.   :edit_box{
  105. label="工件最大宽度:";
  106. key=gjzdcd;
  107. edit_width=12;
  108.   }
  109. spacer;
  110.   :edit_box{
  111. label="每坯制作件:";
  112. key=mpzzj;
  113. edit_width=12;
  114.   }
  115.  }
  116.        }
  117.    spacer;
  118.     :row{
  119.       alignment=centered;
  120. :button{
  121.    label="存盘退出";
  122. key=save;
  123. fixed_width=true;
  124. fixed_height=true;
  125. width=8;
  126. height=2;
  127. }
  128. :button{
  129. label="取消";
  130. key=exit;
  131. is_cancel=true;
  132. fixed_width=true;
  133. fixed_height=true;
  134. width=8;
  135. height=2;
  136. }
  137.       }
  138.     }