同心圓墊片的落料沖孔模具設(shè)計及下模零件二維輔助設(shè)計系統(tǒng)開發(fā)含12張CAD圖
同心圓墊片的落料沖孔模具設(shè)計及下模零件二維輔助設(shè)計系統(tǒng)開發(fā)含12張CAD圖,同心圓,墊片,沖孔,模具設(shè)計,零件,二維,輔助設(shè)計,系統(tǒng),開發(fā),12,CAD
落料沖孔模具設(shè)計及下模 零件二維輔助設(shè)計系統(tǒng)開發(fā)指導(dǎo)老師：XX答辯人：XX2目錄content研究背景研究意義主要過程系統(tǒng)演示結(jié)論和展望結(jié)語1研究背景國內(nèi)研究國外研究落料沖孔件被普遍應(yīng)用于汽車、機械、航天、航空、輕工、電子、電器、儀表等領(lǐng)域，是因為落料沖孔件的生產(chǎn)效率高、產(chǎn)品質(zhì)量好、生產(chǎn)成本低，所以，落料沖孔工藝的發(fā)展在模具行業(yè)具備代表性。在信息技術(shù)時代，隨著計算機技術(shù)的發(fā)展，模具制造業(yè)廣泛的使用CAD/CAM/CAE技術(shù)，科學(xué)、正規(guī)的模具結(jié)構(gòu)都是源于傳統(tǒng)經(jīng)驗設(shè)計向計算機輔助設(shè)計的轉(zhuǎn)變，使得模具的加工精度大大提高，加工周期大大縮短，增加了公司的效益。.1研究背景國內(nèi)研究廣泛使用CAD/CAM/CAE在模具行業(yè)，模具制造精良。計算機國外現(xiàn)狀國內(nèi)現(xiàn)狀計算機技術(shù)在模具行業(yè)應(yīng)用還不廣泛，大型、復(fù)雜、高精度模具方面落后，依賴進口。2研究意義 模具與 計算機輔助設(shè)計提高生產(chǎn)效率降低模具和設(shè)計開發(fā)成本提高加工精度3主要過程零件的工藝分析Process analysis of partsProcess analysis of parts以簡單的墊片作為落料沖孔的例子，對其進行工藝分析，盡可能使模具零件標準化選擇模具所需標準零件以及固定方式，繪制二維零件圖。找出零件的驅(qū)動尺寸重新定義驅(qū)動尺寸進行驅(qū)動尺寸輸入零件參數(shù)化分析3主要過程3主要過程二維參數(shù)化設(shè)計使用Delphi7進行編程繪制模具外圍輪廓繪制中心線、剖面線，進行標注系統(tǒng)演示理論3理論2理論1在這里輸入你的文字在這里輸入你的文字、4首先開始運行程序，初始界面如圖選擇落料沖孔程序“LLCK”程序2022/10/11系統(tǒng)演示4進入模具輔助設(shè)計系統(tǒng)2022/10/11系統(tǒng)演示4進入程序界面，點擊與零件相同的序號，運行2022/10/11系統(tǒng)演示4找到左側(cè)零件，單擊，確定無誤后，點擊二維按鈕2022/10/11系統(tǒng)演示4系統(tǒng)演示在這里輸入你的結(jié)論4重新打開CAD，就會出現(xiàn)零件圖結(jié)論與展望輸入文字輸入文字輸落料入文落料字提高了生產(chǎn)效率節(jié)約了設(shè)計成本和制造周期落料沖孔模具與計算機輔助設(shè)計的結(jié)合使用使用CAD/CAM/CAECAD/CAM/CAE技術(shù)技術(shù).5實現(xiàn)了軟件輔助設(shè)計落料沖孔件模實現(xiàn)了軟件輔助設(shè)計落料沖孔件模具的全過程，使落料沖孔模具設(shè)計具的全過程，使落料沖孔模具設(shè)計簡便化，不用重復(fù)同樣零件不同大簡便化，不用重復(fù)同樣零件不同大小的反復(fù)設(shè)計小的反復(fù)設(shè)計。結(jié)論與展望從簡單的墊片從簡單的墊片到相對復(fù)雜的到相對復(fù)雜的落料沖孔件落料沖孔件向其他類型的向其他類型的模具拓展模具拓展最后使計算計最后使計算計輔助系統(tǒng)在模輔助系統(tǒng)在模具行業(yè)普遍應(yīng)具行業(yè)普遍應(yīng)用用5通過數(shù)據(jù)和經(jīng)驗的積累，利用大數(shù)據(jù)可以設(shè)計出更通過數(shù)據(jù)和經(jīng)驗的積累，利用大數(shù)據(jù)可以設(shè)計出更加合理的模具，是一種增加落料沖孔件的設(shè)計效率、加合理的模具，是一種增加落料沖孔件的設(shè)計效率、降低模具設(shè)計和開發(fā)的成本的有效方法和手段。降低模具設(shè)計和開發(fā)的成本的有效方法和手段。THANKS感謝老師的批評與指正
落料沖孔模具設(shè)計及下模零件二維輔助設(shè)計系統(tǒng)開發(fā)
摘 要
根據(jù)現(xiàn)代模具發(fā)展與計算機編程的廣泛應(yīng)用，本課題設(shè)計了利用編程驅(qū)動繪圖軟件達到快速生成設(shè)計圖紙，提高生產(chǎn)效率。
本文首先對零件進行工藝分析，繪出二維模具圖，盡可能是模具標準，找出零件的驅(qū)動尺寸以及各零件尺寸的關(guān)系，使用Delphi7進行編程繪制。然后通過改變驅(qū)動尺寸的數(shù)值改變模具零件尺寸的大小，避免了重復(fù)繪圖，提高了生產(chǎn)效率。用Delphi7驅(qū)動AutoCAD可以自動生成對應(yīng)圖紙，節(jié)約成本，提高效率。經(jīng)過后期完善大數(shù)據(jù)統(tǒng)計，設(shè)計出更合理的模具，提高模具精度，促進模具產(chǎn)業(yè)的發(fā)展。
關(guān)鍵詞：二維軟件輔助設(shè)計；落料沖孔件標準化；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軟件進行模具零件二維設(shè)計參數(shù)化 1
第二章 零件工藝分析與模具設(shè)計 3
2.1零件工藝分析 3
2.1.1任務(wù)要求 3
2.1.2 零件的工藝分析 3
2.2沖壓方案設(shè)計與選擇 3
2.2.1 工藝方案的設(shè)計 3
2.2.2工藝方案的選擇 4
2.3沖裁工序工藝設(shè)計與計算 4
2.3.1沖裁刃口尺寸計算 4
2.3.2兩種力的計算 6
2．4凸凹模固定 7
2.4.1凹模固定 7
2.4．2凸模的固定形式 8
第三章 零件參數(shù)化分析 13
3.1找出零件尺寸數(shù) 13
3.2 定義驅(qū)動尺寸 13
3.3 重新定義尺寸 14
3.4 輸入尺寸 14
第四章 二維參數(shù)化設(shè)計 15
4.1標坐標，確定位置關(guān)系 15
4.2定義驅(qū)動尺寸 15
4.3畫填充區(qū)域，并打剖面線 15
4.4繪制除填充區(qū)域的其他部分 15
4.5標注 15
4.6繪制中心線 16
4.7粗糙度及技術(shù)要求 16
第五章 系統(tǒng)演示 18
第六章 結(jié) 論 21
參考文獻 22
謝 辭 24
24
XXXXXX
第一章 緒 論
1.1 選題背景和意義
我國是一個制造大國，一向重視實業(yè)發(fā)展，制造業(yè)在今天來說變得愈來愈重要。我國模具產(chǎn)業(yè)發(fā)展迅速，雖然起步晚，但發(fā)展的勁頭十分迅猛。模具的發(fā)展水平，決定一個國家產(chǎn)品的制造精度和加工精度。
雖然我國模具行業(yè)發(fā)展迅速，但是仍然在很多方面沒有超車其他的發(fā)展國家，技術(shù)國家，例如老牌制造國家德國。特別是在精細方面，復(fù)雜方面還是有非常大的差距，目前這類模具還是主要依靠進口，核心技術(shù)沒有掌握。模具企業(yè)應(yīng)該認清自己的短板，爭取早日趕上國際國外水平。
1.2關(guān)鍵技術(shù)分析
1.2.1AutoCAD制圖
利用二維制圖軟件AutoCAD做出二維模具零件圖，為后面的用Delphi軟件進行模具零件參數(shù)化二維設(shè)計做好準備。
1.2.2應(yīng)用Delphi軟件進行模具零件二維設(shè)計參數(shù)化
應(yīng)用Delphi軟件進行參數(shù)化設(shè)計，所有預(yù)期的研究結(jié)果以及數(shù)據(jù)都要通過Delphi軟件來得出，然后對結(jié)果數(shù)據(jù)進行分析，得出最終的結(jié)論，來支持研究。
本方案應(yīng)用Delphi技術(shù)，設(shè)計完成翻邊模具設(shè)計及輔助設(shè)計軟件開發(fā)。該軟件能夠
實現(xiàn)以下功能：
（1）首先進行工藝分析，確定加工的方案和方法，計算零件的尺寸，最后繪制工藝圖；
（2）對過程加工力進行計算然后選擇設(shè)備；
（3）對模具進行結(jié)構(gòu)設(shè)計，繪出相應(yīng)模具圖紙。
基于以上特點，因此應(yīng)用該軟件大大降低了翻邊件成型工藝及模具設(shè)計的周期，提高了生產(chǎn)效率。
Delphi的應(yīng)用過程：
1. 確定結(jié)構(gòu)：對零件進行分析，畫出其二維圖紙，找出原始驅(qū)動尺寸，找出其他尺寸和驅(qū)動尺寸的關(guān)系，盡量讓其標準化。
2.寫程序，運行：對驅(qū)動尺寸進行原始尺寸輸入，編寫關(guān)于零件的輪廓，然后是中心線，點畫線的配合，編寫拋面線，最后進行標注方面的工作。
通過Deliphi控制CAD進行零件圖、裝配圖的繪制、輸出是本程序的特色也是本程序的難點，圖形的表示方法采用了參數(shù)化表示方法，利用參數(shù)求解圖形的關(guān)鍵點，進行圖形繪制。
第二章 零件工藝分析與模具設(shè)計
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.查詢資料進行標注
尺寸的偏差值為,，可以按照“入體原則”進行設(shè)計和標注。
這個零件是簡單的墊片，屬于沖裁件，而且因為零件較小，屬于中心對稱零件，簡單不復(fù)雜，所以是普通沖裁件。
2.2沖壓方案設(shè)計與選擇
2.2.1 工藝方案的設(shè)計
現(xiàn)確定以下方案：
方案一是單工序沖裁，先落料再沖孔。
方案二是復(fù)合沖裁，落料沖孔同時完成 。
方案三是級進沖裁，先沖孔再落料。
2.2.2工藝方案的選擇
生產(chǎn)類型是大批量生產(chǎn)，單工序模生產(chǎn)效率太低，故淘汰，復(fù)合模和級進模符合要求，兩者相比復(fù)合模有更好的加工精度和形狀精度，復(fù)合模更適合，所以采用復(fù)合沖壓。
2.3沖裁工序工藝設(shè)計與計算
2.3.1沖裁刃口尺寸計算
采用查表法確定Zmin=0.132mm以及Zmax=0.240mm。
1 公差尺寸確定和計算
該零件沒有設(shè)置公差，按照IT10進行計算，沖裁模具按照精度IT6~IT7制造。
表2-1 模具公差等級與沖裁件公差等級的關(guān)系
沖模制造公差等級
材料厚度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 凸、凹模
因為是普通沖裁模具，凸模與凹模進行分別加工，有利于成批制造。
（1）落料
（2-1）
（2-2）
（2）沖孔
設(shè)所沖的孔的尺寸為
（2-3）
（2-4）
式中：—磨損系數(shù)， 的值普遍在0.5～1之間。
因為采用分別加工，所以應(yīng)該滿足：
（2-5）
如果出現(xiàn)
這種情況，則按照下列式子進行計算
（2-6）
（2-7）
3計算
（1）落料
計算間隙：
， 根據(jù)計算結(jié)果可知，滿足條件。
帶入數(shù)得：
（2）沖孔
查表得
校核間隙：
，故符合條件。
代入上述沖孔公式，得：
2.3.2兩種力的計算
1沖裁力
（2-8）
取K為1.3 代入公式得
F=F沖孔+F落料=251.1KN
2 卸料力、推件力計算
（1）卸料力
卸料力的計算公式為
（2-9）
（2）推件力
（2-10）
（2-11）
,
t=2mm，h=6mm，則
mm
故推料力：
卸料力：
（2-12）
因為，按照選擇原則，公稱壓力400KN的開式壓力機最合適。
（3） 總的沖壓力為
這里選擇J21S-40A壓力機，查得其主要參數(shù)如下。
公稱壓力：400KN，最大閉合高度：220mm，閉合高度調(diào)節(jié)量：80mm，工作臺尺寸：480×710mm，工作臺孔尺寸：直徑280mm，模柄孔尺寸：50×70mm[12]
2．4凸凹模固定
2.4.1凹模固定
采用臺階式刃口結(jié)構(gòu)
圖 2-2 臺階式刃口結(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凸模的固定形式
選用臺肩式的固定凸模最為適合。
采用彈性卸料板，凸模長度公式：
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)長,B,H,R,D,M。
圖3-1 模具基本信息圖
從二維零件圖中，找出零件驅(qū)動尺寸數(shù)。
圖3-2 零件驅(qū)動尺寸數(shù)截圖
3.2 定義驅(qū)動尺寸
在三維圖中定義驅(qū)動尺寸的先后順序，再到二維圖中找出與三維圖中對應(yīng)的尺寸。
圖3-3 驅(qū)動尺寸對應(yīng)位置
3.3 重新定義尺寸
按照長為L,寬為B，高為H，直徑為D，半徑為R，以及M的規(guī)則，將原來尺寸重命名，如圖所示。
圖3-4 各零件尺寸重命名
3.4 輸入尺寸
原來零件圖尺寸的值輸入表中，使之一一對應(yīng)。
圖3-5 零件尺寸值
第四章 二維參數(shù)化設(shè)計
4.1標坐標，確定位置關(guān)系
以頂板為例
1. 設(shè)最下面線與中心線的交點為（X0，Y0），把每個點的橫坐標設(shè)置成X1,X2,X3,X4,X5,X6,X7;縱坐標設(shè)置成Y1,Y2,Y3。把每個點用坐標表示出來。將需填充的區(qū)域用C1,C2表示。
4.2定義驅(qū)動尺寸
D1,H1,D2,H2,D3與Excel表中順序一致
詳細編程內(nèi)容見附錄一
橫坐標與驅(qū)動尺寸和X0之間的關(guān)系通過編程定義
詳細編程內(nèi)容見附錄一
縱坐標與驅(qū)動尺寸和Y0之間的關(guān)系：
Y1:=Y0;
Y2:=Y0+H1*Scale;
Y3:=Y0+H1*Scale+H2*Scale;
4.3畫填充區(qū)域，并打剖面線
詳細編程內(nèi)容見附錄一
4.4繪制除填充區(qū)域的其他部分
詳細編程內(nèi)容見附錄一
4.5標注
詳細編程內(nèi)容見附錄一
4.6繪制中心線
詳細編程內(nèi)容見附錄一
4.7粗糙度及技術(shù)要求
Addtz(6.3); ////其余
圖4-1 頂板效果圖
詳細編程內(nèi)容詳見附錄一
繪制填充區(qū)域以及剖面線
編程內(nèi)容詳見附錄一
1.標注
編程內(nèi)容詳見附錄一
圖4-2 下模座Delphi程序圖
圖4-3 下模座Delphi程序驅(qū)動零件圖
第五章 系統(tǒng)演示
（1） 首先開始運行程序，初始界面如下
圖5-1 Delphi程序初始界面
（2） 選擇落料沖孔程序 “LLCK”
圖5-2 落料沖孔選擇界面
（3）進入模具輔助設(shè)計系統(tǒng)；
圖5-3 模具輔助設(shè)計系統(tǒng)界面
（4）進入程序界面，點擊與零件相同的序號，運行。
圖5-4 程序界面
（4） 找到左側(cè)零件，單擊，確定無誤后，點擊二維按鈕。
圖5-5 輸入驅(qū)動尺寸數(shù)值
（6）重新打開CAD，就會出現(xiàn)零件圖。
圖5-6 二維零件效果圖
第六章 結(jié) 論
在這次畢業(yè)設(shè)計過程中，通過指導(dǎo)老師殷老師的耐心指導(dǎo)，完成這套墊片落料沖孔工藝及輔助設(shè)計軟件的開發(fā)。
首先，完成落料沖孔件成型工藝分析、計算。根據(jù)墊片的成型特點，我們查閱了大量的國內(nèi)外典籍、論文，匯總了眾多的工藝計算方法，加以比較取舍，選擇最佳的工藝方案進行工藝計算。
然后完成簡單墊片的工藝分析和模具設(shè)計，繪制模具的裝配圖以及零件圖。
最后是下模二維輔助設(shè)計軟件開發(fā)，自動進行墊片落料沖孔成型工藝分析、模具設(shè)計和輸出二維圖形。實現(xiàn)了軟件輔助設(shè)計落料沖孔件模具的全過程，使落料沖孔模具設(shè)計簡便化，不用重復(fù)同樣零件不同大小的反復(fù)設(shè)計。通過輸出圖形程序的編寫，使我加深了對Delphi的認識，掌握了另外一種科學(xué)有效的仿真成型系統(tǒng)的運用。
參考文獻
[1].雷新宇，董臻主編．CAD技術(shù)與應(yīng)用—CAD技術(shù)的全面分析與實踐[M]．沈陽：遼寧科學(xué)技術(shù)出版社．1997.9
[2].雷新宇，董臻主編．CAD技術(shù)與應(yīng)用—CAD技術(shù)的全面分析與實踐[M]．沈陽：遼寧科學(xué)技術(shù)出版社．1997.9
[3]. 李大鑫,張秀棉. 模具技術(shù)現(xiàn)狀與發(fā)展趨勢綜述[J]模具制造, 2005,(02).
[4].趙昌盛 ,朱邦全. 我國模具材料的應(yīng)用發(fā)展[J]模具制造, 2004,(11).
[5].盧險峰編著,沖壓工藝模具學(xué),北京：機械工業(yè)出版社，1998
[6].姜奎華主編,沖壓工藝與模具設(shè)計,北京：機械工業(yè)出版社，1998
[7].丁松聚主編,冷沖模設(shè)計(第2版),北京：機械工業(yè)出版社，2001
[8].吳詩惇主編,沖壓工藝學(xué),西安：西北工業(yè)大學(xué)出版社，1987
[9].肖景容，周士能，肖祥芷編,板料沖壓,武漢：華中工學(xué)院出版社，1986
[10].萬戰(zhàn)勝編,沖壓模具設(shè)計,北京：中國鐵道出版社，1983
[11]..翁其金主編,沖壓工藝與沖模設(shè)計,北京：機械工業(yè)出版社，1999
[12].李碩本，李春峰，郭斌等編著,沖壓工藝理論與新技術(shù),北京：機械工業(yè)出版社，2002
[13].肖祥芷，王孝培主編,中國模具設(shè)計大典(第3卷)沖壓模具設(shè)計,南昌：江西科學(xué)技術(shù)出版社，2003
[14].王孝培主編,沖壓手冊(第2版),北京：機械工業(yè)出版社，1995
[15].邱永成編著,多工位級進模設(shè)計,北京：國防工業(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
謝 辭
白駒過隙，似水流年。來不及感嘆，兩年就這樣來到終點。因為疫情，在學(xué)校的時間也變成奢侈，仿佛來不及道別。兩年里，XXXX學(xué)院工程系的老師們給予了我諸多教誨，向各位老師表示由衷感謝。感謝兩年來老師的栽培，使得我掌握和運用專業(yè)知識，并在設(shè)計中得以體現(xiàn)，順利完成畢業(yè)設(shè)計。
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 粗實線 2、中心線 3、細實線 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 粗實線 2、中心線 3、細實線 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），把每個點的橫坐標設(shè)置成X1,X2,X3,X4,X5,X6,X7，X8,X9,X10,X11,X12,X13,X14,X15,X16,X17,X18,X19,X20,X21;縱坐標設(shè)置成Y1,Y2,Y3,Y4,Y5,Y6,Y7,Y8,Y9,Y10,Y11,Y12,Y13,Y14,Y15,Y16,Y17,Y18,Y19,Y20,Y21,Y22。把每個點用坐標表示出來。將需填充的區(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ū)動尺寸
將驅(qū)動尺寸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);
橫坐標與X0和驅(qū)動尺寸的關(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;
縱坐標與Y0和驅(qū)動尺寸的關(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 粗實線 2、中心線 3、細實線 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);/////尺寸標注
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);/////圓的尺寸標注
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);///圓弧的標注
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); ////其余
收藏