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;
}
}
}
lisp画垫圈_晓东CAD家园-论坛-LISP/VLISP程序库-[LISP程序]:俺的画内六角圆柱头螺钉的LISP程序-见附件 - Powered by Discuz!...相关推荐
- 如何用lisp画蔓叶线_晓东CAD家园-论坛-晓东工具箱、编程申请-求帮忙,编写一个,快速填充图案的 LISP程序 - Powered by Discuz!...
这是我根据从网络上收集到的填充LISP插件,加以修改的的结果.虽然不完美,但还是能达到,60%的期望.发出来,大家帮忙修改一下. ;填充图案的 LISP插件 (defun c:HH(/ kw lay ...
- lisp 天正标高_天正lisp文件夹_晓东CAD家园-论坛-A/VLISP-[求助]:怎样设置这个lisp里的读取文件...
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区. 您需要 登录 才可以下载或查看,没有帐号?立即注册 x 这时一个别人很久以前的lisp文件,可能是cadR12版就有了.文件语句如下: (se ...
- lisp点位提取_晓东CAD家园-论坛-A/VLISP-[LISP函数]:计算到指定点指定距离的点的点位 - Powered by Discuz!...
;;;================================================================= ;;;计算到指定点指定距离的点的点位 ;;;参数:lst -- ...
- 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 ...
- LISP 圆孔标记_晓东CAD家园-论坛-A/VLISP-获取当前标注样式-;;希望大家来完善它 - Powered by Discuz!...
(defun C:get_current_dimStyle (/ L LST Y) (setq Lst (list "blipmode" ...
- 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) ;块外图元复制到块 ...
- lisp 多段线转面域_晓东CAD家园-论坛-晓东工具箱、编程申请-[编程申请]:批量面域转成闭合多段线!!!!-批量面域转成闭合多段线!!!! - Powered by Discuz!...
'将多个直线连成一条轻质多段线 Public Sub joinpoly(reg As AcadRegion) reg.Explode On Error Resume Next Dim sset As ...
- Lisp获取偏置后对象的坐标点_晓东CAD家园-论坛-A/VLISP-[LISP程序]:求助:用lsp提取lwpline的点坐标-有现成的吗?谢谢! - Powered by Discuz!...
这时有一段代码,可供参考(写的时间太久了) ;;==================================================================== ;; ;将选择 ...
- cad线段总和lisp_晓东CAD家园-论坛-LISP/VLISP程序库-[LISP程序]:文本工具:面积文字累加求和 - Powered by Discuz!...
[FONT=courier new] (princ "\nc:txta===面积文字累加求和---txtas设置--------lxx.2001.5") (princ " ...
最新文章
- 和rgb画面质量谁好_双11内存RGB灯条如何选?低于400元,只聊酷兽和阿斯加特
- 将现有Git存储库推送到SVN
- mysql查询表名匹配只有字母的_MySQL按某些匹配字母查询表
- 并发编程(十六)——java7 深入并发包 ConcurrentHashMap 源码解析
- 21世纪——交互设计
- 不同光栅的结构特点、优缺点以及光栅的选择
- 关于计算机WIFI网络(无线网卡)消失问题
- Python.习题六 字典与集合(下)
- mysql特性绕过安全狗_【经验总结】SQL注入Bypass安全狗360主机卫士
- 已解决:connection holder is null问题。
- 广州搬家公司 居民搬家 公司搬迁 事业单位搬迁全天服务
- 网络聊天中的英语简写
- 良心推荐:看完这10部豆瓣高分美剧,英语水平提升几个Level!
- hadoop的两个推荐下载地址
- C++入门基础总结(最详细)
- 致敬达叔!Python带你回顾达叔出演过的作品与合作过的演员
- ker矩阵是什么意思_变换矩阵与投影
- JS/Jquery版本的俄罗斯方块(附源码分析)
- 对中国Linux有杰出贡献的几位人物[转贴]
- IBM X3650 M4安装win 2008 Server操作指南
热门文章
- Sort方法根据T类某个字段对泛型集合ListT排序
- django集成原有数据库
- 如何weak link一个framework (高版本兼容低版本)
- fastica和pca区别_PCA与ICA
- cesium three性能比较_硬金和千足金都是黄金,哪个比较好?为什么80%人都说硬金不好?...
- android工控软件,基于Android的工业控制监控软件的设计和开发
- 登峰连接程式改坐标软件_数控仿真软件CIMCOEdit常用的操作,新手必看
- zbbix服务器搭建_zabbix服务器的搭建
- APP天气预报界面设计灵感
- UI设计师应该知道的汉字体种类的用途(免费素材)