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;

}

}

}

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

  1. 如何用lisp画蔓叶线_晓东CAD家园-论坛-晓东工具箱、编程申请-求帮忙,编写一个,快速填充图案的 LISP程序 - Powered by Discuz!...

    这是我根据从网络上收集到的填充LISP插件,加以修改的的结果.虽然不完美,但还是能达到,60%的期望.发出来,大家帮忙修改一下. ;填充图案的 LISP插件 (defun c:HH(/ kw lay ...

  2. lisp 天正标高_天正lisp文件夹_晓东CAD家园-论坛-A/VLISP-[求助]:怎样设置这个lisp里的读取文件...

    马上注册,结交更多好友,享用更多功能,让你轻松玩转社区. 您需要 登录 才可以下载或查看,没有帐号?立即注册 x 这时一个别人很久以前的lisp文件,可能是cadR12版就有了.文件语句如下: (se ...

  3. lisp点位提取_晓东CAD家园-论坛-A/VLISP-[LISP函数]:计算到指定点指定距离的点的点位 - Powered by Discuz!...

    ;;;================================================================= ;;;计算到指定点指定距离的点的点位 ;;;参数:lst -- ...

  4. lisp把选集转成表_晓东CAD家园-论坛-LISP/VLISP程序库-[LISP程序]:把text转为属性图块 - Powered by Discuz!...

    ;;把text转为属性图块 ;;By LUCAS (defun C:C_DEF (/ HOLDECHO HOLDBLIP HOLDREQ SS SSS N A AA A1 A73 HH LST_210 ...

  5. LISP 圆孔标记_晓东CAD家园-论坛-A/VLISP-获取当前标注样式-;;希望大家来完善它 - Powered by Discuz!...

    (defun C:get_current_dimStyle (/ L LST Y) (setq        Lst (list "blipmode"                ...

  6. lisp将图元追加选择_晓东CAD家园-论坛-A/VLISP-向块添加新图元,添加图元到块内 - Powered by Discuz!...

    (defun $add-ents>block$ (ents block / copy-zt dxf mat mxm mxv objs ref->def trp B-O) ;块外图元复制到块 ...

  7. lisp 多段线转面域_晓东CAD家园-论坛-晓东工具箱、编程申请-[编程申请]:批量面域转成闭合多段线!!!!-批量面域转成闭合多段线!!!! - Powered by Discuz!...

    '将多个直线连成一条轻质多段线 Public Sub joinpoly(reg As AcadRegion) reg.Explode On Error Resume Next Dim sset As ...

  8. Lisp获取偏置后对象的坐标点_晓东CAD家园-论坛-A/VLISP-[LISP程序]:求助:用lsp提取lwpline的点坐标-有现成的吗?谢谢! - Powered by Discuz!...

    这时有一段代码,可供参考(写的时间太久了) ;;==================================================================== ;; ;将选择 ...

  9. cad线段总和lisp_晓东CAD家园-论坛-LISP/VLISP程序库-[LISP程序]:文本工具:面积文字累加求和 - Powered by Discuz!...

    [FONT=courier new] (princ "\nc:txta===面积文字累加求和---txtas设置--------lxx.2001.5") (princ " ...

最新文章

  1. 和rgb画面质量谁好_双11内存RGB灯条如何选?低于400元,只聊酷兽和阿斯加特
  2. 将现有Git存储库推送到SVN
  3. mysql查询表名匹配只有字母的_MySQL按某些匹配字母查询表
  4. 并发编程(十六)——java7 深入并发包 ConcurrentHashMap 源码解析
  5. 21世纪——交互设计
  6. 不同光栅的结构特点、优缺点以及光栅的选择
  7. 关于计算机WIFI网络(无线网卡)消失问题
  8. Python.习题六 字典与集合(下)
  9. mysql特性绕过安全狗_【经验总结】SQL注入Bypass安全狗360主机卫士
  10. 已解决:connection holder is null问题。
  11. 广州搬家公司 居民搬家 公司搬迁 事业单位搬迁全天服务
  12. 网络聊天中的英语简写
  13. 良心推荐:看完这10部豆瓣高分美剧,英语水平提升几个Level!
  14. hadoop的两个推荐下载地址
  15. C++入门基础总结(最详细)
  16. 致敬达叔!Python带你回顾达叔出演过的作品与合作过的演员
  17. ker矩阵是什么意思_变换矩阵与投影
  18. JS/Jquery版本的俄罗斯方块(附源码分析)
  19. 对中国Linux有杰出贡献的几位人物[转贴]
  20. IBM X3650 M4安装win 2008 Server操作指南

热门文章

  1. Sort方法根据T类某个字段对泛型集合ListT排序
  2. django集成原有数据库
  3. 如何weak link一个framework (高版本兼容低版本)
  4. fastica和pca区别_PCA与ICA
  5. cesium three性能比较_硬金和千足金都是黄金,哪个比较好?为什么80%人都说硬金不好?...
  6. android工控软件,基于Android的工业控制监控软件的设计和开发
  7. 登峰连接程式改坐标软件_数控仿真软件CIMCOEdit常用的操作,新手必看
  8. zbbix服务器搭建_zabbix服务器的搭建
  9. APP天气预报界面设计灵感
  10. UI设计师应该知道的汉字体种类的用途(免费素材)