0%

DOS命令岁随着DOS的远去,大家都基本记不起他了。甚至很多天天捧着电脑办公的人连DOS是什么都不知道了…..但是就在当下的WIN10年代,系统中依然保持有CMD命令终端可以使用。你会快速的批量复制、移动文件?也许你会说:“快捷键啊,快速的CTRL+CCTRL+V”,如果只是这样,那么这里会教你另一种高效的方法。

阅读全文 »

DHAC技术开发莫金:

提供图纸要求按照图纸设计新刀,更改刀夹式。

更新设计图,周期35天

刀具返修:

大端刀具干涉,反倒角处没有足够的避空量

6C1产品

大端粗精镗孔

小端粗精镗孔

刀具样式

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
Attribute VB_Name = "模块1"
Sub star()
t = Timer '开始的时间
Sheets("list").Activate '激活表格
x = Cells.Columns.Count '计算表格的总列数
y = Cells.Rows.Count '计算表格的总行数
Cells.ClearFormats
[a6].Resize(y - 6, x).ClearContents '将数据区以外的单元格内容清空
' [h3].Resize(y - 2, x - 7).ClearContents

[a1].Resize(6, 18).RowHeight = 26
[a1].Resize(6, 18).ColumnWidth = 5
Range("a1:e5, h2:t2").Select
With Selection
.HorizontalAlignment = xlCenter
.Font.Bold = True
.Font.Name = "等线"
.Font.Size = 16
End With

Range("h2:r2").Font.Color = -16776961
bt = Array("大号个数", "奇数个数", "质数个数", "落子行数", "落子列数", "首号最小", "末号最大", "首号路数", "末号路数", "胆码", "杀码")
Range("h1:t1").WrapText = True
Range("h1:t1").HorizontalAlignment = xlCenter

arz = Array(2, 3, 5, 7, 11, 13, 17, 19, 23, 29, 31)
h1 = Array(1, 2, 3, 4, 5, 6, 7)
h2 = Array(8, 9, 10, 11, 12, 13, 14)
h3 = Array(15, 16, 17, 18, 19, 20, 21)
h4 = Array(22, 23, 24, 25, 26, 27, 28)
h5 = Array(29, 30, 31, 32, 33, 34, 35)
'分别将1--35装入到7列中,以数组的方式存储
l1 = Array(1, 8, 15, 22, 29)
l2 = Array(2, 9, 16, 23, 30)
l3 = Array(3, 10, 17, 24, 31)
l4 = Array(4, 11, 18, 25, 32)
l5 = Array(5, 12, 19, 26, 33)
l6 = Array(6, 13, 20, 27, 34)
l7 = Array(7, 14, 21, 28, 35)

For x = 0 To 10
Cells(1, x + 8) = bt(x)
Next
'统计近5期的号码,将未出现的号码取出来,并装进数组ar0中。
'按1到35的顺序检查,不存在的取出来。
'这里用到了重定义数组ReDim ar0(1 to 2) 以及 ReDim Preserve ar0(1 To y)。
'因为开始并不知道符合条件的个数,在不清楚数组个数的情况下,用这个办法解决。

ReDim ar0(1 To 2)
y = 1
For x = 1 To 35
n = 0
For i = 1 To 5
For j = 1 To 5
If Cells(i, j) = x Then
n = n + 1
End If
Next
Next
If n = 0 Then
ar0(y) = x
y = y + 1
ReDim Preserve ar0(1 To y)
Else
End If
5 Next
'数组中最后一个会出现一个空值,将其去掉
If ar0(y) = "" Then ReDim Preserve ar0(1 To y - 1)



'统计近5期的号码,将存在的号码取出来,并装进数组ar0中。
'按1到35的顺序检查,存在的取出来。
'这里用到了重定义数组ReDim ar0(1 to 2) 以及 ReDim Preserve ar0(1 To y)。
'因为开始并不知道符合条件的个数,在不清楚数组个数的情况下,用这个办法解决。


ReDim ar1(1 To 2)
y = 1
For x = 1 To 35
For i = 1 To 5
For j = 1 To 5
If Cells(i, j) = x Then
If y = 1 Then
ar1(y) = Cells(i, j)
y = y + 1
GoTo 15
Else
If Cells(i, j) <> ar1(y - 1) Then
ar1(y) = Cells(i, j)
y = y + 1
ReDim Preserve ar1(1 To y)
GoTo 15
Else
y = y
End If
End If
End If
Next
Next
15 Next
'数组中最后一个会出现一个空值,将其去掉
If ar1(y) = "" Then ReDim Preserve ar1(1 To y - 1)


