同心圓墊片的落料沖孔模具設(shè)計(jì)及下模零件二維輔助設(shè)計(jì)系統(tǒng)開發(fā)含12張CAD圖
同心圓墊片的落料沖孔模具設(shè)計(jì)及下模零件二維輔助設(shè)計(jì)系統(tǒng)開發(fā)含12張CAD圖,同心圓,墊片,沖孔,模具設(shè)計(jì),零件,二維,輔助設(shè)計(jì),系統(tǒng),開發(fā),12,CAD
落料沖孔模具設(shè)計(jì)及下模 零件二維輔助設(shè)計(jì)系統(tǒng)開發(fā)指導(dǎo)老師：XX答辯人：XX2目錄content研究背景研究意義主要過(guò)程系統(tǒng)演示結(jié)論和展望結(jié)語(yǔ)1研究背景國(guó)內(nèi)研究國(guó)外研究落料沖孔件被普遍應(yīng)用于汽車、機(jī)械、航天、航空、輕工、電子、電器、儀表等領(lǐng)域，是因?yàn)槁淞蠜_孔件的生產(chǎn)效率高、產(chǎn)品質(zhì)量好、生產(chǎn)成本低，所以，落料沖孔工藝的發(fā)展在模具行業(yè)具備代表性。在信息技術(shù)時(shí)代，隨著計(jì)算機(jī)技術(shù)的發(fā)展，模具制造業(yè)廣泛的使用CAD/CAM/CAE技術(shù)，科學(xué)、正規(guī)的模具結(jié)構(gòu)都是源于傳統(tǒng)經(jīng)驗(yàn)設(shè)計(jì)向計(jì)算機(jī)輔助設(shè)計(jì)的轉(zhuǎn)變，使得模具的加工精度大大提高，加工周期大大縮短，增加了公司的效益。.1研究背景國(guó)內(nèi)研究廣泛使用CAD/CAM/CAE在模具行業(yè)，模具制造精良。計(jì)算機(jī)國(guó)外現(xiàn)狀國(guó)內(nèi)現(xiàn)狀計(jì)算機(jī)技術(shù)在模具行業(yè)應(yīng)用還不廣泛，大型、復(fù)雜、高精度模具方面落后，依賴進(jìn)口。2研究意義 模具與 計(jì)算機(jī)輔助設(shè)計(jì)提高生產(chǎn)效率降低模具和設(shè)計(jì)開發(fā)成本提高加工精度3主要過(guò)程零件的工藝分析Process analysis of partsProcess analysis of parts以簡(jiǎn)單的墊片作為落料沖孔的例子，對(duì)其進(jìn)行工藝分析，盡可能使模具零件標(biāo)準(zhǔn)化選擇模具所需標(biāo)準(zhǔn)零件以及固定方式，繪制二維零件圖。找出零件的驅(qū)動(dòng)尺寸重新定義驅(qū)動(dòng)尺寸進(jìn)行驅(qū)動(dòng)尺寸輸入零件參數(shù)化分析3主要過(guò)程3主要過(guò)程二維參數(shù)化設(shè)計(jì)使用Delphi7進(jìn)行編程繪制模具外圍輪廓繪制中心線、剖面線，進(jìn)行標(biāo)注系統(tǒng)演示理論3理論2理論1在這里輸入你的文字在這里輸入你的文字、4首先開始運(yùn)行程序，初始界面如圖選擇落料沖孔程序“LLCK”程序2022/10/11系統(tǒng)演示4進(jìn)入模具輔助設(shè)計(jì)系統(tǒng)2022/10/11系統(tǒng)演示4進(jìn)入程序界面，點(diǎn)擊與零件相同的序號(hào)，運(yùn)行2022/10/11系統(tǒng)演示4找到左側(cè)零件，單擊，確定無(wú)誤后，點(diǎn)擊二維按鈕2022/10/11系統(tǒng)演示4系統(tǒng)演示在這里輸入你的結(jié)論4重新打開CAD，就會(huì)出現(xiàn)零件圖結(jié)論與展望輸入文字輸入文字輸落料入文落料字提高了生產(chǎn)效率節(jié)約了設(shè)計(jì)成本和制造周期落料沖孔模具與計(jì)算機(jī)輔助設(shè)計(jì)的結(jié)合使用使用CAD/CAM/CAECAD/CAM/CAE技術(shù)技術(shù).5實(shí)現(xiàn)了軟件輔助設(shè)計(jì)落料沖孔件模實(shí)現(xiàn)了軟件輔助設(shè)計(jì)落料沖孔件模具的全過(guò)程，使落料沖孔模具設(shè)計(jì)具的全過(guò)程，使落料沖孔模具設(shè)計(jì)簡(jiǎn)便化，不用重復(fù)同樣零件不同大簡(jiǎn)便化，不用重復(fù)同樣零件不同大小的反復(fù)設(shè)計(jì)小的反復(fù)設(shè)計(jì)。結(jié)論與展望從簡(jiǎn)單的墊片從簡(jiǎn)單的墊片到相對(duì)復(fù)雜的到相對(duì)復(fù)雜的落料沖孔件落料沖孔件向其他類型的向其他類型的模具拓展模具拓展最后使計(jì)算計(jì)最后使計(jì)算計(jì)輔助系統(tǒng)在模輔助系統(tǒng)在模具行業(yè)普遍應(yīng)具行業(yè)普遍應(yīng)用用5通過(guò)數(shù)據(jù)和經(jīng)驗(yàn)的積累，利用大數(shù)據(jù)可以設(shè)計(jì)出更通過(guò)數(shù)據(jù)和經(jīng)驗(yàn)的積累，利用大數(shù)據(jù)可以設(shè)計(jì)出更加合理的模具，是一種增加落料沖孔件的設(shè)計(jì)效率、加合理的模具，是一種增加落料沖孔件的設(shè)計(jì)效率、降低模具設(shè)計(jì)和開發(fā)的成本的有效方法和手段。降低模具設(shè)計(jì)和開發(fā)的成本的有效方法和手段。THANKS感謝老師的批評(píng)與指正
落料沖孔模具設(shè)計(jì)及下模零件二維輔助設(shè)計(jì)系統(tǒng)開發(fā)
摘 要
根據(jù)現(xiàn)代模具發(fā)展與計(jì)算機(jī)編程的廣泛應(yīng)用，本課題設(shè)計(jì)了利用編程驅(qū)動(dòng)繪圖軟件達(dá)到快速生成設(shè)計(jì)圖紙，提高生產(chǎn)效率。
本文首先對(duì)零件進(jìn)行工藝分析，繪出二維模具圖，盡可能是模具標(biāo)準(zhǔn)，找出零件的驅(qū)動(dòng)尺寸以及各零件尺寸的關(guān)系，使用Delphi7進(jìn)行編程繪制。然后通過(guò)改變驅(qū)動(dòng)尺寸的數(shù)值改變模具零件尺寸的大小，避免了重復(fù)繪圖，提高了生產(chǎn)效率。用Delphi7驅(qū)動(dòng)AutoCAD可以自動(dòng)生成對(duì)應(yīng)圖紙，節(jié)約成本，提高效率。經(jīng)過(guò)后期完善大數(shù)據(jù)統(tǒng)計(jì)，設(shè)計(jì)出更合理的模具，提高模具精度，促進(jìn)模具產(chǎn)業(yè)的發(fā)展。
關(guān)鍵詞：二維軟件輔助設(shè)計(jì)；落料沖孔件標(biāo)準(zhǔn)化；Delphi7；效率
ABSTRACT
According to modern die development and computer programming is widely used.This subject designs the use of programming driven drawing software to achieve the rapid generation of design drawings and enhance productivity.
In?this?paper,?first?of?all,?the?parts?of?the?process?analysis,?draw?a?two-dimensional?mold?diagram,?as?far?as?possibleis?the?mold?standard,?find?out?the?parts?of?the?dri-ving?size?and?the?size?of?each?part?of?the?relationship,?using Delphi7 programming drawing.?Then?by?changing?the?value?of?the?drive?size?to?change?the?size?of?the?mold?parts,avoid?repeated?drawing,?improve?the?production?efficiency.?Using?Delphi7?to?drive?AutoCAD?can?automaticallygenerate?corresponding?drawings,?saving?cost?and?improving?efficiency.?After?the?improvement?of?big?datastatistics,?a?more?reasonable?mold?is?designed?to?improve?the?precision?of?the?mold?and?promote?the?developmen-t of?the?mold?industry.
Keywords: Computer-aided design;Mould parts standardization;Delphi7; Efficiency
II
目 錄
摘 要 I
ABSTRACT II
第一章 緒 論 1
1.1 選題背景和意義 1
1.2關(guān)鍵技術(shù)分析 1
1.2.1AutoCAD制圖 1
1.2.2應(yīng)用Delphi軟件進(jìn)行模具零件二維設(shè)計(jì)參數(shù)化 1
第二章 零件工藝分析與模具設(shè)計(jì) 3
2.1零件工藝分析 3
2.1.1任務(wù)要求 3
2.1.2 零件的工藝分析 3
2.2沖壓方案設(shè)計(jì)與選擇 3
2.2.1 工藝方案的設(shè)計(jì) 3
2.2.2工藝方案的選擇 4
2.3沖裁工序工藝設(shè)計(jì)與計(jì)算 4
2.3.1沖裁刃口尺寸計(jì)算 4
2.3.2兩種力的計(jì)算 6
2．4凸凹模固定 7
2.4.1凹模固定 7
2.4．2凸模的固定形式 8
第三章 零件參數(shù)化分析 13
3.1找出零件尺寸數(shù) 13
3.2 定義驅(qū)動(dòng)尺寸 13
3.3 重新定義尺寸 14
3.4 輸入尺寸 14
第四章 二維參數(shù)化設(shè)計(jì) 15
4.1標(biāo)坐標(biāo)，確定位置關(guān)系 15
4.2定義驅(qū)動(dòng)尺寸 15
4.3畫填充區(qū)域，并打剖面線 15
4.4繪制除填充區(qū)域的其他部分 15
4.5標(biāo)注 15
4.6繪制中心線 16
4.7粗糙度及技術(shù)要求 16
第五章 系統(tǒng)演示 18
第六章 結(jié) 論 21
參考文獻(xiàn) 22
謝 辭 24
24
XXXXXX
第一章 緒 論
1.1 選題背景和意義
我國(guó)是一個(gè)制造大國(guó)，一向重視實(shí)業(yè)發(fā)展，制造業(yè)在今天來(lái)說(shuō)變得愈來(lái)愈重要。我國(guó)模具產(chǎn)業(yè)發(fā)展迅速，雖然起步晚，但發(fā)展的勁頭十分迅猛。模具的發(fā)展水平，決定一個(gè)國(guó)家產(chǎn)品的制造精度和加工精度。
雖然我國(guó)模具行業(yè)發(fā)展迅速，但是仍然在很多方面沒有超車其他的發(fā)展國(guó)家，技術(shù)國(guó)家，例如老牌制造國(guó)家德國(guó)。特別是在精細(xì)方面，復(fù)雜方面還是有非常大的差距，目前這類模具還是主要依靠進(jìn)口，核心技術(shù)沒有掌握。模具企業(yè)應(yīng)該認(rèn)清自己的短板，爭(zhēng)取早日趕上國(guó)際國(guó)外水平。
1.2關(guān)鍵技術(shù)分析
1.2.1AutoCAD制圖
利用二維制圖軟件AutoCAD做出二維模具零件圖，為后面的用Delphi軟件進(jìn)行模具零件參數(shù)化二維設(shè)計(jì)做好準(zhǔn)備。
1.2.2應(yīng)用Delphi軟件進(jìn)行模具零件二維設(shè)計(jì)參數(shù)化
應(yīng)用Delphi軟件進(jìn)行參數(shù)化設(shè)計(jì)，所有預(yù)期的研究結(jié)果以及數(shù)據(jù)都要通過(guò)Delphi軟件來(lái)得出，然后對(duì)結(jié)果數(shù)據(jù)進(jìn)行分析，得出最終的結(jié)論，來(lái)支持研究。
本方案應(yīng)用Delphi技術(shù)，設(shè)計(jì)完成翻邊模具設(shè)計(jì)及輔助設(shè)計(jì)軟件開發(fā)。該軟件能夠
實(shí)現(xiàn)以下功能：
（1）首先進(jìn)行工藝分析，確定加工的方案和方法，計(jì)算零件的尺寸，最后繪制工藝圖；
（2）對(duì)過(guò)程加工力進(jìn)行計(jì)算然后選擇設(shè)備；
（3）對(duì)模具進(jìn)行結(jié)構(gòu)設(shè)計(jì)，繪出相應(yīng)模具圖紙。
基于以上特點(diǎn)，因此應(yīng)用該軟件大大降低了翻邊件成型工藝及模具設(shè)計(jì)的周期，提高了生產(chǎn)效率。
Delphi的應(yīng)用過(guò)程：
1. 確定結(jié)構(gòu)：對(duì)零件進(jìn)行分析，畫出其二維圖紙，找出原始驅(qū)動(dòng)尺寸，找出其他尺寸和驅(qū)動(dòng)尺寸的關(guān)系，盡量讓其標(biāo)準(zhǔn)化。
2.寫程序，運(yùn)行：對(duì)驅(qū)動(dòng)尺寸進(jìn)行原始尺寸輸入，編寫關(guān)于零件的輪廓，然后是中心線，點(diǎn)畫線的配合，編寫拋面線，最后進(jìn)行標(biāo)注方面的工作。
通過(guò)Deliphi控制CAD進(jìn)行零件圖、裝配圖的繪制、輸出是本程序的特色也是本程序的難點(diǎn)，圖形的表示方法采用了參數(shù)化表示方法，利用參數(shù)求解圖形的關(guān)鍵點(diǎn)，進(jìn)行圖形繪制。
第二章 零件工藝分析與模具設(shè)計(jì)
2.1零件工藝分析
2.1.1任務(wù)要求
圖2-1 零件圖
圖中t=1.5mm；D1=97mm，D2=67mm
1.工件名稱：普通沖裁件；生產(chǎn)批量：大批量；材料：Q235
材料厚度：1.5mm
2.1.2 零件的工藝分析
2.查詢資料進(jìn)行標(biāo)注
尺寸的偏差值為,，可以按照“入體原則”進(jìn)行設(shè)計(jì)和標(biāo)注。
這個(gè)零件是簡(jiǎn)單的墊片，屬于沖裁件，而且因?yàn)榱慵^小，屬于中心對(duì)稱零件，簡(jiǎn)單不復(fù)雜，所以是普通沖裁件。
2.2沖壓方案設(shè)計(jì)與選擇
2.2.1 工藝方案的設(shè)計(jì)
現(xiàn)確定以下方案：
方案一是單工序沖裁，先落料再?zèng)_孔。
方案二是復(fù)合沖裁，落料沖孔同時(shí)完成 。
方案三是級(jí)進(jìn)沖裁，先沖孔再落料。
2.2.2工藝方案的選擇
生產(chǎn)類型是大批量生產(chǎn)，單工序模生產(chǎn)效率太低，故淘汰，復(fù)合模和級(jí)進(jìn)模符合要求，兩者相比復(fù)合模有更好的加工精度和形狀精度，復(fù)合模更適合，所以采用復(fù)合沖壓。
2.3沖裁工序工藝設(shè)計(jì)與計(jì)算
2.3.1沖裁刃口尺寸計(jì)算
采用查表法確定Zmin=0.132mm以及Zmax=0.240mm。
1 公差尺寸確定和計(jì)算
該零件沒有設(shè)置公差，按照IT10進(jìn)行計(jì)算，沖裁模具按照精度IT6~IT7制造。
表2-1 模具公差等級(jí)與沖裁件公差等級(jí)的關(guān)系
沖模制造公差等級(jí)
材料厚度t/mm
0.5
0.8
1.0
1.5
2
3
4
5
6
8
10
12
IT6~IT7
IT8
IT8
IT9
IT10
IT10
—
—
—
—
—
—
—
IT7~IT8
—
IT9
IT10
IT10
IT12
IT12
IT12
—
—
—
—
—
IT9
—
—
—
IT12
IT12
IT12
IT12
IT12
IT14
IT14
IT14
IT14
2 凸、凹模
因?yàn)槭瞧胀_裁模具，凸模與凹模進(jìn)行分別加工，有利于成批制造。
（1）落料
（2-1）
（2-2）
（2）沖孔
設(shè)所沖的孔的尺寸為
（2-3）
（2-4）
式中：—磨損系數(shù)， 的值普遍在0.5～1之間。
因?yàn)椴捎梅謩e加工，所以應(yīng)該滿足：
（2-5）
如果出現(xiàn)
這種情況，則按照下列式子進(jìn)行計(jì)算
（2-6）
（2-7）
3計(jì)算
（1）落料
計(jì)算間隙：
， 根據(jù)計(jì)算結(jié)果可知，滿足條件。
帶入數(shù)得：
（2）沖孔
查表得
校核間隙：
，故符合條件。
代入上述沖孔公式，得：
2.3.2兩種力的計(jì)算
1沖裁力
（2-8）
取K為1.3 代入公式得
F=F沖孔+F落料=251.1KN
2 卸料力、推件力計(jì)算
（1）卸料力
卸料力的計(jì)算公式為
（2-9）
（2）推件力
（2-10）
（2-11）
,
t=2mm，h=6mm，則
mm
故推料力：
卸料力：
（2-12）
因?yàn)椋凑者x擇原則，公稱壓力400KN的開式壓力機(jī)最合適。
（3） 總的沖壓力為
這里選擇J21S-40A壓力機(jī)，查得其主要參數(shù)如下。
公稱壓力：400KN，最大閉合高度：220mm，閉合高度調(diào)節(jié)量：80mm，工作臺(tái)尺寸：480×710mm，工作臺(tái)孔尺寸：直徑280mm，模柄孔尺寸：50×70mm[12]
2．4凸凹模固定
2.4.1凹模固定
采用臺(tái)階式刃口結(jié)構(gòu)
圖 2-2 臺(tái)階式刃口結(jié)構(gòu)
h=0.3x97=29.1mm
凹模壁厚公式：
c=1.5~3h c≥30mm （2-13）
式中：h—凹模高度
c—壁厚
代入公式:
c=（1.5～2.0）x29.1=43.65～58.2mm 取45mm
由L=+2c
L=96.85+2×45=186.85mm
2.4．2凸模的固定形式
選用臺(tái)肩式的固定凸模最為適合。
采用彈性卸料板，凸模長(zhǎng)度公式：
L=h1+h2+t+h mm （2-14）
查表得h1=20mm，h2=4.65mm，t =1.5mm。
h——一般等于15~20mm
代入公式:
L=h1+h2+t+15~20=20+4.65+1.5+20=46.15mm
選擇上模座尺寸為200×200×50mm。
下模座尺寸為200×200×60mm。
圖2-3 上模座二維圖
圖2-4 下模座二維圖
（2） （2-15）
H工作=1+1.5+1+5=8.5mm
代入公式:
H自由==34mm=34-34×0.1=30.6mm
H預(yù)=（0.1~0.15）H自由
橡膠外徑D:
（2-16）
D==14.6mm
橡膠基本尺寸為 D=16mm, H=12mm。
圖2-5 橡膠草圖
圖2-6 頂桿零件圖
選擇導(dǎo)柱: φ25h5×150 mm
選擇導(dǎo)套: φ25H6×38×100 mm[13]
圖2-7 導(dǎo)套零件圖
（1）選擇模柄尺寸d=50mm，L=91mm的模柄。
（2）選擇d=10mm，L=120mm的打桿
圖2-8 打桿零件圖 圖2-9 模柄零件圖
圖2-10 模具裝配圖
第三章 零件參數(shù)化分析
3.1找出零件尺寸數(shù)
首先我們畫出二維零件圖和三維之后，開始定義，將所有尺寸轉(zhuǎn)變?yōu)長(zhǎng),B,H,R,D,M。
圖3-1 模具基本信息圖
從二維零件圖中，找出零件驅(qū)動(dòng)尺寸數(shù)。
圖3-2 零件驅(qū)動(dòng)尺寸數(shù)截圖
3.2 定義驅(qū)動(dòng)尺寸
在三維圖中定義驅(qū)動(dòng)尺寸的先后順序，再到二維圖中找出與三維圖中對(duì)應(yīng)的尺寸。
圖3-3 驅(qū)動(dòng)尺寸對(duì)應(yīng)位置
3.3 重新定義尺寸
按照長(zhǎng)為L(zhǎng),寬為B，高為H，直徑為D，半徑為R，以及M的規(guī)則，將原來(lái)尺寸重命名，如圖所示。
圖3-4 各零件尺寸重命名
3.4 輸入尺寸
原來(lái)零件圖尺寸的值輸入表中，使之一一對(duì)應(yīng)。
圖3-5 零件尺寸值
第四章 二維參數(shù)化設(shè)計(jì)
4.1標(biāo)坐標(biāo)，確定位置關(guān)系
以頂板為例
1. 設(shè)最下面線與中心線的交點(diǎn)為（X0，Y0），把每個(gè)點(diǎn)的橫坐標(biāo)設(shè)置成X1,X2,X3,X4,X5,X6,X7;縱坐標(biāo)設(shè)置成Y1,Y2,Y3。把每個(gè)點(diǎn)用坐標(biāo)表示出來(lái)。將需填充的區(qū)域用C1,C2表示。
4.2定義驅(qū)動(dòng)尺寸
D1,H1,D2,H2,D3與Excel表中順序一致
詳細(xì)編程內(nèi)容見附錄一
橫坐標(biāo)與驅(qū)動(dòng)尺寸和X0之間的關(guān)系通過(guò)編程定義
詳細(xì)編程內(nèi)容見附錄一
縱坐標(biāo)與驅(qū)動(dòng)尺寸和Y0之間的關(guān)系：
Y1:=Y0;
Y2:=Y0+H1*Scale;
Y3:=Y0+H1*Scale+H2*Scale;
4.3畫填充區(qū)域，并打剖面線
詳細(xì)編程內(nèi)容見附錄一
4.4繪制除填充區(qū)域的其他部分
詳細(xì)編程內(nèi)容見附錄一
4.5標(biāo)注
詳細(xì)編程內(nèi)容見附錄一
4.6繪制中心線
詳細(xì)編程內(nèi)容見附錄一
4.7粗糙度及技術(shù)要求
Addtz(6.3); ////其余
圖4-1 頂板效果圖
詳細(xì)編程內(nèi)容詳見附錄一
繪制填充區(qū)域以及剖面線
編程內(nèi)容詳見附錄一
1.標(biāo)注
編程內(nèi)容詳見附錄一
圖4-2 下模座Delphi程序圖
圖4-3 下模座Delphi程序驅(qū)動(dòng)零件圖
第五章 系統(tǒng)演示
（1） 首先開始運(yùn)行程序，初始界面如下
圖5-1 Delphi程序初始界面
（2） 選擇落料沖孔程序 “LLCK”
圖5-2 落料沖孔選擇界面
（3）進(jìn)入模具輔助設(shè)計(jì)系統(tǒng)；
圖5-3 模具輔助設(shè)計(jì)系統(tǒng)界面
（4）進(jìn)入程序界面，點(diǎn)擊與零件相同的序號(hào)，運(yùn)行。
圖5-4 程序界面
（4） 找到左側(cè)零件，單擊，確定無(wú)誤后，點(diǎn)擊二維按鈕。
圖5-5 輸入驅(qū)動(dòng)尺寸數(shù)值
（6）重新打開CAD，就會(huì)出現(xiàn)零件圖。
圖5-6 二維零件效果圖
第六章 結(jié) 論
在這次畢業(yè)設(shè)計(jì)過(guò)程中，通過(guò)指導(dǎo)老師殷老師的耐心指導(dǎo)，完成這套墊片落料沖孔工藝及輔助設(shè)計(jì)軟件的開發(fā)。
首先，完成落料沖孔件成型工藝分析、計(jì)算。根據(jù)墊片的成型特點(diǎn)，我們查閱了大量的國(guó)內(nèi)外典籍、論文，匯總了眾多的工藝計(jì)算方法，加以比較取舍，選擇最佳的工藝方案進(jìn)行工藝計(jì)算。
然后完成簡(jiǎn)單墊片的工藝分析和模具設(shè)計(jì)，繪制模具的裝配圖以及零件圖。
最后是下模二維輔助設(shè)計(jì)軟件開發(fā)，自動(dòng)進(jìn)行墊片落料沖孔成型工藝分析、模具設(shè)計(jì)和輸出二維圖形。實(shí)現(xiàn)了軟件輔助設(shè)計(jì)落料沖孔件模具的全過(guò)程，使落料沖孔模具設(shè)計(jì)簡(jiǎn)便化，不用重復(fù)同樣零件不同大小的反復(fù)設(shè)計(jì)。通過(guò)輸出圖形程序的編寫，使我加深了對(duì)Delphi的認(rèn)識(shí)，掌握了另外一種科學(xué)有效的仿真成型系統(tǒng)的運(yùn)用。
參考文獻(xiàn)
[1].雷新宇，董臻主編．CAD技術(shù)與應(yīng)用—CAD技術(shù)的全面分析與實(shí)踐[M]．沈陽(yáng)：遼寧科學(xué)技術(shù)出版社．1997.9
[2].雷新宇，董臻主編．CAD技術(shù)與應(yīng)用—CAD技術(shù)的全面分析與實(shí)踐[M]．沈陽(yáng)：遼寧科學(xué)技術(shù)出版社．1997.9
[3]. 李大鑫,張秀棉. 模具技術(shù)現(xiàn)狀與發(fā)展趨勢(shì)綜述[J]模具制造, 2005,(02).
[4].趙昌盛 ,朱邦全. 我國(guó)模具材料的應(yīng)用發(fā)展[J]模具制造, 2004,(11).
[5].盧險(xiǎn)峰編著,沖壓工藝模具學(xué),北京：機(jī)械工業(yè)出版社，1998
[6].姜奎華主編,沖壓工藝與模具設(shè)計(jì),北京：機(jī)械工業(yè)出版社，1998
[7].丁松聚主編,冷沖模設(shè)計(jì)(第2版),北京：機(jī)械工業(yè)出版社，2001
[8].吳詩(shī)惇主編,沖壓工藝學(xué),西安：西北工業(yè)大學(xué)出版社，1987
[9].肖景容，周士能，肖祥芷編,板料沖壓,武漢：華中工學(xué)院出版社，1986
[10].萬(wàn)戰(zhàn)勝編,沖壓模具設(shè)計(jì),北京：中國(guó)鐵道出版社，1983
[11]..翁其金主編,沖壓工藝與沖模設(shè)計(jì),北京：機(jī)械工業(yè)出版社，1999
[12].李碩本，李春峰，郭斌等編著,沖壓工藝?yán)碚撆c新技術(shù),北京：機(jī)械工業(yè)出版社，2002
[13].肖祥芷，王孝培主編,中國(guó)模具設(shè)計(jì)大典(第3卷)沖壓模具設(shè)計(jì),南昌：江西科學(xué)技術(shù)出版社，2003
[14].王孝培主編,沖壓手冊(cè)(第2版),北京：機(jī)械工業(yè)出版社，1995
[15].邱永成編著,多工位級(jí)進(jìn)模設(shè)計(jì),北京：國(guó)防工業(yè)出版社，1987
[16] Yazheng Liu, Jinghong Sun, et al. Experiment investigation of deep-drawing sheet texture evolution. Journal of Materials processing Technology，140(2003):509-513
[17] Yingbin Bao. A comparative study on various ductile crack formation criteria. Journal of engineering materials and technology，2004(7): 314-324
[18] He Zhongbao. Typical parts molding atlas. Beijing: Mechanical Industry Press.2000.11
[19] money can be strong. Mechanical drawing. Beijing: Higher Education Press.2003.6
[20] Liao Nianzhao, the ancient Yingan. Interchangeability and measuring technology. Beijing: China metrology press.2000.1
[21] Wu Xianming, Wang Qun et al. Plastic mold design guide. National Defense Industry Press.2008.2
謝 辭
白駒過(guò)隙，似水流年。來(lái)不及感嘆，兩年就這樣來(lái)到終點(diǎn)。因?yàn)橐咔椋趯W(xué)校的時(shí)間也變成奢侈，仿佛來(lái)不及道別。兩年里，XXXX學(xué)院工程系的老師們給予了我諸多教誨，向各位老師表示由衷感謝。感謝兩年來(lái)老師的栽培，使得我掌握和運(yùn)用專業(yè)知識(shí)，并在設(shè)計(jì)中得以體現(xiàn)，順利完成畢業(yè)設(shè)計(jì)。
D1,D2,D3,H1,H2:Real;
N,i:integer;
Dx0,Dy0:real;
X1,X2,X3,X4,X5,X6,X7:real;
Y1,Y2,Y3:real;
C1,C2:olevariant;
Hatch1,Hatch2:olevariant;
begin
D1:=StrToFloat(E1.Text);
H1:=StrToFloat(E2.Text);
D2:=StrToFloat(E3.Text);
H2:=StrToFloat(E4.Text);
D3:=StrToFloat(E5.Text);
X1:=X0;
X2:=X0-D1/2*Scale;
X3:=X0+D1/2*Scale;
X4:=X0-D3/2*Scale;
X5:=X0+D3/2*Scale;
X6:=X0-D2/2*Scale;
X7:=X0+D2/2*Scale;
C1:=VarArrayCreate([0,5],varDispatch);
SetlineType(1);////1 粗實(shí)線 2、中心線 3、細(xì)實(shí)線 4、剖面線 5、尺寸線 6、虛線
C1[0]:=Addline(X5,Y1,X3,Y1);
C1[1]:=Addline(X3,Y1,X3,Y2);
C1[2]:=Addline(X3,Y2,X7,Y2);
C1[3]:=Addline(X7,Y2,X7,Y3);
C1[4]:=Addline(X7,Y3,X5,Y3);
C1[5]:=Addline(X5,Y3,X5,Y1);
SetlineType(4);
Hatch1:=AddHatch('ANSI31',0,true,C1);
Hatch1.Evaluate; ////////剖面線的畫法
C2:=VarArrayCreate([0,5],varDispatch);
SetlineType(1);////1 粗實(shí)線 2、中心線 3、細(xì)實(shí)線 4、剖面線 5、尺寸線 6、虛線
C2[0]:=Addline(X4,Y1,X2,Y1);
C2[1]:=Addline(X2,Y1,X2,Y2);
C2[2]:=Addline(X2,Y2,X6,Y2);
C2[3]:=Addline(X6,Y2,X6,Y3);
C2[4]:=Addline(X6,Y3,X4,Y3);
C2[5]:=Addline(X4,Y3,X4,Y1);
SetlineType(4);
Hatch2:=AddHatch('ANSI31',0,true,C2);
Hatch2.Evaluate; ////////剖面線的畫法
SetlineType(4);
Hatch2:=AddHatch('ANSI31',0,true,C2);
Hatch2.Evaluate; ////////剖面線的畫法
SetlineType(1);
Addline(X4,Y1,X5,Y1);
Addline(X4,Y3,X5,Y3);
SetlineType(5);
Dim(X4,Y1,X5,Y1,X4,Y1-10,1);
Dim(X2,Y1,X3,Y1,X2,Y1-20,1);
Dim(X6,Y3,X7,Y3,X6,Y3+10,1);
Dim(X3,Y1,X3,Y2,X3+10,Y1,0);
Dim(X7,Y2,X7,Y3,X3+20,Y2,0);
SetlineType(2);
Addline(X0,Y0-5,X0,Y3+5);
以下模座為例
1. 設(shè)下模座的中心為（X0，Y0），把每個(gè)點(diǎn)的橫坐標(biāo)設(shè)置成X1,X2,X3,X4,X5,X6,X7，X8,X9,X10,X11,X12,X13,X14,X15,X16,X17,X18,X19,X20,X21;縱坐標(biāo)設(shè)置成Y1,Y2,Y3,Y4,Y5,Y6,Y7,Y8,Y9,Y10,Y11,Y12,Y13,Y14,Y15,Y16,Y17,Y18,Y19,Y20,Y21,Y22。把每個(gè)點(diǎn)用坐標(biāo)表示出來(lái)。將需填充的區(qū)域用C1,C2,C3,C4,C5,C6表示。
D1,D2,D3,D4,D5,D6,D7,L1,L2,L3,L4,L5,L6,L7,B1,B2,B3,B4,B5,B6,B7,H1,H2,H3,H4,H5,R1,R2,R3,R4,M:Real;
N,i:integer;
Dx0,Dy0,ZFL,ZZL:real;
X1,X2,X3,X4,X5,X6,X7,X8,X9,X10,X11,X12,X13,X14,X15,X16,X17,X18,X19,X20,X21:real;
Y1,Y2,Y3,Y4,Y5,Y6,Y7,Y8,Y9,Y10,Y11,Y12,Y13,Y14,Y15,Y16,Y17,Y18,Y19,Y20,Y21,Y22:real;
C1,C2,C3,C4,C5,C6:olevariant;
Hatch1,Hatch2, Hatch3,Hatch4, Hatch5,Hatch6:olevariant;
2. 定義驅(qū)動(dòng)尺寸
將驅(qū)動(dòng)尺寸D1,D2,D3,D4,D5,D6,D7,L1,L2,L3,L4,L5,L6,L7,B1,B2,B3,B4,B5,B6,B7,H1,H2,H3,H4,H5,R1,R2,R3,R4,M按照Excel表中的順序?qū)?yīng)。
L1:=StrToFloat(E1.Text);
B1:=StrToFloat(E2.Text);
R1:=StrToFloat(E3.Text);
R2:=StrToFloat(E4.Text);
L2:=StrToFloat(E5.Text);
R3:=StrToFloat(E6.Text);
B2:=StrToFloat(E7.Text);
H1:=StrToFloat(E8.Text);
D1:=StrToFloat(E9.Text);
L3:=StrToFloat(E10.Text);
D2:=StrToFloat(E11.Text);
B3:=StrToFloat(E12.Text);
H2:=StrToFloat(E13.Text);
B4:=StrToFloat(E14.Text);
D3:=StrToFloat(E15.Text);
D4:=StrToFloat(E16.Text);
L4:=StrToFloat(E17.Text);
L5:=StrToFloat(E18.Text);
D5:=StrToFloat(E19.Text);
B5:=StrToFloat(E20.Text);
D6:=StrToFloat(E21.Text);
B6:=StrToFloat(E22.Text);
D7:=StrToFloat(E23.Text);
H3:=StrToFloat(E24.Text);
L6:=StrToFloat(E25.Text);
R4:=StrToFloat(E26.Text);
B7:=StrToFloat(E27.Text);
H4:=StrToFloat(E28.Text);
L7:=StrToFloat(E29.Text);
M:=StrToFloat(E30.Text);
H5:=StrToFloat(E31.Text);
橫坐標(biāo)與X0和驅(qū)動(dòng)尺寸的關(guān)系如下：
X1:=X0;
X2:=X0-L4*Scale;
X3:=X0-L5*Scale;
X4:=X0-L7*Scale;
X5:=X0-L1/2*Scale;
X6:=X0+L7*Scale;
X7:=X0+L1/2*Scale;
X8:=X0+L5*Scale;
X9:=X0+L4*Scale;
X10:=X0-(L7+L3+L6+R4)*Scale;
X11:=X0-(L1/2-R1)*Scale;
X12:=X0-(L7+L3)*Scale;
X13:=X0-(L7+L3+L6)*Scale;
X14:=X0-L2*Scale;
X15:=X0-(L2+R3)*Scale;
X16:=X0+(L7+L3+L6+R4)*Scale;
X17:=X0+(L7+L3+L6)*Scale;
X18:=X0+(L1/2-R1)*Scale;
X19:=X0+(L7+L3)*Scale;
X20:=X0+(L2+R3)*Scale;
X21:=X0+L2*Scale;
縱坐標(biāo)與Y0和驅(qū)動(dòng)尺寸的關(guān)系如下：
Y1:=Y0;
Y2:=Y0+L4*Scale;
Y3:=Y0-L4*Scale;
Y4:=Y0+B5*Scale;
Y5:=Y0+(B5-B6)*Scale;
Y6:=Y0+B4*Scale;
Y7:=Y0+B7*Scale;
Y8:=Y0+(B7-R4)*Scale;
Y9:=Y0-(B7-R4)*Scale;
Y10:=Y0-B7*Scale;
Y11:=Y0+(B4-B1+R2+R1)*Scale;
Y12:=Y0+(B4-B1+R2)*Scale;
Y13:=Y0+(B4-B1+R2-R3)*Scale;
Y14:=Y0-B5*Scale;
Y15:=Y0+(B4-B1+R2-B2)*Scale;
Y16:=Y0+(B4+R2)*Scale+50;
Y17:=Y0+(B4+R2+H1+H2)*Scale+50;
Y18:=Y0+(B4+R2+H1)*Scale+50;
Y19:=Y0+(B4+R2+H1+H4)*Scale+50;
Y20:=Y0+(B4+R2+H3)*Scale+50;
Y21:=Y0+(B6-B5)*Scale;
Y22:=Y0+(B4+R2)*Scale;
C1:=VarArrayCreate([0,3],varDispatch);
SetlineType(1);////1 粗實(shí)線 2、中心線 3、細(xì)實(shí)線 4、剖面線 5、尺寸線 6、虛線
C1[0]:=Addline(X5,Y16,X4-D3/2*Scale,Y16);
C1[1]:=Addline(X4-D3/2*Scale,Y16,X4-D3/2*Scale,Y17);
C1[2]:=Addline(X4-D3/2*Scale,Y17,X5,Y17);
C1[3]:=Addline(X5,Y17,X5,Y16);
SetlineType(4);
Hatch1:=AddHatch('ANSI31',0,true,C1);
Hatch1.Evaluate; ////////剖面線的畫法
C2:=VarArrayCreate([0,3],varDispatch);
SetlineType(1);
C2[0]:=Addline(X4+D3/2*Scale,Y16,X3-D6/2*Scale,Y16);
C2[1]:=Addline(X3-D6/2*Scale,Y16,X3-D6/2*Scale,Y17);
C2[2]:=Addline(X3-D6/2*Scale,Y17,X4+D3/2*Scale,Y17);
C2[3]:=Addline(X4+D3/2*Scale,Y17,X4+D3/2*Scale,Y16);
SetlineType(4);
Hatch2:=AddHatch('ANSI31',0,true,C2);
Hatch2.Evaluate; ////////剖面線的畫法
C3:=VarArrayCreate([0,3],varDispatch);
SetlineType(1);
C3[0]:=Addline(X3+D6/2*Scale,Y16,X2-D4/2*Scale,Y16);
C3[1]:=Addline(X2-D4/2*Scale,Y16,X2-D4/2*Scale,Y17);
C3[2]:=Addline(X2-D4/2*Scale,Y17,X3+D6/2*Scale,Y17);
C3[3]:=Addline(X3+D6/2*Scale,Y17,X3+D6/2*Scale,Y16);
SetlineType(4);
Hatch3:=AddHatch('ANSI31',0,true,C3);
Hatch3.Evaluate; ////////剖面線的畫法
C4:=VarArrayCreate([0,8],varDispatch);
SetlineType(1);
C4[0]:=Addline(X2+D4/2*Scale,Y16,X1-(M/2-1.5)*Scale,Y16);
C4[1]:=Addline(X1-(M/2-1.5)*Scale,Y16,X1-(M/2-1.5)*Scale,Y16+(H5+2)*Scale); C4[2]:=Addline(X1-(M/2-1.5)*Scale,Y16+(H5+2)*Scale,X1,Y16+(H5+2+2.62)*Scale); C4[3]:=Addline(X1,Y16+(H5+2+2.62)*Scale,X1+(M/2-1.5)*Scale,Y16+(H5+2)*Scale);
C4[4]:=Addline(X1+(M/2-1.5)*Scale,Y16+(H5+2)*Scale,X1+(M/2-1.5)*Scale,Y16);
C4[5]:=Addline(X1+(M/2-1.5)*Scale,Y16,X9-D4/2*Scale,Y16);
C4[6]:=Addline(X9-D4/2*Scale,Y16,X9-D4/2*Scale,Y17);
C4[7]:=Addline(X9-D4/2*Scale,Y17,X2+D4/2*Scale,Y17);
C4[8]:=Addline(X2+D4/2*Scale,Y17,X2+D4/2*Scale,Y16);
SetlineType(4);
Hatch4:=AddHatch('ANSI31',0,true,C4);
Hatch4.Evaluate; ////////剖面線的畫法
C5:=VarArrayCreate([0,5],varDispatch);
SetlineType(1);
C5[0]:=Addline(X9+D4/2*Scale,Y16,X8-D7/2*Scale,Y16);
C5[1]:=Addline(X8-D7/2*Scale,Y16,X8-D7/2*Scale,Y20);
C5[2]:=Addline(X8-D7/2*Scale,Y20,X8-D5/2*Scale,Y20);
C5[3]:=Addline(X8-D5/2*Scale,Y20,X8-D5/2*Scale,Y17);
C5[4]:=Addline(X8-D5/2*Scale,Y17,X9+D4/2*Scale,Y17);
C5[5]:=Addline(X9+D4/2*Scale,Y17,X9+D4/2*Scale,Y16);
SetlineType(4);
Hatch5:=AddHatch('ANSI31',0,true,C5);
Hatch5.Evaluate; ////////剖面線的畫法
C6:=VarArrayCreate([0,5],varDispatch);
SetlineType(1);
C6[0]:=Addline(X8+D7/2*Scale,Y16,X8+D7/2*Scale,Y20);
C6[1]:=Addline(X8+D7/2*Scale,Y20,X8+D5/2*Scale,Y20);
C6[2]:=Addline(X8+D5/2*Scale,Y20,X8+D5/2*Scale,Y17);
C6[3]:=Addline(X8+D5/2*Scale,Y17,X8+D5/2*Scale+20,Y17);
C6[4]:=Addline(X8+D5/2*Scale+20,Y17,X8+D7/2*Scale+20,Y16);
C6[5]:=Addline(X8+D7/2*Scale+20,Y16,X8+D7/2*Scale,Y16);
SetlineType(4);
Hatch6:=AddHatch('ANSI31',0,true,C6);
Hatch6.Evaluate; ////////剖面線的畫法
1. 繪制除填充區(qū)域的其他部分
SetlineType(1);
Addline(X5,Y16,X7,Y16);
Addline(X5,Y17,X7,Y17);
Addline(X7,Y17,X7,Y16);
Addline(X19,Y17,X19,Y18);
Addline(X19,Y18,X7,Y18);
Addline(X7,Y19,X17,Y19);
Addline(X17,Y19,X17,Y18);
Addline(X8-D5/2*Scale,Y20,X8+D5/2*Scale,Y20);/////以上為主視圖，以下是俯視圖
AddCircle(X2,Y1,D4/2);
AddCircle(X9,Y1,D4/2);
AddCircle(X1,Y2,D4/2);
AddCircle(X1,Y3,D4/2);
AddCircle(X3,Y21,D6/2);
AddCircle(X8,Y5,D6/2);
AddCircle(X3, Y4, D5/2);
AddCircle(X1, Y4, D5/2);
AddCircle(X8, Y4, D5/2);
AddCircle(X3, Y14, D5/2);
AddCircle(X1, Y14, D5/2);
AddCircle(X8, Y14, D5/2);
AddCircle(X4, Y6, D3/2);
AddCircle(X6, Y6, D3/2);
SetlineType(6);/////虛線圓
AddCircle(X3, Y4, D7/2);
AddCircle(X1, Y4, D7/2);
AddCircle(X8, Y4, D7/2);
AddCircle(X3, Y14, D7/2);
AddCircle(X1, Y14, D7/2);
AddCircle(X8, Y14, D7/2);
SetlineType(1);
AddArc(X4, Y6, R2, 90, 180);
AddArc(X6, Y6, R2, 0, 90);
Addline(X4,Y22,X6,Y22);
Addline(X5,Y6,X5,Y11);
Addline(X7,Y6,X7,Y11);
AddArc(X11, Y11, R1, 180, 270);
AddArc(X18, Y11 ,R1, 270, 360);
Addline(X11,Y12,X15,Y12);
Addline(X18,Y12,X20,Y12);
AddArc(X15, Y13, R3, 0, 90);
AddArc(X20, Y13 ,R3, 90, 180);
Addline(X14,Y13,X14,Y15);
Addline(X14,Y15,X21,Y15);
Addline(X21,Y15,X21,Y13);
Addline(X5,Y7,X10,Y7);
AddArc(X10, Y8, R4, 0, 90);
Addline(X13,Y8,X13,Y9);
AddArc(X10, Y9, R4, 270,360);
Addline(X10,Y10,X5,Y10);
Addline(X7,Y7,X16,Y7);
AddArc(X16, Y8, R4, 90,180);
Addline(X17,Y8,X17,Y9);
AddArc(X16, Y9, R4,180,270);
Addline(X16,Y10,X7,Y10);
SetlineType(1);
Addline(X1-(M/2-1.5)*Scale,Y16,X1-(M/2-1.5)*Scale,Y16+(H5+2)*Scale);
Addline(X1-(M/2-1.5)*Scale,Y16+(H5+2)*Scale,X1+(M/2-1.5)*Scale,Y16+(H5+2)*Scale);
Addline(X1+(M/2-1.5)*Scale,Y16+(H5+2)*Scale,X1+(M/2-1.5)*Scale,Y16);
Addline(X1-(M/2-1.5)*Scale,Y16+(H5+2)*Scale,X1,Y16+(H5+2+2.62)*Scale);
Addline(X1,Y16+(H5+2+2.62)*Scale,X1+(M/2-1.5)*Scale,Y16+(H5+2)*Scale);
SetlineType(3);
Addline(X1-M/2*Scale,Y16,X1-M/2*Scale,Y16+H5*Scale);
Addline(X1-M/2*Scale,Y16+H5*Scale,X1+M/2*Scale,Y16+H5*Scale);
Addline(X1+M/2*Scale,Y16+H5*Scale,X1+M/2*Scale,Y16);////主視圖上的螺紋孔
AddArc(X1, Y1, M/2*Scale,270,180);
AddCircle(X1, Y1, (M/2-1.5)*Scale);///俯視圖上的螺紋孔
SetlineType(1);
Addline(X12,Y4+8.26*Scale,X12,Y12);
Addline(X19,Y4+8.26*Scale,X19,Y12);
Addline(X1,Y6+B3*Scale,X3+15.62*Scale,Y6+B3*Scale);
Addline(X1,Y6+B3*Scale,X8-15.62*Scale,Y6+B3*Scale);////有圓角的部分直線,
SetlineType(1);
AddArc(X4, Y6, R2, 30, 90);
AddArc(X4, Y6, R2, 180, 246);
AddArc(X6, Y6, R2, 90, 150);
AddArc(X6, Y6, R2, 294, 360);
AddArc(X5+20*Scale, Y4+8.26*Scale, D2/2, 0, 66);
AddArc(X7-20*Scale, Y4+8.26*Scale, D2/2, 114, 180);
AddArc(X3+15.62*Scale, Y6+(B3+D1/2)*Scale, D1/2, 210, 270);
AddArc(X8-15.62*Scale, Y6+(B3+D1/2)*Scale, D1/2, 270, 330);
///圓弧部分
SetlineType(5);/////尺寸標(biāo)注
Dim(X5,Y11,X7,Y11,X1,Y11-R1*Scale-20,0);
Dim(X1,Y15,X21,Y15,X1,Y15-10,0);
Dim(X6,Y1,X19,Y1,X1,Y1-10,0);
Dim(X19,Y1,X17,Y1,X1,Y1-20,0);
Dim(X2,Y1,X1,Y1,X1,Y1+20,0);
Dim(X1,Y4,X8,Y4,X1,Y22+10,0);
Dim(X1,Y4,X6,Y4,X1,Y22+20,0);/////水平方向尺寸
SetlineType(5);
Dim(X6,Y22,X6,Y12,X7+40,Y1,0);
Dim(X21,Y15,X21,Y12,X7+40,Y1,0);
Dim(X8,Y1,X8,Y4,X7+30,Y1,0);
Dim(X7,Y1,X7,Y7,X7+20,Y1,0);
Dim(X8,Y5,X8,Y4,X7+10,Y1,0);
Dim(X4,Y6,X4,Y1,X5-20,Y1,0);
Dim(X7,Y16,X7,Y18,X7+20,Y1,0);
Dim(X7,Y18,X7,Y19,X7+10,Y1,0);
Dim(X7,Y18,X7,Y17,X7+30,Y1,0);
Dim(X8,Y16,X8,Y20,X8+D5/2*Scale+10,Y1,0);
Dim(X1,Y16,X1,Y16+H5*Scale,X1+M/2*Scale+10,Y1,0);
Dim(X1,Y6+B3,X1,Y6,X1+10,Y1,0);/////豎直方向尺寸
SetlineType(5);
Dim(X6+D3/2*Scale,Y6,X6-D3/2*Scale,Y6,X1,Y6-D3/2*Scale-10,1);
Dim(X3+D5/2*Scale,Y4,X3-D5/2*Scale,Y4,X1,Y4-D5/2*Scale-10,1);
Dim(X3+D7/2*Scale,Y4,X3-D7/2*Scale,Y4,X1,Y4-D7/2*Scale-20,1);
Dim(X3+D6/2*Scale,Y21,X3-D6/2*Scale,Y21,X1,Y21+D6/2*Scale+10,1);
Dim(X2+D4/2*Scale,Y1,X2-D4/2*Scale,Y1,X1,Y1-D4/2*Scale-10,1);
Dim(X1-M/2*Scale,Y1*Scale,X1+M/2*Scale,Y1,X1,Y1-10,2);/////圓的尺寸標(biāo)注
Dim_D(X3+15.62*Scale, Y6+(B3+D1/2)*Scale,X4+(L7-L5)*Scale,Y6+(B3+D1/4)*Scale,10,40);
Dim_D(X5+20*Scale, Y4+8.26*Scale,X5+20*Scale+21.25 ,Y4+8.26*Scale+12.5,10,50);
Dim_R(X11, Y11, X11-17.3, Y11-10, 10,20);
Dim_R(X16, Y8, X16-8.5, Y8+5, 10,10);
Dim_R(X6, Y6, X6+42.5, Y6+25, 20,50);///圓弧的標(biāo)注
1. 繪制中心線以及粗糙度
SetlineType(2);////中心線
Addline(X4,Y12-5,X4,Y22+5);
Addline(X6,Y12-5,X6,Y22+5);
Addline(X1,Y15-5,X1,Y22+5);
Addline(X3,Y12-5,X3,Y22+5);
Addline(X8,Y12-5,X8,Y22+5);
Addline(X5-5,Y6,X7+5,Y6);
Addline(X5-5,Y1,X7+5,Y1);
Addline(X3-D7/2*Scale-5,Y4,X8+D7/2*Scale+5,Y4);
Addline(X3-D7/2*Scale-5,Y14,X8+D7/2*Scale+5,Y14);
Addline(X2,Y1-D4/2*Scale-5,X2,Y1+D4/2*Scale+5);
Addline(X9,Y1-D4/2*Scale-5,X9,Y1+D4/2*Scale+5);
Addline(X3-D6/2*Scale-5,Y21,X3+D6/2*Scale+5,Y21);
Addline(X8-D6/2*Scale-5,Y5,X8+D6/2*Scale+5,Y5);
Addline(X1-D4/2*Scale-5,Y2,X1+D4/2*Scale+5,Y2);
Addline(X1-D4/2*Scale-5,Y3,X1+D4/2*Scale+5,Y3);
Addline(X1,Y16-5,X1,Y17+5);
Addline(X4,Y16-5,X4,Y17+5);
Addline(X3,Y16-5,X3,Y17+5);
Addline(X2,Y16-5,X2,Y17+5);
Addline(X9,Y16-5,X9,Y17+5);
Addline(X8,Y16-5,X8,Y17+5);
Addtz(6.3); ////其余
收藏