同心圓墊片的落料沖孔模具設(shè)計及下模零件二維輔助設(shè)計系統(tǒng)開發(fā)含12張CAD圖

同心圓墊片的落料沖孔模具設(shè)計及下模零件二維輔助設(shè)計系統(tǒng)開發(fā)含12張CAD圖,同心圓,墊片,沖孔,模具設(shè)計,零件,二維,輔助設(shè)計,系統(tǒng),開發(fā),12,CAD 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ū)? 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); ////其余