'将数组ar0中的数据取出,并将其按数值大小分成5行7列
'并写入到单元格cells(8,1):cells(12,7)

For Z = 1 To UBound(ar0)
If ar0(Z) <= 7 Then
x = 8
ElseIf ar0(Z) <= 14 Then
x = 9
ElseIf ar0(Z) <= 21 Then
x = 10
ElseIf ar0(Z) <= 28 Then
x = 11
ElseIf ar0(Z) <= 35 Then
x = 12
End If
y = 1
20 If Cells(x, y) = 0 Then
Cells(x, y) = ar0(Z)
Else
y = y + 1
GoTo 20
End If
Next

'将数组ar1中的数据取出,并将其按数值大小分成5行7列
'将数组ar0中的数据取出,并将其按数值大小分成5行7列
'并写入到单元格cells(13,1):cells(17,7)

For Z = 1 To UBound(ar1)
If ar1(Z) <= 7 Then
x = 14
ElseIf ar1(Z) <= 14 Then
x = 15
ElseIf ar1(Z) <= 21 Then
x = 16
ElseIf ar1(Z) <= 28 Then
x = 17
ElseIf ar1(Z) <= 35 Then
x = 18
End If
y = 1
25 If Cells(x, y) = 0 Then
Cells(x, y) = ar1(Z)
Else
y = y + 1
GoTo 25
End If
Next

'将数组ar1数据按照组合方式组合成5个一组的号码,并存放于数组ar2
x = UBound(ar1)
x = x * (x - 1) * (x - 2) * (x - 3) * (x - 4) / 120
y = UBound(ar0)
y = y * (y - 1) * (y - 2) * (y - 3) * (y - 4) / 120
x = x + y
ReDim ar2(1 To x, 1 To 5)
x = 1
For i1 = 1 To UBound(ar1) - 4
For i2 = i1 + 1 To UBound(ar1) - 3
For i3 = i2 + 1 To UBound(ar1) - 2
For i4 = i3 + 1 To UBound(ar1) - 1
For i5 = i4 + 1 To UBound(ar1)
ar2(x, 1) = ar1(i1)
ar2(x, 2) = ar1(i2)
ar2(x, 3) = ar1(i3)
ar2(x, 4) = ar1(i4)
ar2(x, 5) = ar1(i5)
x = x + 1
Next
Next
Next
Next
Next

For i1 = 1 To UBound(ar0) - 4
For i2 = i1 + 1 To UBound(ar0) - 3
For i3 = i2 + 1 To UBound(ar0) - 2
For i4 = i3 + 1 To UBound(ar0) - 1
For i5 = i4 + 1 To UBound(ar0)
ar2(x, 1) = ar0(i1)
ar2(x, 2) = ar0(i2)
ar2(x, 3) = ar0(i3)
ar2(x, 4) = ar0(i4)
ar2(x, 5) = ar0(i5)
x = x + 1
Next
Next
Next
Next
Next

'下面对未出现的号码进行整理筛选
'将数组ar0中的数据按照组合方式组合成5个一组的号码,并存放于数组ar2
' x = UBound(ar0)
' x = x * (x - 1) * (x - 2) * (x - 3) * (x - 4) / 120
' y = UBound(ar2)
' Z = x + y
' ReDim ar2(1 To Z, 1 To 5)
' x = y + 1
' For i1 = 1 To UBound(ar0) - 4
' For i2 = i1 + 1 To UBound(ar0) - 3
' For i3 = i2 + 1 To UBound(ar0) - 2
' For i4 = i3 + 1 To UBound(ar0) - 1
' For i5 = i4 + 1 To UBound(ar0)
' ar2(x, 1) = ar0(i1)
' ar2(x, 2) = ar0(i2)
' ar2(x, 3) = ar0(i3)
' ar2(x, 4) = ar0(i4)
' ar2(x, 5) = ar0(i5)
' x = x + 1
' Next
' Next
' Next
' Next
' Next


j = 10
For x = 1 To UBound(ar2)
If Cells(2, 17) = "" Then GoTo 40
n = 0
For y = 1 To 5
If Cells(2, 17) = ar2(x, y) Then n = n + 1
Next
If n = 0 Then GoTo 100
40
If Cells(2, 18) = "" Then GoTo 45
n = 0
For y = 1 To 5
If Cells(2, 18) = ar2(x, y) Then n = n + 1
Next
If n > 0 Then GoTo 100


45 '判断首号码,条件:最小值、路数
If Cells(2, 13) = "" And Cells(2, 15) = "" Then GoTo 50 '若条件为空,则放弃判断跳转到下一个条件判断
If ar2(x, 1) < Cells(2, 13).Value And ar2(x, 1) Mod 3 <> Cells(2, 15) Then GoTo 100 '若条件判断不成立,则跳转到下一组号码

