宏程序应用实例

冷月梧桐

宏程序之扩展应用

最近逛的必威APP精装版下载都在讨论宏程序，那我也发一个自己编写的宏，功能简单，应用方便。言归正传，这个子程序O1920有三个功能，在主程序里调用时用变量A1,A2,A3来指定这三个功能。

G65P1920X20Y20A_W70Z-10D0Q-2R1.5F150

X，Y是第一个点的坐标

A1是X方向上的U型槽，W是第二个点的X值

A2是Y方向上的U型槽，W是第二个点的Y值

A3是铣孔的程序

Z是最终加工深度

D是开始加工的深度，类似于G83里的R

Q是每刀加工的深度，是个负值，类似于G83的Q

R是半径差，是圆弧变径与刀具半径只差，为正值

F是进给速度

详情见下图的两个U型槽和一个圆，刀具就以直径是8的立铣刀，需要加工的深度是10mm，每刀吃2mm(X方向的U型槽第一个点选用左边的，Y方向的U型槽第一个点选用上面的5.5-4=1.5,6.5-4=2.5,12-4=8)

G30G91Z0

G54G90G17G49G00X0.Y0.

S1500M03

G43H01Z10M08

G65P1920X20Y20A1W70Z-10D0Q-2R1.5F150(X-X-Y-R)

G65P1920X20Y90A2W50Z-10D0Q-2R2.5F150(X-Y-Y-R)

G65P1920X70Y50A3Z-10D0Q-2R8F150(X-Y-R)

G0Z50M09

G30G91Z0M0

M30

O1920

