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

JINGSABING

见附件

JINGSABING

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;
          }
      }
   }

JINGSABING

dat文件
将这三个文件放的AUTOCAD R14的SUPPORT下,在COMMAND下用
^C^C^P(load "B_SCREW_COLUMN")(B_SCREW_COLUMN) ^P就可

JINGSABING

b_screw_COLUMN.dat文件
1.6,3.14,1.6,1.5,0.7,15.0,2.5,16.0,0.0,0.0,0.0,1.7,3.5,0.3
2.0,3.98,2.0,1.5,1.0,16.0,3.0,20.0,2.1,0.5,0.5,2.2,4.5,0.3
2.5,4.68,2.5,2.0,1.1,17.0,4.0,25.0,2.6,0.65,0.65,2.7,5.0,0.5
3.0,5.68,3.0,2.5,1.3,18.0,5.0,30.0,3.1,0.8,0.8,3.2,6.0,0.5
4.0,7.22,4.0,3.0,2.0,20.0,6.0,40.0,4.1,1.1,1.1,4.3,8.0,0.5
5.0,8.72,5.0,4.0,2.5,22.0,8.0,50.0,5.1,1.3,1.3,5.3,10.0,1.0
6.0,10.22,6.0,5.0,3.0,24.0,10.0,60.0,6.1,1.6,1.6,6.4,12.0,1.6
8.0,13.27,8.0,6.0,4.0,28.0,12.0,80.0,8.1,2.1,2.1,8.4,16.0,1.6
10.0,16.27,10.0,8.0,5.0,32.0,16.0,100.0,10.2,2.6,2.6,10.5,20.0,2.0
12.0,18.27,12.0,10.0,6.0,36.0,20.0,120.0,12.2,3.1,3.1,13.0,24.0,2.5
16.0,24.33,16.0,14.0,8.0,44.0,25.0,160.0,16.2,4.1,4.1,17.0,30.0,3.0
20.0,30.33,20.0,17.0,10.0,52.0,30.0,200.0,20.2,5.0,5.0,21.0,37.0,3.0
24.0,36.39,24.0,19.0,12.0,60.0,40.0,200.0,24.5,6.0,6.0,25.0,44.0,4.0
30.0,45.39,30.0,22.0,15.5,72.0,45.0,200.0,30.5,7.5,7.5,31.0,56.0,4.0
36.0,54.46,36.0,27.0,19.0,84.0,55.0,200.0,36.5,9.0,9.0,37.0,66.0,5.0

将这三个文件放的AUTOCAD R14的SUPPORT下,在COMMAND下用
^C^C^P(load "B_SCREW_COLUMN")(B_SCREW_COLUMN) ^P就可

JINGSABING

怎么附件总加不上去啊
真讨厌!!!

sandylin2009

：（
没爱心币

KENSHIN709

晕倒!!太复杂了吧，有简单一点的吗？

zhinay_cn

好复杂
能不能解释一线

lgwlgw

我也有一个外六角的,先行谢过

coolpeter

我正需要这个啊
可惜下载要MONEY

pedromaxkang

怎麼沒有主程序?
不過也頂一下吧!

totorojdm

好像不错的样子~
不过主程序看不到~