[LISP程序]：俺的画内六角圆柱头螺钉的LISP程序

JINGSABING

1)B_SCREW_COLUMN.DCL
/*;这是一个基于AutoCad 14.0下画螺钉的程序
;本程序作者b.w
;本程序无偿使用
;如有更好建议，请联系b.w
;版本:2.0.01
;日期:14/02-2002
*/

B_SCREW_COLUMN: dialog
   {
   aspect_ralio=0;
   label = "***紧固件——内六角圆柱头螺钉***  版本：试用版";
   :boxed_column
     {
     label = " ";
     :row
       {
       :column
         {
         :boxed_column
           {
           label = "当前视图&V";
           :column
             {
             children_alignment=centered;
             :image_button
               {
               key = "B_SCREW_COLUMN_VIEW_DCL";
               color                   = 0;
               width                   = 25;
               aspect_ratio            = 0.5;
               fixed_height            = true;
               fixed_width             = true;
               alignment = centered;
               }
             :popup_list
               {
               label = "视图选择&I: ";
               key = "B_SCREW_COLUMN_VIEW_S_DCL";
               list = "主  视  图\n侧  视  图";
               edit_width =10;
               }  
             }
           }
         :boxed_column
           {
           label = "插入点&P";
           :button
             {
             label = "选 择 点&E <";
             key = "B_SCREW_COLUMN_CENTER_DCL";
             alignment = centered;
             }
           :edit_box
             {
             label = "X:";
             key = "B_SCREW_COLUMN_CENTER_X_DCL";
             edit_width = 18;
             mnemonic = "X";
             }
           :edit_box
             {
             label = "Y:";
             key = "B_SCREW_COLUMN_CENTER_Y_DCL";
             edit_width = 18;
             mnemonic = "Y";
             }
           :edit_box
             {
             label = "Z:";
             key = "B_SCREW_COLUMN_CENTER_Z_DCL";
             edit_width = 18;
             mnemonic = "Z";
             }
           }
         }
       :column
         {
         :boxed_column
           {
           label = "尺寸选择";
           :column
             {
             children_alignment=centered;
             :row
               {
               :text_part
                 {
                 label = "当前螺纹&U:";     //  style name
                 width =10;
                 fixed_width = true;
                 }
               :edit_box
                 {                        // for user to enter/specify
               key = "B_SCREW_COLUMN_DIAMETER_DCL";
                 edit_width = 11;
                 edit_limit = 10;
                 }
               }
             :popup_list
               {
               label = "螺纹选择&S:";
               key = "B_SCREW_COLUMN_DIAMETER_S_DCL";
               list = "1.6\n2.0\n2.5\n3.0\n4.0\n5.0\n6.0\n8.0\n10.0\n12.0\n16.0\n20.0\n24.0\n30.0\n36.0";
               edit_width = 10;
               }  
             }
           :row
             {
             :text_part
               {
               label = "当前长度&L:";     //  style name
               width =10;
               fixed_width = true;
               }
             :edit_box
               {                        // for user to enter/specify
             key = "B_SCREW_COLUMN_LENGTH_DCL";
             edit_width = 11;
             edit_limit = 10;
               }
             }
           :popup_list
             {
             label = "长度系列&G:";
             key = "B_SCREW_COLUMN_LENGTH_S_DCL";
             edit_width = 10;
             }  
           errtile;
           }
         :row
           {
           :toggle
             {
             label = "弹簧垫圈&S";
             key = "B_SCREW_COLUMN_WASHER_SPRING_DCL";
             mnemonic = "S";
             alignment =centered;
             }   
           :toggle
             {
             label = "平 垫 圈&F";
             key = "B_SCREW_COLUMN_WASHER_FLAT_DCL";
             mnemonic = "F";
             alignment =centered;
             }   
           }   
         :boxed_column
           {
           label = "插入角度";
           :button
             {
             label = "角度选择&N:";
             key = "B_SCREW_COLUMN_ANGLE_S_DCL";
             edit_width = 10;
             alignment = centered;
             }
           :edit_box
             {
             label = "角度&A:";
             key = "B_SCREW_COLUMN_ANGLE_DCL";
             edit_width = 14;
             mnemonic = "N";
             }
           }
         }
       }
     }
   :boxed_column
     {
     label = "国家标准号";
     key = "B_GB";
      :column
        {
        children_alignment=centered;
        :row
          {
          :text_part
            {
            label = " 当 前 标 准 号&C:";
            width =10;
            fixed_width = true;
            }
          :edit_box
            {                        
          key = "B_SCREW_COLUMN_CRITERION_DCL";
            edit_width = 32;
            edit_limit = 100;
            }
          }
        :popup_list
          {
          label = "选 择 标 准 号 &B:";
          key = "B_SCREW_COLUMN_CRITERION_S_DCL";
          list = "内六角圆柱头螺钉(GB/T70-1985)";
          edit_width = 31.2;
          }  
        }
     }

   : row
      {
      alignment=centered;
      ok_cancel;
      }
   : boxed_column
      {
      label = " ";
       : text
          {
          label="  >>版权所有，翻录不究<<";
          alignment=centered;
          }
       : text
          {
          label="     >>作者：B。W<<";
          alignment=centered;
          }
      }
   }