IF[#1EQ1]GOTO100(X-X-Y-R)

IF[#1EQ2]GOTO200(X-Y-Y-R)

IF[#1EQ3]GOTO300(X-Y-R)

M99

N100 (X-X-Y-R)

#100=#24(X)

#101=#25(Y)

#102=#23(W)

#103=#7(D)

#104=#17(Q)

#105=#26(Z)

#106=#18(R)

#107=#9(F)

#108=#100-#106

#109=#100+#106

G00X#100Y#101

N110

#103=#103+#104

G01Z#103F#107

G01Y#108

G01X#102

G03X#102Y#109R#106

G01X#100

G03X#100Y#108R#106

G01Y#101

/MO1

IF[#103EQ#105]GOTO120

GOTO110

N120

G01Z10F1500

M99

N200 (X-Y-Y-R)

#100=#24(X)

#101=#25(Y)

#102=#23(W)

#103=#7(D)

#104=#17(Q)

#105=#26(Z)

#106=#18(R)

#107=#9(F)

#108=#100-#106

#109=#100+#106

G00X#100Y#101

N210

#103=#103+#104

G01Z#103F#107

G01X#108

G01Y#102

G03X#109Y#102R#106

G01Y#101

G03X#108Y#101R#106

G01X#100

/MO1

IF[#103EQ#105]GOTO220

GOTO210

N220

G01Z10F1500

M99

N300 (X-Y-R)

#100=#24(X)

#101=#25(Y)

#103=#7(D)

#104=#17(Q)

#105=#26(Z)

#106=#18(R)

#107=#9(F)

#108=#100+#106

G00X#100Y#101

N310

#103=#103+#104

G01Z#103F#107

G01X#108

G03I-#106

G01X#100

/MO1

IF[#103EQ#105]GOTO320

GOTO310

N320

G01Z10F1500

M99

盐拌番茄

对宏不是很了解，主要应用少。
我发现加工中心对宏的应用比数车要更多一些。

duanyz

一直想学习使用宏程序，可是看到这样的程序忽然感到很纠结，太复杂了，直接用个软件来出刀路是不是更简单呢？

冷月梧桐

那你干嘛还想学宏呢？？为什么你钻孔用G81而不是用G01呢？？软件出来的修改方便吗？？宏的精髓是简化编程，我会的不过是皮毛

冷月梧桐

duanyz 发表于 2013-9-19 16:55
一直想学习使用宏程序，可是看到这样的程序忽然感到很纠结，太复杂了，直接用个软件来出刀路是不是更简单呢 ...

那你干嘛还想学宏呢？？为什么你钻孔用G81而不是用G01呢？？软件出来的修改方便吗？？宏的精髓是简化编程，我会的不过是皮毛

夜总是要来的

教学用的宏还不错！ 实际应用到加工上还需要修改下。。
* R, \( z G; X
不错的示范！

夜总是要来的

O1000(铣键槽通用程序)
! o" U& y) _/ P" K' M7 L, A
5 _1 f/ S- G2 v9 h. r1 P只需要改动#101 （长度中心距） #102（深度） #103（宽度）三个值就可以做任何的键槽

$ [8 a6 i6 B8 }& n7 S4 R+ jG17 G40 G49 G80 G90
! c1 Q( f& X: ^! e$ v! e7 y
2 Y5 E6 p, j: h4 i6 b#120=[] (G54 X)
#121=[] (G54 Y)
#122=[] (G54 Z)

#123=[] (G55 X)
#124=[] (G55 Y)
#125=[] (G55 Z)

G90G10L2P1 X#100 Y#101 Z#102 (G54)
G90G10L2P2 X#103 Y#104 Z#105 (G55)
( u3 `; f5 c3 Q5 W) J
G54
) i8 U7 y8 T7 z% xM06 T01
5 u* g0 f' B, b4 N5 {/ L& f# VM8
M3 S1500
#101=80.4 (lenght!!)
#102=5 (depth!!)
3 T) M* \2 K8 e4 k: A#103=12.7 (breadth!!)
3 s4 [6 t! p' T; i5 A8 x
H3 x, v$ d, f# ]9 D. Z#104=30 (down speed)
#105=80 (roung speed)
#106=250 (finsih machining speed)
/ G' b1 d/ F# V# x' A
+ B8 E; r1 ?6 A& ^#107=#101/2
2 Q% ]- Y- _% d. l8 U' K#108=[#101/2-#103/2] (star point)
#109=#103/2
#110=2-#102

G00 X-#107 Y0
Z50.
- l& C1 k) f5 b. P$ J& L, t9 dG01 Z1. F1000
Z-#102 F#104
X#107 F#105

5 Y. h8 u' V/ `. `X#108 Y0
, |' j' X# q% ]* aG41 G01 X#107 Y-#109 D01 F#106
G03 Y#109 R#109
% u k |4 D/ q, s" S mG01 X-#107
G03 Y-#109 R#109
5 d; p3 Z l5 ?6 ZG01 X#107
G40 G01 X#108 YO D0

G00 Z200.

: e4 a8 } z) q3 h6 i/ iN20
M06 T02
5 _( w6 P7 c, l3 c: ~$ GG17 G40 G49 G80 G90
7 v$ a. D1 Z. h( YG55
: r K! T/ E' B8 uM8
M03 S2500
G00 X#108 Y0
7 Q4 p& L! J5 x2 C3 yZ50.
G01 Z#110 F1000
Z-#102 F#104
2 a# t* \7 _0 A h1 b+ h3 K# fG41 G01 X#107 Y-#109 D02 F#106
0 M0 q) s$ ^ C: s" HG03 Y#109 R#109
3 g) Z3 Z6 C Z1 e% ]$ T; aG01 X-#107
0 W8 n+ i/ Q! j, p5 A" UG03 Y-#109 R#109
G01 X#107
G40 G01 X#108 YO D0
G00 Z200.
0 @9 H! c, Q( P0 J/ cM09
M05
; d8 K) ~; l% l9 P) OM30


8 T/ j. G& L' g% P# h/ _
% q- l4 b9 f' U: H5 k
1 W! d$ W: h4 ? [- }8 O
! T9 C, w C# x
" I2 [( u8 Y( {7 H* {" u9 M
% m: Q4 I0 c' q

冷月梧桐

夜总是要来的 发表于 2013-9-21 15:49
6 h$ O# C W+ ]) T' o教学用的宏还不错！ 实际应用到加工上还需要修改下。。
7 ]7 z- a6 W% y7 V3 t6 I3 b
不错的示范！

, N' F( |- j7 P宏程序是活的，而且每个人的习惯都不一样。我觉得就很好用，有一个弄错了，我不会改帖子

冷月梧桐

夜总是要来的 发表于 2013-9-21 15:55
O1000(铣键槽通用程序)

" d3 a* S3 Y7 g: S: R# o2 Z; P7 x- F只需要改动#101 （长度中心距） #102（深度） #103（宽度）三个值就可以做任何的 ...

0 n' x( H% V" ^5 M) a* |' e我笑而不语

夜总是要来的

冷月梧桐 发表于 2013-9-21 21:36
我笑而不语

好好笑 别停下。。。
5 w+ i1 J- W( k9 g