CAD课程设计圆柱螺旋扭转弹簧二次开发
弹簧CAD软件的开发-推荐下载
对全部高中资料试卷电气设备，在安装过程中以及安装结束后进行高中资料试卷调整试验；通电检查所有设备高中资料电试力卷保相护互装作置用调与试相技互术通关，1系电过，力管根保线据护敷生高设产中技工资术艺料0不高试仅中卷可资配以料置解试技决卷术吊要是顶求指层，机配对组置电在不气进规设行范备继高进电中行保资空护料载高试与中卷带资问负料题荷试2下卷2，高总而中体且资配可料置保试时障卷，各调需类控要管试在路验最习；大题对限到设度位备内。进来在行确管调保路整机敷使组设其高过在中程正资1常料中工试，况卷要下安加与全强过，看度并22工且22作尽22下可22都能22可地护以缩1关正小于常故管工障路作高高；中中对资资于料料继试试电卷卷保破连护坏接进范管行围口整，处核或理对者高定对中值某资，些料审异试核常卷与高弯校中扁对资度图料固纸试定，卷盒编工位写况置复进.杂行保设自护备动层与处防装理腐置，跨高尤接中其地资要线料避弯试免曲卷错半调误径试高标方中高案资等，料，编试要5写、卷求重电保技要气护术设设装交备备置底4高调、动。中试电作管资高气，线料中课并敷3试资件且、设卷料中拒管技试试调绝路术验卷试动敷中方技作设包案术，技含以来术线及避槽系免、统不管启必架动要等方高多案中项；资方对料式整试，套卷为启突解动然决过停高程机中中。语高因文中此电资，气料电课试力件卷高中电中管气资壁设料薄备试、进卷接行保口调护不试装严工置等作调问并试题且技，进术合行，理过要利关求用运电管行力线高保敷中护设资装技料置术试做。卷到线技准缆术确敷指灵设导活原。。则对对：于于在调差分试动线过保盒程护处中装，高置当中高不资中同料资电试料压卷试回技卷路术调交问试叉题技时，术，作是应为指采调发用试电金人机属员一隔，变板需压进要器行在组隔事在开前发处掌生理握内；图部同纸故一资障线料时槽、，内设需，备要强制进电造行回厂外路家部须出电同具源时高高切中中断资资习料料题试试电卷卷源试切，验除线报从缆告而敷与采设相用完关高毕技中，术资要资料进料试行，卷检并主查且要和了保检解护测现装处场置理设。备高中资料试卷布置情况与有关高中资料试卷电气系统接线等情况，然后根据规范与规程规定，制定设备调试高中资料试卷方案。
CADCAM软件二次开发实验教案
实验一菜单及工具条制作（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中绘制扭转和螺旋曲线的技巧在CAD软件中，绘制扭转和螺旋曲线是常见的需求，可以用于绘制各种螺旋线、弹簧、螺旋桨等。
下面介绍一些绘制扭转和螺旋曲线的技巧。
1. 绘制扭转曲线首先，打开CAD软件，选择一个画布进行绘制。
假设我们要绘制一个右手螺旋曲线。
首先，绘制一个平面上的曲线，可以是一条直线或一个弧线。
这将成为我们扭转曲线的轴线。
接下来，选择“旋转”工具，在弹出的对话框中选择轴线作为旋转轴。
然后，选择要旋转的对象，即刚才绘制的直线或弧线。
设置旋转角度，即进行螺旋旋转的角度。
如果想要绘制完整的扭转曲线，通常选择360度。
点击确定后，即可得到一个扭转曲线。
根据需要，可以修改扭转曲线的参数，如升高、减小扭转的角度等。
2. 绘制螺旋曲线与扭转曲线类似，绘制螺旋曲线也需要先绘制一个轴线。
选择“旋转”工具，并选择轴线作为旋转轴。
然后，选择一个点作为旋转中心。
在对话框中设置相关参数，如旋转角度、螺旋的升高、旋转方向等。
点击确定后，即可得到一个螺旋曲线。
可以根据需要进行调整，如修改螺旋的尺寸、密度等。
3. 使用附加工具除了基本的旋转工具外，CAD软件还提供了一些附加的工具，可以更加方便地绘制扭转和螺旋曲线。
一种常用的附加工具是“螺旋线”工具。
选择该工具后，在绘图区域点击两个点，即可绘制出一条基础螺旋线。
然后，通过修改参数，如角度、升高、起始半径等，来调整螺旋线的形状和尺寸。
另一种常用的附加工具是“样条曲线”工具。
选择该工具后，在绘图区域点击多个点，即可绘制出一条样条曲线。
可以通过调整各个点的位置和控制点来改变曲线的形状。
4. 注意事项在绘制扭转和螺旋曲线时，有几个注意事项需要注意。
首先，注意选择正确的绘制工具。
CAD软件通常提供了多种绘制扭转和螺旋曲线的工具，根据需要选择合适的工具进行绘制。
其次，要注意参数的设置。
通过修改参数，可以调整扭转和螺旋曲线的形状和尺寸，所以在绘制之前要明确需要的参数数值。
最后，可以根据实际需求进行调整和修改。
机械制图与中望CAD课件-任务6.5 弹簧
和末端贴紧情况如何，均按有效圈是
整数、支承圈数为2.5圈的形式绘制。
必要时也可按支承圈的实际结构绘制。
4）当弹簧的有效圈数在4圈以上
时，可以只画出两端的1～2圈（支承
圈除外），中间部分省略不画，用通 a）视图画法
b）剖视图画法
c）示意图画法
过弹簧钢丝中心的两条点画线表示， 并允许适当缩短图形的长度。
图6-32 圆柱螺旋压缩弹簧的基本参数
6.5.3圆柱螺旋压缩弹簧的规定画法
圆柱螺旋压缩弹簧的画法如图6-
33所示。
1）在平行于螺旋弹簧轴线的投影
面视图中，各圈的外轮廓右旋，但左
旋螺旋弹簧不论画成左旋或右旋，必
须加注“LH”。
3）对于螺旋压缩弹簧，如要求两
端并紧且磨平时，不论支承圈数多少
图6-33 圆柱螺旋压缩弹簧的规定画法
6.5.4弹簧在装配图中的规定画法
装配图中弹簧的画法 如图6-34所示。
1）弹簧中间各圈采 用省略画法后，弹簧后面 被挡住的零件轮廓不必画 出，如图6-34a所示。
2）当线径在图上小 于或等于2mm时，可采 用示意画法，如图6-34b 所示；如果是断面，可以 涂黑表示，如图6-34c所 示。
a）压缩弹簧
b）扭转弹簧
c）拉伸弹簧
d）涡卷弹簧
图6-31 弹簧
e）板弹簧
6.5.2圆柱螺旋压缩弹簧的基本参数
圆柱螺旋压缩弹簧的基本参数如图6-32所示。 线径d：制造弹簧用的钢丝直径。 弹簧外径D2：弹簧外圈直径。 弹簧内径D1：弹簧内圈直径。 弹簧中径D：D=D2-d=D1+d。 有效圈数n：为了工作平稳，n一般不小于3圈。 支承圈数n0：弹簧两端并紧和磨平（或锻平）， 仅起支承或固定作用的圈（一般取1.5、2 或 2.5 圈） 总圈数n1：n1=n+n0 节距t：弹簧两相邻有效圈上对应点的轴向距离。 自由高度H0：弹簧未受负荷时的高度， H0=nt+（n0-0.5）d。 展开长度L：制造弹簧所需钢丝的长度， L≈πDn1。 在GB/T 2089-2009中对圆柱螺旋压缩弹簧的 d、D、t、H0、n、L等尺寸都已作了规定，使用时 可查阅该标准。
螺纹绘制工具的AutoCAD二次开发
图基点及起始点如图1所示。
图1绘图基点及起始点分析后确定的设计参数有：螺纹公称直径、螺纹样式内螺纹）、绘图比例、对平行于螺纹轴线的视图或剖视图还有水平与垂直、倾斜两大类参数的选择。
幕选取的绘图基点的设置为：圆形投影绘图基点为对线形投影为绘图起始点PT_start、绘图起终点无螺纹孔的螺纹绘制界面设计界面的设计要求就是要形象直观，方便用户操作并保证数据的正确性。
由于绘图比例及螺纹规格有标准可选，因而设计为下拉列表控件。
无螺纹孔的螺纹投影投影视图分为线形投影与圆形投影，为直观则采用图像按钮，螺纹样式关联起来。
螺纹样式为外螺纹与内螺纹，则采用单选按钮。
螺纹的公称直径为3个系列，并在程序中将该选项与螺纹规格关联起来。
根据上述分析及需要输入的参数，设计界面如图运行实例绘制无螺纹孔螺纹投影的圆心或起始点、操作者在绘图时在屏幕上指定或捕捉得到，4。
图4无螺纹孔的螺纹绘制操作实例图2无螺纹孔的螺纹绘制界面(一)图3无螺纹孔的螺纹绘制界面(二)应将钻孔深度与螺纹深度分别画出。
为简化编程，于螺纹孔相交时的画法，本程序没有考虑。
基本参数的分析见无螺纹孔的螺纹绘制，最后确定的设计参数有：螺纹公称直径、螺纹样式（外螺纹、绘图比例、对平行于螺纹轴线的视图或剖视图还有水平与倾斜两大类参数的选择、螺纹深度钻孔深度。
对通过屏幕选取的绘图基点的设置为绘图起始点绘图起终点PT_end 。
界面设计针对不穿通螺孔和穿通螺孔各分为上下左右四个特殊方向的螺孔。
使用图像按钮，操作者可以选取。
通螺孔和穿通螺孔各分为大体的四个倾斜的特殊方向，用图像按钮，根据倾斜的方向来选取并输入角度。
在选择垂直螺孔与倾斜螺孔时，图像按钮比较小，所以设置了图像预览，使操作者可以在图像预览中清楚观察到自己所选垂直螺孔与倾斜螺孔样式。
6所示。
图5有螺纹孔的内螺纹绘制界面(一)图6有螺纹孔的内螺纹绘制界面(二)2.2.3有螺纹孔的内螺纹绘制运行实例图7有螺纹孔的内螺纹绘制实例结论该实用工具利用Vlisp 及DCL 语言在AutoCAD 下调试运行通过。
基于UG的变线径螺旋弹簧二次开发
包 括 以下 几 点 ： ）建 立 Ｔ 作 目录 ； ） 置 环 境 变 量 １ ２ 设
ＵＧＩ ＶＥＮＤＯＲ Ｉ
— —
； …～ …’…’’ 一一 一 ■
厂＿＿＿—
＿＿ ＿ 篓 ］ １
黪
匿
Ｄ Ｒ 变量值为上面建立的工作 目录 ； Ｉ，
图 ４ 用 户 对 话 框
３ 在丁作 目录下 建立 ２ ） 个新 的文件夹 ， 别命 名为 分
是 日常生活中， 经常用到的零部件 ， 实现其快速化 建模具有很 大实用价值 。
关键词 ： ＧＯ Ｅ Ｐ ； Ｕ ／ Ｐ ＮＡ Ｉ变线径 ； 弹簧 ； 次开发 二 中图分类号 ：Ｐ １．３ Ｔ ３９ ７ 文献标 识码 ： Ａ 文章编号 ：０ ３ ７ ３ （ ０ １ ０ — ０ ２ ０ １０ — ７ Ｘ ２ １ ）４ ０ ８ — ２
许 佰 宁 ’陈 昌明 ， 彩 勇 ， 徐
（． １ 同济大学 汽车学院 ， 上海 ２ １０ ２ 盐 城Ｔ学 院， ０ ８４；． 江苏 盐城 ２４０ ） ２ ０ ０
摘
要 ： 用Ｕ ／ Ｐ ＮＡ Ｉ 利 Ｇ Ｏ Ｅ Ｐ 提供的二 次开发功 能 ， 根据给定的螺旋 弹簧参数 ， 实现 了变线径 弹簧 的快速 建模 。弹簧
行 成本 。
参 考 文 献
［］ 刘 １ ［】 王 ２
君， 庞俊香， 田巍 ， 邯钢捣同焦炉除尘 系统改 造【 ． 等． Ｊ 河 Ｊ 军． 焦炉 消烟 除尘车湿法除尘原理 ［ ． Ｊ 冶金设 备， ０ ． 】 ２ ９ ０
北冶金， ０ （） ３ ５ ． ２ ９２： — ５ ０ ５
３增刊 ） ７５ ． （ ： —９ ５
～ 埘
｛
馘 瞄
４ ｝ ■
CAD7AutoCAD二次开发技术
图7.1 标注粗糙度
下面的AutoLISP函数就是向AutoCAD增加一条标注粗糙度的新命 令,命令名为CCD. (defun C:ccd() (setq bp (getpoint "\nEnter basepoint:") ang (getangle "\nEnter rotate angle:") txt (getstring "\nEnter value:") ) (command "line" bp (polar bp (+ ang (/ pi 3)) 12) "") (setq pt (polar bp (+ ang (/ pi 1.5)) 7)) (command "line" bp pt (polar pt ang 7) "") (cond ((< ang pi) (command "text" (polar pt (+ ang 70) 1.2) "2.5" (* ang (/ 180 pi)) (eval txt))) (T (command "text" "j" "r" (polar pt (+ ang 70) 3.7) "2.5" (* (- ang pi) (/ 180 pi)) (eval txt))) ) )
4.菜单项的表示: 菜单项的表示:
菜单或子菜单中包含的一行行命令串称为菜单项.菜单项有 以下几种表示: (1) [菜单项名]命令串 该方法用于屏幕菜单项或下拉菜单项的表示. (2) [字符串] 方括号中的字符串只是作为子菜单的标题项使用. (3) 字符串 该种表示方法是第(1)种表示方法的特例,此时,字符串既作 为菜单项名显示在屏幕上,又作为命令串出现在命令行. (4) [->子菜单名]和[<- 菜单项名]命令串 前者是调用下拉子菜单或光标子菜单的菜单项.后者是子菜 单的最后一个菜单项,方括号内的菜单项名将显示在屏幕上,命 令串的作用同(1)所述. (5) [幻灯片库名(幻灯片名,文字)] 命令串 这是图像块菜单段中菜单项的完整表示形式.
弹簧CAD软件的开发
弹簧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。
2--任务二 绘制圆柱螺旋弹簧视图
《AUTOCAD机械绘图》课程课堂教学单元设计（2-2）一、教案头
二、教学详案
三、相关内容
绘制下图所示的圆柱螺旋弹簧
软件画圆柱螺旋弹簧
一、两个绘图命令
1、圆的绘制
2、构造线的绘制
构造线为两端可以无限延伸的直线，没有起点和终点，可以放置在三维空间的任何地方，主要用于绘制辅助线。
选择“绘图”|“构造线”命令(XLINE)，或在“绘图”工具栏中单击
图标，进行构造线的绘制，构造线的绘制包括绘制水平构造线；垂直构造线；不同角度构造线等几种方法。
二、基本编辑命令
1、偏移命令
2、修剪命令
3、镜像命令
4、复制
5、缩放
6、打断命令
三、设置绘图状态
1、栅格与捕捉
2、极轴追踪
3、对象捕捉
4、动态输入
6、对象追踪。
CAD课程设计说明书
三、程序流程图
3
AutoLisp 程序
绘图
定义显示界面大 小为 A4 图纸
设置基准点 P0 的坐标为 （50，80）
从 TXT 文 本 中 获取绘图参数
通过 P0 定出绘图 所需各点的坐标
绘出点划线
绘出弹簧
尺寸标注
线性和直 径标注
公差标注
粗糙度标注
Cond 选择语 变量的标注
技术要求标注 标准标题栏 文字录入
结束
4
四、程序设计关键技术的阐述
1.A术
创建脚本文件 key.scr，AutoCAD 文件 th.dwg,把 VB 中所需的绘图参数值放入 printdata.txt
2
一、课题名称和要求
1. 设计题目：圆柱螺旋扭转弹簧设计系统 2. 目的：通过“圆柱螺旋扭转弹簧设计系统”的开发，进一步掌握和理解一般 CAD 系统
的开发方法和流程。进一步熟悉工程数据的处理方法、自动绘图的实现方法以及软件的 接口方法。 3. 要求：完成“圆柱螺旋扭转弹簧设计系统”的开发，根据该设计系统能进行简单的圆柱 螺旋扭转弹簧自动设计。 4. 设计内容：完成“圆柱螺旋扭转弹簧设计系统”自动绘图部分的程序设计。
这次课程设计我主要是负责 AutoLisp 语言的编写，在编写过程中由于要定义的点的数 量比较多，所以给 AutoLisp 语言的编写带来了一定的麻烦，但后来我先把要用 CAD 画的图 形先用草图的形式画在纸上，然后把要定义的点都在纸上标清楚，经过这样以后我的 AutoLisp 语言编写就顺利多了。经过这几天 AutoLisp 程序的编写，让我对 AutoLisp 语言理 解更加准确。应用更加熟练。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
(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") )。