50 '判断末号码,条件:最大值、路数
If Cells(2, 14) = "" Or Cells(2, 16) = "" Then GoTo 55
If ar2(x, 5) > Cells(2, 14) Or ar2(x, 5) Mod 3 <> Cells(2, 16) Then GoTo 100

55 '判断大号的个数。统计大于18的数字个数
n = 0
For y = 1 To 5
If Cells(2, 8) = "" Then GoTo 60
If ar2(x, y) > 18 Then n = n + 1
Next
If n <> Cells(2, 8).Value Then GoTo 100


60 '统计奇数的个数
n = 0
If Cells(2, 9) = "" Then GoTo 65
For y = 1 To 5
If ar2(x, y) Mod 2 = 1 Then n = n + 1
Next
If n <> Cells(2, 9).Value Then GoTo 100

65 '统计质数的个数
n = 0
For y = 1 To 5
If Cells(2, 10) = "" Then GoTo 70
For Each i In arz
If i = ar2(x, y) Then n = n + 1
Next
Next
If n <> Cells(2, 10).Value Then GoTo 100


70 '统计号码落子在第1行的个数
n1 = 0
For y = 1 To 5
For Each i In h1
If i = ar2(x, y) Then n1 = n1 + 1
Next
Next

71 '统计号码落子在第2行的个数
n2 = 0
For y = 1 To 5
For Each i In h2
If i = ar2(x, y) Then n2 = n2 + 1
Next
Next

73 '统计号码落子在第3行的个数
n3 = 0
For y = 1 To 5
For Each i In h3
If i = ar2(x, y) Then n3 = n3 + 1
Next
Next

74 '统计号码落子在第4行的个数
n4 = 0
For y = 1 To 5
For Each i In h4
If i = ar2(x, y) Then n4 = n4 + 1
Next
Next

75 '统计号码落子在第5行的个数
n5 = 0
For y = 1 To 5
For Each i In h5
If i = ar2(x, y) Then n5 = n5 + 1
Next
Next

If n1 > 0 Then n1 = 1
If n2 > 0 Then n2 = 1
If n3 > 0 Then n3 = 1
If n4 > 0 Then n4 = 1
If n5 > 0 Then n5 = 1

76 '统计落子的行数
If n1 + n2 + n3 + n4 + n5 <> Cells(2, 11) Then GoTo 100

81 '统计号码落子在第1列的个数
n1 = 0
For y = 1 To 5
For Each i In l1
If i = ar2(x, y) Then n1 = n1 + 1
Next
Next
If n1 > 2 Then GoTo 100

82 '统计号码落子在第2列的个数
n2 = 0
For y = 1 To 5
For Each i In l2
If i = ar2(x, y) Then n2 = n2 + 1
Next
Next
If n2 > 2 Then GoTo 100

83 '统计号码落子在第3列的个数
n3 = 0
For y = 1 To 5
For Each i In l3
If i = ar2(x, y) Then n3 = n3 + 1
Next
Next
If n3 > 2 Then GoTo 100

84 '统计号码落子在第4列的个数
n4 = 0
For y = 1 To 5
For Each i In l4
If i = ar2(x, y) Then n4 = n4 + 1
Next
Next
If n4 > 2 Then GoTo 100

85 '统计号码落子在第5列的个数
n5 = 0
For y = 1 To 5
For Each i In l5
If i = ar2(x, y) Then n5 = n5 + 1
Next
Next
If n5 > 2 Then GoTo 100

86 '统计号码落子在第6列的个数
n6 = 0
For y = 1 To 5
For Each i In l6
If i = ar2(x, y) Then n6 = n6 + 1
Next
Next
If n6 > 2 Then GoTo 100


87 '统计号码落子在第7列的个数
n7 = 0
For y = 1 To 5
For Each i In l7
If i = ar2(x, y) Then n7 = n7 + 1
Next
Next
If n7 > 2 Then GoTo 100
88
If n1 > 0 Then n1 = 1
If n2 > 0 Then n2 = 1
If n3 > 0 Then n3 = 1
If n4 > 0 Then n4 = 1
If n5 > 0 Then n5 = 1
If n6 > 0 Then n6 = 1
If n7 > 0 Then n7 = 1
If n1 + n2 + n3 + n4 + n5 + n6 + n7 <> Cells(2, 12) Then GoTo 100


For Z = 1 To 5
Cells(j, Z + 7) = ar2(x, Z)
Next
j = j + 1


100 Next

