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