lisp画垫圈_晓东CAD家园-论坛-LISP/VLISP程序库-[LISP程序]：俺的画内六角圆柱头螺钉的LISP程序-见附件 - Powered by Discuz!...

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;

}

}

}