If j > 10 Then Range("h10:l" & j - 1).Select

t = Timer - t
End Sub

加工图

!

左端加工: 进、排气相同,刀具相同。

钻中心孔:D13.2

扩孔:D21.1

螺纹:M22*1

钻销孔:D3.05-D3.3

铰销孔:D3.5

右端加工:进、排气不同

进气凸轮:

钻中心孔:

铰孔:

排气凸轮:

钻中心孔:

铰孔:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
按照形状可以分为:
- 螺旋槽丝锥;
- 刃倾角丝锥;
- 直槽丝锥;
- 管用螺纹丝锥等

按照使用环境分:
- 手用丝锥
- 机用丝锥

按照规格标准分:
- 公制;
- 美制;
- 英制

丝锥分类

  • 切削丝锥
    • 直槽丝锥:用于通孔及盲孔的加工,铁屑存在于丝锥槽中,加工的螺纹质量不高,更常用于短屑材料的加工,如灰铸铁等。
    • 螺旋槽丝锥:用于孔深小于等于3D的盲孔加工,铁屑顺着螺旋槽排出,螺纹表面质量高。
      • 10~20°螺旋角丝锥可以加工螺纹深度小于等于2D;
      • 28~40°螺旋角丝锥可以加工螺纹深度小于等于3D;
      • 50°螺旋角丝锥可以加工螺纹深度小于等于3.5D(特殊工况4D)。
      • 某些时候(硬材料,大牙距等),为了取得更好的齿尖强度,会选用螺旋槽丝锥加工通孔。
    • 螺尖丝锥:通常只能用于通孔,长径比可达3D~3.5D,铁屑向下排出,切削扭矩小,被加工的螺纹表面质量高,也被称为刃倾角丝锥或先端丝锥。切削时,需要保证全部切削部分攻穿,否则会出现崩齿。
  • 挤压丝锥
1
可用于通孔及盲孔的加工,通过材料塑性变形形成牙型,只能用于加工塑性材料。

其主要特点:

  • 利用工件的塑性变形加工螺纹;

  • 丝锥的截面积大,强度高,不易折断;

  • 切削速度可比切削丝锥高,生产率亦相应提高;

  • 由于是冷挤压加工,加工后的螺纹表面机械性能提高,表面粗糙度高,螺纹强度、耐磨性、耐腐蚀性提高;

  • 无屑加工。

其不足是:

  • 只能用于加工塑性材料;

  • 制造成本高。

有两种结构形式:

  • 无油槽挤压丝锥只用于盲孔立加的工况;

  • 带油槽挤压丝锥适用于所有工况,但通常小直径丝锥因制造难度不设计油槽。

