下载文档原格式
实验一菜单及工具条制作（2学时）一、实验内容1．制作下图所示的标准件菜单；2．将上述菜单的第三级按钮制作成三个工具栏。
工具条按钮如下：二、实验目的1．掌握UG软件中菜单的创建，可以根据需要建立相应的菜单条；2．掌握UG软件中工具栏的创建，可以根据需要建立相应的工具栏。
三、实验器材计算机1台，UG程序1套。
四、实验原理根据UG中菜单及工具栏制作的方法进行菜单及工具栏制作。
五、实验步骤（详细撰写）1．写出菜单文件；2．写出工具栏文件；3．写出UG系统文件的设置方法。
六、实验过程1.在环境变量中添加，路径可以不同2.建立文件夹C:\TEST\STARTUP，路径可以不同3.菜单文件VERSION 120EDIT UG_GATEWAY_MAIN_MENUBARBEFORE UG_HELPCASCADE_BUTTON UG_M1LABEL 标准件END_OF_BEFOREMENU UG_M1CASCADE_BUTTON UG_M1_1LABEL 螺钉CASCADE_BUTTON UG_M1_2LABEL 轴承CASCADE_BUTTON UG_M1_3LABEL 螺母END_OF_MENUMENU UG_M1_1BUTTON UG_M1_1_1LABEL 圆柱头螺钉BUTTON UG_M1_1_2LABEL 紧定螺钉BUTTON UG_M1_1_3LABEL 十字槽螺钉END_OF_MENUMENU UG_M1_2BUTTON UG_M1_2_1LABEL 向心球轴承BUTTON UG_M1_2_2LABEL 圆柱滚子轴承BUTTON UG_M1_2_3LABEL 推力球轴承END_OF_MENUMENU UG_M1_3BUTTON UG_M1_3_1LABEL 六角螺母BUTTON UG_M1_3_2LABEL 六角锁紧螺母BUTTON UG_M1_3_3LABEL 圆螺母4.END_OF_MENU工具栏文件1）螺钉工具栏文件TITLE 螺钉VERSION 170BUTTON ld1LABEL 圆柱头螺钉BITMAP ld1.bmpACTION ld1.grx SEPARATORBUTTON ld2LABEL 紧定螺钉BITMAP ld2.bmpACTION ld2.grx SEPARATORBUTTON ld3LABEL 十字槽螺钉BITMAP ld3.bmpACTION ld3.grx2）螺母工具栏文件TITLE 螺母VERSION 170BUTTON lm1LABEL 六角螺母BITMAP ld1.bmp ACTION ld1.grx SEPARATORBUTTON lm2LABEL 六角锁紧螺母BITMAP ld2.bmp ACTION ld2.grx SEPARATORBUTTON lm3LABEL 圆螺母BITMAP ld3.bmp ACTION ld3.grx3）轴承工具栏文件TITLE 轴承VERSION 170BUTTON zc1LABEL 向心球轴承BITMAP ld1.bmpACTION ld1.grx SEPARATORBUTTON zc2LABEL 圆柱滚子轴承BITMAP ld2.bmpACTION ld2.grx SEPARATORBUTTON zc3LABEL 推力球轴承BITMAP ld3.bmpACTION ld3.grx实验二GRIP入门（2学时）一、实验内容1、利用GRIP开发工具编写一个简单GRIP程序：编写一个在建模状态下生产一个长方体的GRIP程序；2、利用GRIP工具进行程序编译、链接；3、在UG环境中进行程序的运行调试。
CAD中绘制扭转和螺旋曲线的技巧在CAD软件中，绘制扭转和螺旋曲线是常见的需求，可以用于绘制各种螺旋线、弹簧、螺旋桨等。
下面介绍一些绘制扭转和螺旋曲线的技巧。
1. 绘制扭转曲线首先，打开CAD软件，选择一个画布进行绘制。
假设我们要绘制一个右手螺旋曲线。
首先，绘制一个平面上的曲线，可以是一条直线或一个弧线。
这将成为我们扭转曲线的轴线。
接下来，选择“旋转”工具，在弹出的对话框中选择轴线作为旋转轴。
然后，选择要旋转的对象，即刚才绘制的直线或弧线。
设置旋转角度，即进行螺旋旋转的角度。
如果想要绘制完整的扭转曲线，通常选择360度。
点击确定后，即可得到一个扭转曲线。
根据需要，可以修改扭转曲线的参数，如升高、减小扭转的角度等。
2. 绘制螺旋曲线与扭转曲线类似，绘制螺旋曲线也需要先绘制一个轴线。
选择“旋转”工具，并选择轴线作为旋转轴。
然后，选择一个点作为旋转中心。
在对话框中设置相关参数，如旋转角度、螺旋的升高、旋转方向等。
点击确定后，即可得到一个螺旋曲线。
可以根据需要进行调整，如修改螺旋的尺寸、密度等。
3. 使用附加工具除了基本的旋转工具外，CAD软件还提供了一些附加的工具，可以更加方便地绘制扭转和螺旋曲线。
一种常用的附加工具是“螺旋线”工具。
选择该工具后，在绘图区域点击两个点，即可绘制出一条基础螺旋线。
然后，通过修改参数，如角度、升高、起始半径等，来调整螺旋线的形状和尺寸。
另一种常用的附加工具是“样条曲线”工具。
选择该工具后，在绘图区域点击多个点，即可绘制出一条样条曲线。
可以通过调整各个点的位置和控制点来改变曲线的形状。
4. 注意事项在绘制扭转和螺旋曲线时，有几个注意事项需要注意。
首先，注意选择正确的绘制工具。
CAD软件通常提供了多种绘制扭转和螺旋曲线的工具，根据需要选择合适的工具进行绘制。
其次，要注意参数的设置。
通过修改参数，可以调整扭转和螺旋曲线的形状和尺寸，所以在绘制之前要明确需要的参数数值。
最后，可以根据实际需求进行调整和修改。
图基点及起始点如图1所示。
图1绘图基点及起始点分析后确定的设计参数有：螺纹公称直径、螺纹样式内螺纹）、绘图比例、对平行于螺纹轴线的视图或剖视图还有水平与垂直、倾斜两大类参数的选择。
幕选取的绘图基点的设置为：圆形投影绘图基点为对线形投影为绘图起始点PT_start、绘图起终点无螺纹孔的螺纹绘制界面设计界面的设计要求就是要形象直观，方便用户操作并保证数据的正确性。
由于绘图比例及螺纹规格有标准可选，因而设计为下拉列表控件。
无螺纹孔的螺纹投影投影视图分为线形投影与圆形投影，为直观则采用图像按钮，螺纹样式关联起来。
螺纹样式为外螺纹与内螺纹，则采用单选按钮。
螺纹的公称直径为3个系列，并在程序中将该选项与螺纹规格关联起来。
根据上述分析及需要输入的参数，设计界面如图运行实例绘制无螺纹孔螺纹投影的圆心或起始点、操作者在绘图时在屏幕上指定或捕捉得到，4。
图4无螺纹孔的螺纹绘制操作实例图2无螺纹孔的螺纹绘制界面(一)图3无螺纹孔的螺纹绘制界面(二)应将钻孔深度与螺纹深度分别画出。
为简化编程，于螺纹孔相交时的画法，本程序没有考虑。
基本参数的分析见无螺纹孔的螺纹绘制，最后确定的设计参数有：螺纹公称直径、螺纹样式（外螺纹、绘图比例、对平行于螺纹轴线的视图或剖视图还有水平与倾斜两大类参数的选择、螺纹深度钻孔深度。
对通过屏幕选取的绘图基点的设置为绘图起始点绘图起终点PT_end 。
界面设计针对不穿通螺孔和穿通螺孔各分为上下左右四个特殊方向的螺孔。
使用图像按钮，操作者可以选取。
通螺孔和穿通螺孔各分为大体的四个倾斜的特殊方向，用图像按钮，根据倾斜的方向来选取并输入角度。
在选择垂直螺孔与倾斜螺孔时，图像按钮比较小，所以设置了图像预览，使操作者可以在图像预览中清楚观察到自己所选垂直螺孔与倾斜螺孔样式。
6所示。
图5有螺纹孔的内螺纹绘制界面(一)图6有螺纹孔的内螺纹绘制界面(二)2.2.3有螺纹孔的内螺纹绘制运行实例图7有螺纹孔的内螺纹绘制实例结论该实用工具利用Vlisp 及DCL 语言在AutoCAD 下调试运行通过。
弹簧CAD软件的开发摘要本主题基于语言设计，使用VB语言设计软件，设计弹簧并在工作条件下替换弹簧的已知条件。
进行复杂精密的多种计算，自动比对计算结果确定合理的方案，减轻人工设计的繁杂程序，减少因繁杂设计所消耗的时间，提高计算结果的正确率。
关键词：弹簧；VisualBasic1关键技术1.1面向对象的程序设计语言VB6.0VisualBasic6.0是Microsoft的Visual Development Tools系列的一部分，使其成为Windows应用程序最简单，最快的开发工具之一。
1.2数据库技术的应用在Spring CAD软件开发过程中，许多地方都使用了数据库访问技术。
在材料选择部分和菜单项数据管理中使用了访问数据库。
在软件开发过程中使用数据库的目的是促进工作并促进二次开发。
当出现新的弹簧材料或删除旧的弹簧材料时，无需更改源程序，从数据库中添加或删除。
2软件开发2.1总体设计2.1.1功能模板给定Visual Basic 6.0版本平台上的某些弹簧设计参数，请参考《机械设计手册》中的设计公式来设计合格的弹簧。
该软件具有易用，交互和多功能的优点，并且有很大的空间供开发人员以后进行开发，例如绘图。
界面设计基于用户的视角，使用Visual Basic语言以对话框的形式，具体取决于弹簧类型（压缩或拉伸）以及在弹簧建模过程中调整的参数。
对话框中的某些数据可以从数据库中调用，某些标准也可以直接从下拉列表中选择。
2.1.2总体工作框图在设计整体时，请遵循从整体到特定以及从特定到整体的设计思想。
“弹簧设计”包括“拉伸弹簧设计”和“压缩弹簧设计”。
他们包括六大块，具体的每一块都对应一个或多个窗体界面。
1设计信息设计信息表包括设计者的名字，单位，时间以及日期。
2设计参数设计参数类型包括安装载荷（必需）F1，安装高度H1，工作载荷（必需）F2，工作行程h，所需刚度k，载荷频率N和载荷类型。
3选择材料选择材料类型，包括材料名称，剪切模量E，剪切模量G，抗张强度σ和容许剪切应力τb。
《AUTOCAD机械绘图》课程课堂教学单元设计（2-2）一、教案头
二、教学详案
三、相关内容
绘制下图所示的圆柱螺旋弹簧
软件画圆柱螺旋弹簧
一、两个绘图命令
1、圆的绘制
2、构造线的绘制
构造线为两端可以无限延伸的直线，没有起点和终点，可以放置在三维空间的任何地方，主要用于绘制辅助线。
选择“绘图”|“构造线”命令(XLINE)，或在“绘图”工具栏中单击
图标，进行构造线的绘制，构造线的绘制包括绘制水平构造线；垂直构造线；不同角度构造线等几种方法。
二、基本编辑命令
1、偏移命令
2、修剪命令
3、镜像命令
4、复制
5、缩放
6、打断命令
三、设置绘图状态
1、栅格与捕捉
2、极轴追踪
3、对象捕捉
4、动态输入
6、对象追踪。
(defun C:th()(setq f1 (open "e:\\printdate.txt" "r"))(setq d (atof (read-line f1)));簧丝直径(setq dd (atof (read-line f1))) ;弹簧中径(setq Yn (atof (read-line f1)));弹簧的最大扭转角度(setq N (atof (read-line f1)));有效圈数(setq Y1 (atof (read-line f1)));弹簧的最小扭转角度(setq Mj (atof (read-line f1)));弹簧的极限工作扭矩(setq M1 (atof (read-line f1)));弹簧的最小工作扭矩(setq Yj (atof (read-line f1)));弹簧的极限扭转角度(setq H0 (atof (read-line f1)));弹簧自由状态下的长度(setq L (atof (read-line f1)));弹簧展开长度(setq Mn (atof (read-line f1)));弹簧的最大工作扭矩(setq s (atof (read-line f1)))(setq N1 (atof (read-line f1)))(close f1)(setq p0 (list 50 80))(setq r1 (/ dd 2))(setq r (/ d 2))(setq p1 (polar p0 pi r1))(setq p2 (polar p0 0 (* 6 dd)))(setq p3 (polar p0 (* 0.5 pi) r1))(setq p4 (polar p3 pi r1))(setq p5 (polar p3 0 (* 6 dd)))(setq p6 (polar p0 (* 0.5 pi) dd))(setq p7 (polar p6 pi r1))(setq p8 (polar p6 0 (* 6 dd)))(setq p9 (polar p0 0 r))(setq p10 (polar p0 0 d))(setq p11 (polar p6 (* 0.5 pi) r1))(setq p12 (polar p11 0 d))(setq p13 (polar p6 0 (* 3 r)))(setq p14 (polar p6 0 d))(setq p15 (polar p13 0 r))(setq p16 (polar p3 0 (+ d 0.2 )))(setq p18 (polar p17 0 r))(setq p19 (polar p17 pi r))(setq p20 (polar p13 0 (+ d 0.4))) (setq p21 (polar p20 0 r))(setq p22 (polar p20 pi r))(setq p23 (polar p16 0 d))(setq p24 (polar p17 0 r1))(setq p25 (polar p24 pi r))(setq p26 (polar p24 0 r))(setq p27 (polar p20 0 r1))(setq p28 (polar p27 pi r))(setq p29 (polar p27 0 r))(setq p42 (polar p24 (* 0.5 pi) r1)) (setq p30 (polar p42 0 (+ r 0.2))) (setq p31 (polar p24 0 (+ d 0.4))) (setq p32 (polar p31 pi r))(setq p33 (polar p31 0 r))(setq p34 (polar p27 0 (+ d 0.4))) (setq p35 (polar p34 pi r))(setq p36 (polar p34 0 r))(setq p37 (polar p30 0 d))(setq p38 (polar p37 0 0.4)) (setq p39 (polar p31 0 (+ d 0.4))) (setq p40 (polar p39 pi r)) (setq p41 (polar p39 0 r)) (setq p42 (polar p9 (* 0.5 pi) d)) (setq p43 (polar p9 (* 1.5 pi) d)) (setq p44 (polar p13 (* 0.5 pi) d)) (setq p45 (polar p13 (* 1.5 pi) d)) (setq p46 (polar p20 (* 0.5 pi) d)) (setq p47 (polar p20 (* 1.5 pi) d)) (setq p48 (polar p17 (* 0.5 pi ) d)) (setq p49 (polar p17 (* 1.5 pi) d)) (setq p50 (polar p24 (* 1.5 pi) d)) (setq p51 (polar p24 (* 0.5 pi) d)) (setq p52 (polar p27 (* 1.5 pi) d)) (setq p53 (polar p27 (* 0.5 pi) d)) (setq p54 (polar p31 (* 0.5 pi) d)) (setq p55 (polar p31 (* 1.5 pi) d)) (setq p56 (polar p34 (* 0.5 pi) d)) (setq p57 (polar p34 (* 1.5 pi) d)) (setq p58 (polar p39 (* 0.5 pi) d)) (setq p59 (polar p39 (* 1.5 pi) d))(setq p61 (polar p11 (* 0.5 pi) r1))(setq p62 (polar p3 0 (* 4.5 dd)))(setq p63 (polar p62 (* 1.5 pi) (- r1 r)))(setq p64 (polar p62 (* 1.5 pi) (+ r1 r)))(setq p65 (polar p64 pi (* dd 0.8)))(setq p66 (polar p65 (* 0.5 pi) d))(setq p67 (polar p63 pi (sqrt(- (* (+ r1 r) (+ r1 r)) (* (- r1 r) (- r1 r))))))(setq p68 (polar p62 (* -0.25 pi) (+ r1 r)))(setq p69 (polar p68 (* 0.25 pi) (* r1 3)))(setq p70 (polar p69 (* 0.75 pi) d))(setq p121 (polar p62 (* -0.25 pi) (- r1 r)))(setq p71 (polar p121 (* 0.25 pi) (sqrt(- (* (+ r1 r) (+ r1 r)) (* (- r1 r) (- r1 r)))))) (setq p72 (polar p62 (* 0.5 pi) dd))(setq p73 (polar p62 (* 1.5 pi) dd))(setq p74 (polar p69 (* 0.25 pi) r1))(setq p75 (polar p65 pi r1))(setq p76 (polar p62 (* 0.5 pi) (* 4 r1)))(setq p77 (polar p76 pi 40))(setq p78 (polar p77 (* 0.5 pi) 20))(setq p79 (polar p76 pi 30))(setq p80 (polar p79 (* 0.5 pi) 15))(setq p81 (polar p76 pi 20))(setq p82 (polar p81 (* 0.5 pi) 10))(setq p83 (polar p76 (* 1.5 pi) 8 ))(setq p84 (polar p83 (* 1.5 pi) 8))(setq p150 (polar p62 pi dd))(setq p85 (polar p84 (* 1.5 pi) 8))(setq p86 (polar p77 (* 1.5 pi) 24))(setq p113 (polar p9 (* 1.5 pi) r))(setq p114 (polar p13 (* 0.5 pi) r))(setq p115 (polar p17 (* 1.5 pi) r))(setq p116 (polar p27 (* 0.5 pi) r))(setq p117 (polar p31 (* 1.5 pi) r))(setq p118 (polar p34 (* 0.5 pi) r))(setq p119 (polar p39 (* 1.5 pi) r))(setq p120 (polar p62 (* 0.5 pi) (+ r1 r)))(setq p121 (polar p114 pi d))(setq p122 (polar p41 (* 0.5 pi) (* 4 r1)))(setq p123 (polar p20 (* 0.25 pi) (* 0.25 r)))(setq p124 (polar p24 (* 0.25 pi) (* 0.25 r)));**********************************************************以下模块段中定义的点用于扭矩标注**********************(setq p89 (polar p82 (* 0.25 pi) 25))(setq p90 (polar p89 0 4))(setq p91 (polar p90 (* 0.5 pi) 2))(setq p92 (polar p91 0 8))(setq p93 (polar p92 (* 1.5 pi) 4))(setq p94 (polar p90 (* 1.5 pi) 2))(setq p107 (polar p94 (* 0.25 pi) 1)) ;*************定义弹簧处于最小扭矩状态下M1的信息**************(setq p108 (polar p107 0 2.5))(setq p95 (polar p80 (* 0.25 pi) 25))(setq p106 (polar p95 0 4))(setq p96 (polar p106 (* 0.5 pi) 2))(setq p97 (polar p96 0 8))(setq p98 (polar p97 (* 1.5 pi) 4))(setq p99 (polar p106 (* 1.5 pi) 2))(setq p109 (polar p99 (* 0.25 pi) 1)) ;*************定义弹簧处于最大扭矩状态下Mn的信息************(setq p110 (polar p109 0 2.5))(setq p100 (polar p78 (* 0.25 pi) 25))(setq p101 (polar p100 0 4))(setq p102 (polar p101 (* 0.5 pi) 2))(setq p103 (polar p102 0 8))(setq p104 (polar p103 (* 1.5 pi) 4))(setq p105 (polar p101 (* 1.5 pi) 2))(setq p111 (polar p105 (* 0.25 pi) 1)) ;*************定义弹簧处于极限扭矩状态下Mj的信息************(setq p112 (polar p111 0 2.5))(setq p125 (polar p81 (* 1.25 pi) 10))(setq p126 (polar p125 pi 0.2))(setq p127 (polar p126 (* 0.5 pi) 2))(setq p128 (polar p127 pi 8))(setq p129 (polar p128 (* 1.5 pi) 4))(setq p130 (polar p126 (* 1.5 pi) 2))(setq p131 (polar p129 (* 0.25 pi) 1)) ;*************定义弹簧处于最小扭矩状态下扭转角Y1的信息************(setq p132 (polar p131 0 2.5))(setq p133 (polar p79 (* 1.25 pi) 18))(setq p134 (polar p133 pi 0.2))(setq p135 (polar p134 (* 0.5 pi) 2))(setq p136 (polar p135 pi 8))(setq p137 (polar p136 (* 1.5 pi) 4))(setq p138 (polar p134 (* 1.5 pi) 2))(setq p139 (polar p137 (* 0.25 pi) 1)) ;*************定义弹簧处于最大扭矩状态下扭转角Yn的信息************(setq p140 (polar p139 0 2.5))(setq p141 (polar p77 (* 1.25 pi) 25))(setq p142 (polar p141 pi 0.2))(setq p143 (polar p142 (* 0.5 pi) 2))(setq p144 (polar p143 pi 8))(setq p145 (polar p144 (* 1.5 pi) 4))(setq p146 (polar p142 (* 1.5 pi) 2))(setq p147 (polar p145 (* 0.25 pi) 1)) ;*************定义弹簧处于最大扭矩状态下扭转角Yj的信息************(setq p148 (polar p147 0 2.5))(setq p151 (polar p61 0 10))(setq p152 (polar p151 (* 0.5 pi) 2))(setq p153 (polar p152 0 8))(setq p154 (polar p153 (* 1.5 pi) 2))(setq p155 (polar p153 (* 1.5 pi) 4))(setq p156 (polar p151 (* 1.5 pi) 2))(setq p157 (polar p156 (* 0.25 pi) 1)) ;*************定义弹簧处于自由状态下长度H0的信息************(setq p158 (polar p157 0 2.5));**********************************************************************画点划线****************(setq ss (getvar "clayer" ));获取系统变量函数(command "lweight" 0.3);*****************设置图层：粗实线*************************(command "arc" p0 p113 p10) ;****************画弹簧中的圆弧部分******************(command "arc" p15 p114 p14)(command "arc" p19 p115 p18)(command "arc" p29 p116 p28)(command "arc" p32 p117 p33)(command "arc" p36 p118 p35)(command "arc" p40 p119 p41)(command "arc" p64 p120 p67)(command "circle" p20 r) ;************************画弹簧中的圆部分*************************(command "circle" p24 r)(command "circle" p62 (- r1 r))(command "line" p0 p11 "") ;**********************画弹簧中的直线部分(command "line" p11 p12 "")(command "line" p12 p10 "")(command "line" p10 p16 "")(command "line" p14 p19 "")(command "line" p15 p18 "")(command "line" p23 p22 "")(command "line" p21 p18 "")(command "line" p25 p28 "")(command "line" p26 p30 "")(command "line" p28 p32 "")(command "line" p29 p33 "")(command "line" p35 p37 "")(command "line" p35 p40 "")(command "line" p36 p41 "")(command "line" p64 p65 "")(command "line" p65 p66 "")(command "line" p66 p63 "")(command "line" p68 p69 "")(command "line" p69 p70 "")(command "line" p70 p71 "");************************************************************************画剖面线*****************************(setvar "clayer" ss)(command "lweight" 0.1)(command "bhatch" "p" "ansi31" 0.2 0 p123 "")(command "bhatch" "p" "ansi31" 0.2 0 p124 "")(setq ss (getvar "clayer" ));(command "lweight" 0.1)(command "line" p76 p77 "")(command "line" p77 p78 "")(command "line" p76 p78 "")(command "line" p79 p80 "")(command "line" p81 p82 "")(command "line" p82 p89 "")(command "line" p89 p90 "")(command "line" p90 p91 "")(command "line" p91 p92 "")(command "line" p92 p93 "")(command "line" p93 p94 "")(command "line" p94 p90 "")(command "line" p80 p95 "")(command "line" p95 p106 "")(command "line" p106 p96 "")(command "line" p97 p98 "") (command "line" p98 p99 "") (command "line" p99 p106 "")(command "line" p78 p100 "") (command "line" p100 p101 "") (command "line" p101 p102 "") (command "line" p102 p103 "") (command "line" p103 p104 "") (command "line" p104 p105 "") (command "line" p105 p101 "")(command "line" p81 p125 "") (command "line" p125 p126 "") (command "line" p126 p127 "") (command "line" p127 p128 "") (command "line" p128 p129 "") (command "line" p129 p130 "") (command "line" p130 p126 "")(command "line" p79 p133 "") (command "line" p133 p134 "") (command "line" p134 p135 "") (command "line" p135 p136 "") (command "line" p136 p137 "") (command "line" p137 p138 "") (command "line" p138 p134 "")(command "line" p77 p141 "") (command "line" p141 p142 "") (command "line" p142 p143 "") (command "line" p143 p144 "") (command "line" p144 p145 "") (command "line" p145 p146 "") (command "line" p146 p142 "")(command "line" p61 p151 "") (command "line" p151 p152 "") (command "line" p152 p153 "")(command "line" p155 p156 "")(command "line" p156 p151 "")(command "line" p154 p122 "")(command "line" p65 p75 "")(command "line" p69 p74 "")(command "line" p114 p121 "")(command "line" p41 p122 "")(command "line" p11 p61 "")(setq M1 (FIX M1))(setq Mn (fix Mn ))(setq Mj (fix Mj ))(setq Y1 (fix Y1 ))(setq Yn (fix Yn ))(setq Yj (fix Yj ))(setq H0 (fix H0 ))(setq L (fix L ))(setq N (fix N ))(command "text" p107 "0.8" "0" "M1=") ;************弹簧处于最小扭矩状态下M1******(command "text" p108 "0.8" "0" M1)(command "text" p109 "0.8" "0" "Mn=") ;*************弹簧处于最大扭矩状态下Mn******(command "text" p110 "0.8" "0" Mn)(command "text" p111 "0.8" "0" "Mj=") ;*************弹簧处于极限扭矩状态下Mj*******(command "text" p112 "0.8" "0" Mj)(command "text" p131 "0.8" "0" "Y1=") ;************弹簧处于最小扭矩状态下扭转角Y1******(command "text" p132 "0.8" "0" Y1)(command "text" p139 "0.8" "0" "Yn=") ;*************弹簧处于最大扭矩状态下扭转角Yn******(command "text" p140 "0.8" "0" Yn)(command "text" p147 "0.8" "0" "Yj=") ;*************弹簧处于极限扭矩状态下扭转角Yj*******(command "text" p148 "0.8" "0" Yj)(command "text" p157 "0.8" "0" "H0=") ;*************弹簧处于自由状态下长度H0*******(command "text" p158 "0.8" "0" H0);****************************************************************************** *****************(setvar "clayer" ss)(command "lweight" 0.1)(command "dimdsep" "." "")(command "dimaligned" p24 p31 p50) ;*****************标注长度****************(command "dimaligned" p113 p121 "t" "%%c<>" p4)(command "dimaligned" p0 p6 "t" "%%c<>" p60)(command "dimaligned" p35 p36 "t" "%%c<>" p34)(command "dimangular" p75 p69 p150);**********************************************************************画点划线****************(setq ss (getvar "clayer" ));获取系统变量函数(command "-layer" "m" "my1" "c" "red" "my1" "l" "center" "my1" "") ;设置图层(command "lweight" 0.1)(command "line" p1 p2 "")(command "line" p4 p5 "")(command "line" p7 p8 "")(command "line" p42 p43 "")(command "line" p44 p45 "")(command "line" p46 p47 "")(command "line" p48 p49 "")(command "line" p50 p51 "")(command "line" p52 p53 "")(command "line" p54 p55 "")(command "line" p56 p57 "")(command "line" p58 p59 "")(command "line" p72 p73 "")(command "ltscale" 5) ;*****************改变点划线的线形比例**********(setvar "clayer" ss);设定图框层(command "layer" "m" "sx" "on" "sx" "c" 7 "sx" "lw" 0.4 "sx" "")；(command "lweight" 0.3)(command "line" "0,0" "297,0" "")(command "line" "297,0" "297,210" "")(command "line" "297,210" "0,210" "")(command "line" "0,210" "0,0" "");设定表格(command "layer" "m" "sx1" "on" "sx1" "c" 7 "sx1" "lw" 0.2 "sx1" "")；(command "line" "117,56" "117,0" "")(command "line" "117,56" "297,56" "")(command "line" "297,56" "297,0" "")(command "line" "297,0" "117,0" "")(command "line" "197,56" "197,0" "")(command "line" "247,56" "247,0" "")(command "line" "297,38" "247,38" "")(command "line" "117,28" "247,28" "")(command "line" "197,18" "297,18" "")(command "line" "129,0" "129,28" "")(command "line" "141,0" "141,21" "")(command "line" "152,0" "152,28" "")(command "line" "169,0" "169,56" "")(command "line" "181,0" "181,56" "")(command "line" "127,56" "127,28" "")(command "line" "137,56" "137,28" "")(command "line" "153,56" "153,28" "")(command "line" "117,7" "197,7" "")(command "line" "117,14" "197,14" "")(command "line" "117,21" "197,21" "")(command "line" "117,28" "197,28" "")(command "line" "117,35" "197,35" "")(command "line" "117,42" "197,42" "")(command "line" "117,49" "197,49" "")(command "line" "117,56" "197,56" "")(command "line" "197,9" "247,9" "")(command "line" "197,28" "247,28" "")(command "line" "223,28" "223,9" "")(command "line" "235,28" "234,9" "")(command "line" "203.5,18" "203.5,9" "")(command "line" "210,18" "210,9" "")(command "line" "216.5,18" "216.5,9" "")(command "_style" "w" "txt,gbcbig" "" "" "" "n" "n" "n" ) (command "lweight" 0.1)(command "text" "119,2" "5" "0" "工艺")(command "text" "119,9" "5" "0" "审核")(command "text" "119,16" "5" "0" "制图")(command "text" "129,16" "4" "0" " 陈康") (command "text" "119,23" "5" "0" "设计")(command "text" "129,23" "4" "0" " 张海翔") (command "text" "119,30" "5" "0" "标记")(command "text" "129,30" "5" "0" "处数")(command "text" "142,30" "5" "0" "分区")(command "text" "155,30" "4" "0" "更改文件号") (command "text" "171,30" "5" "0" "签名")(command "text" "181,30" "4" "0" "年月日")(command "text" "182,23" "2" "0" "2014.01.15 ") (command "text" "156,23" "4" "0" "标准化")(command "text" "170,23" "4" "0" "陈康") (command "text" "157,2" "5" "0" "批准")(command "text" "205,36" "9" "0" "")(command "text" "203,20" "5" "0" "阶段标记") (command "text" "225,20" "5" "0" "重量")(command "text" "237,20" "5" "0" "比例")(command "text" "237,11" "4" "0" "1:1")(command "text" "199,2" "5" "0" "共1 张第1 张") (command "text" "254,44" "8" "0" " 南通大学")(command "text" "240,24" "8" "0" " 圆柱螺旋扭转弹簧") (command "text" "254,6" "4" "0" " 1010012025") (command "text" "25,60" "8" "0" "技术要求:")(command "text" "25,50" "4" "0" " 1.有效圈数N=")(command "text" "55,50" "4" "0" N)(command "text" "25,30" "4" "0" " 3.展开长度L=")(command "text" "55,30" "4" "0" L)(command "text" "25,20" "4" "0" " 4.热处理后硬度：45~50HRC") (command "text" "37,20" "5" "0" "")(cond ((= N1 1)(command "text" "25,40" "4" "0" " 2.旋向：右旋"))((= N1 2)(command "text" "25,40" "4" "0" " 2.旋向：左旋")));*****改动成可选的材料(cond ((= s 1)(command "text" "203,35" "8" "0" "65Mn"))((= s 2)(command "text" "203,35" "8" "0" "T8MnA"))((= s 3)(command "text" "203,35" "8" "0" "70Mn"))((= s 4)(command "text" "203,35" "8" "0" "45"))((= s 5)(command "text" "203,35" "5" "0" "60Si2MnA"))((= s 6)(command "text" "203,35" "5" "0" "55CrSi"))((= s 7)(command "text" "203,35" "5" "0" "50CrV A"))((= s 8)(command "text" "203,35" "5" "0" "65Si2MnWA"))((= s 9)(command "text" "203,35" "5" "0" "50CrV A"))((= s 10)(command "text" "203,35" "5" "0" "50CrV A"))((= s 11)(command "text" "203,35" "5" "0" "55CrSiA"))((= s 12)(command "text" "203,35" "5" "0" "1Cr18Ni9"))((= s 13)(command "text" "203,35" "5" "0" "QSn4-3"))((= s 14)(command "text" "203,35" "5" "0" "65Si2MnWA")) ((= s 15)(command "text" "203,35" "5" "0" "50CrV A"))((= s 16)(command "text" "203,35" "5" "0" "50CrV A"))((= s 17)(command "text" "203,35" "5" "0" "55CrSiA"))((= s 18)(command "text" "203,35" "5" "0" "1Cr18Ni9"))((= s 19)(command "text" "203,35" "5" "0" "70Si2MnA"))((= s 20)(command "text" "203,35" "5" "0" "1Cr18Ni9"))((= s 21)(command "text" "203,35" "5" "0" "50CrV A")))(command "regen") )。