丝锥的结构参数

  • 外型尺寸

    • 总长:需注意某些需要特殊加长的工况
    • 槽长:通上
    • 柄方:目前常见柄方标准有DIN(371/374/376), ANSI, JIS, ISO等,选用时需注意和攻丝刀柄的匹配关系
  • 螺纹部分

    • 精度:由具体的螺纹标准来选择,米制螺纹ISO1/2/3级等同于国标H1/2/3级,但需注意制造商内控标准。
    • 切削锥:丝锥的切削部分,已形成部分固定模式,通常切削锥越长,丝锥的寿命越好。
    • 校正齿:起辅助与校正的作用,特别在攻丝系统不稳定的工况下,校正齿越多,攻丝阻力越大。
  • 排屑槽

    • 槽型:影响铁屑成型及排出,通常为各制造商内部机密。
    • 前角、后角:增大时丝锥变锋利,可明显降低切削阻力,但齿尖强度及稳定性下降,后角即铲磨后角。
    • 槽数:槽数增加切削刃数增加,可有效提高丝锥寿命;但会压缩排屑空间,于排屑不利。
  • 丝锥的材料与涂层

    • 丝锥的材料
      • 工具钢:多用于手用切牙丝锥,目前已经不常见。
      • 不含钴高速钢:目前大范围用作丝锥材料,如M2(W6Mo5Cr4V2, 6542),M3等,标记代号为HSS。
      • 含钴高速钢:目前大范围用作丝锥材料,如M35,M42等,标记代号为HSS-E。
      • 粉末冶金高速钢:用作高性能丝锥材料,性能较上两者大幅提升,各家厂家的命名方式也各有不同,标记代号为HSS-E-PM。
      • 硬质合金材料:通常选用超细颗粒,韧性好的牌号,主要用于制造直槽丝锥加工短屑材料,如灰铸铁,高硅铝等。
    • 丝锥的涂层。丝锥的涂层对丝锥性能的影响非常明显,不过目前多是制造商和涂层厂家单独配合研究专用涂层。
      • 蒸汽氧化:丝锥放入高温水蒸气中,使之表面形成一层氧化膜,对冷却液吸附性好,能起到减小摩擦的作用,同时防止丝锥与被切削材料间的粘结,适用于加工软钢。
      • 氮化处理:丝锥表面渗氮,形成表面硬化层,适合加工铸铁,铸铝等对刀具磨损大的材料。
      • 蒸汽+氮化:综合以上两者的优点。
      • TiN:金黄色涂层,有良好的涂层硬度及润滑性,并且涂层附着性能好,适用于加工大部分材料。
      • TiCN:蓝灰色涂层,硬度约为3000HV,耐热性达400°C。
      • TiN+TiCN:深黄色涂层,具有优良的涂层硬度及润滑性,适用于加工绝大部分材料。
      • TiAlN:蓝灰色涂层,硬度3300HV,耐热性达900°C,可用于高速加工。
      • CrN:银灰色涂层,润滑性能优越,主要用于加工有色金属。

    影响攻丝的要素

    • 攻丝设备
      • 机床:可分为立式和卧式两种加工方式,对于攻丝,立式要优于卧式加工,卧式加工外冷时要考虑冷却是否充分。
      • 攻丝刀柄:攻丝建议选用专用攻丝刀柄,机床刚性,稳定性好的优先选用同步攻丝刀柄,相反尽可能选用带有轴向/径向补偿的柔性攻丝刀柄。除小直径丝锥(<M8),尽可能选用方身驱动。
      • 冷却条件:对于攻丝,特别是挤压丝锥,对冷却液的要求是润滑>冷却;实际使用时可依据机床条件调配(使用乳化液时,建议浓度大于10%)。
    • 被加工件
      • 被加工件的材料及硬度:工件材料硬度要均匀,通常不建议用丝锥加工超过HRC42的工件。
      • 攻丝底孔:底孔结构,选择合适的钻头;底孔尺寸精度;底孔孔壁质量。
    • 加工参数
      • 转速:转速给定的依据是丝锥的种类,材料,被加工材料及硬度,攻丝设备的优劣等。通常依据丝锥制造商给定的参数选用,在下列工况下必须降低转速:
        • 机床刚性差;丝锥跳动大;冷却不充分;
        • 攻丝区域材质或硬度不均匀,如焊点;
        • 丝锥被加长,或者使用延长杆;
        • 卧加,外冷;
        • 手工操作,如台钻,摇臂钻等;
      • 进给:刚性攻丝,进给=1个螺距/转。柔性攻丝,且刀柄补偿变量足够的情况下:进给=(0.95-0.98)个螺距/转。

丝锥选用的几点提示

  • 不同精度等级丝锥的公差
  • 选用依据:不能仅根据被加工螺纹的精度等级来选择并确定丝锥的精度等级
    • 被加工工件的材质及硬度;
    • 攻丝设备(如机床条件,夹持刀柄,冷却环等);
    • 丝锥本身精度及制造误差。例如:加工6H螺纹,在钢件上加工时,可选用6H精度的丝锥;在加工灰口铸铁时,由于丝锥的中径磨损较快,螺孔的扩张量也小,因此宜选用6HX精度的丝锥,寿命会更好。

关于日系丝锥精度的说明:

  • 切削丝锥OSG使用OH精度体系,不同于ISO标准,OH精度体系将整个公差带宽度强制按从最下限开始,每0.02mm作为一个精度等级,命名为OH1,OH2,OH3等;
  • 挤压丝锥OSG使用RH精度体系,RH精度体系将整个公差带宽度强制按从最下限开始,每0.0127mm作为一个精度等级,命名为RH1,RH2,RH3等。所以在使用ISO精度丝锥替换OH精度丝锥时,不能简单认为6H就约等于OH3或者OH4级,需要经过换算确定,或者依据客户的实际情况而定。

丝锥外型尺寸

  • 目前应用最多的是DIN,ANSI,ISO,JIS等;
  • 根据客户不同加工要求或现有条件选择合适的总长,刃长及柄方尺寸;
  • 加工时的干涉情况;

丝锥选用的6个基本要素

  • 加工螺纹的类型,米制、英制、美制等;
  • 螺纹底孔的类型,通孔还是盲孔;
  • 被加工工件材料及硬度;
  • 工件完整螺纹的深度及底孔深度;
  • 工件螺纹要求的精度;
  • 丝锥的外形标准

丝锥

零件号:38930-RPY-E010

零件名:BRKT,COMPRESSOR

机加工流程:

!

ML通知书:

!

!

!

现适证明:

!

!