宏程序应用实例

冷月梧桐

宏程序之扩展应用

最近逛的必威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

盐拌番茄

对宏不是很了解，主要应用少。
- H3 H- {3 D4 g L2 Z* o7 g我发现加工中心对宏的应用比数车要更多一些。

duanyz

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

冷月梧桐

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

冷月梧桐

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

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

夜总是要来的

教学用的宏还不错！ 实际应用到加工上还需要修改下。。

不错的示范！

夜总是要来的

O1000(铣键槽通用程序)
& k& G/ X$ u3 W1 v& ~9 b
- r5 C, |" {7 \; V只需要改动#101 （长度中心距） #102（深度） #103（宽度）三个值就可以做任何的键槽
8 }1 A* h: `" C+ I6 U' s
( ^) @$ c3 n$ S7 z7 X K" q& }G17 G40 G49 G80 G90

! s( v L" |% V' K) r#120=[] (G54 X)
#121=[] (G54 Y)
, ]% j; t0 D a' V5 T#122=[] (G54 Z)

#123=[] (G55 X)
9 Y* g6 U; ]) l9 s#124=[] (G55 Y)
#125=[] (G55 Z)

G90G10L2P1 X#100 Y#101 Z#102 (G54)
G90G10L2P2 X#103 Y#104 Z#105 (G55)

G54
M06 T01
6 A! W9 f, G2 Y- h9 r5 H. qM8
M3 S1500
#101=80.4 (lenght!!)
/ E! h7 Z6 w& _7 {" _3 _! K#102=5 (depth!!)
#103=12.7 (breadth!!)

#104=30 (down speed)
#105=80 (roung speed)
#106=250 (finsih machining speed)
7 n A) N B! ~) \# G' J; ~
1 a" g# W4 }$ M6 P& E8 ` K#107=#101/2
#108=[#101/2-#103/2] (star point)
6 e4 ? V1 i! ?8 o* R#109=#103/2
2 r/ {, j# g5 w0 V u, {#110=2-#102

G00 X-#107 Y0
4 \! B5 k1 c6 _2 X7 IZ50.
G01 Z1. F1000
/ f8 }, y7 h# H3 [4 g% m1 ^. mZ-#102 F#104
6 h$ x- V$ Q% J+ K+ t" kX#107 F#105

: i8 ?) y* [% bX#108 Y0
: f* Y1 i, o rG41 G01 X#107 Y-#109 D01 F#106
* g9 j& n- L _% [% FG03 Y#109 R#109
G01 X-#107
8 x# \ T: [# p. z7 R. t# L& PG03 Y-#109 R#109
G01 X#107
G40 G01 X#108 YO D0
2 z# v4 W6 V, N3 R3 e
G00 Z200.

N20
+ y* {# J( l! i; G- [M06 T02
G17 G40 G49 G80 G90
G55
+ e {6 L4 G5 ^+ `$ j# k0 J' m8 gM8
M03 S2500
G00 X#108 Y0
Z50.
G01 Z#110 F1000
[& ?& U- o8 @, |) B. F4 ]Z-#102 F#104
. K. L7 V* M+ o( JG41 G01 X#107 Y-#109 D02 F#106
G03 Y#109 R#109
* M4 s" b3 O m1 [6 ]G01 X-#107
0 b8 j8 Z% y7 c0 G; C( W. l' d6 DG03 Y-#109 R#109
G01 X#107
G40 G01 X#108 YO D0
G00 Z200.
M09
M05
+ p4 y% U5 P* iM30
1 S+ n$ f; d5 z B Y8 a# \, [
) \# T: n$ \4 q/ k* U R+ r1 p

" ^4 t0 r) `* [8 w9 ^
( N( U1 O' f4 l; q' _ D

冷月梧桐

夜总是要来的 发表于 2013-9-21 15:49
5 a/ a5 @. v( l! k. l教学用的宏还不错！ 实际应用到加工上还需要修改下。。
' s4 d* N! Q6 z' u' u
6 ?' f6 _/ c& N- I. C6 Y不错的示范！

宏程序是活的，而且每个人的习惯都不一样。我觉得就很好用，有一个弄错了，我不会改帖子

冷月梧桐

夜总是要来的 发表于 2013-9-21 15:55
! l0 y9 `) K3 k& ?O1000(铣键槽通用程序)

; W6 [0 {/ |; ~/ q* ~4 W6 S只需要改动#101 （长度中心距） #102（深度） #103（宽度）三个值就可以做任何的 ...

& B" }0 G' K2 Q! u' i1 H9 x我笑而不语

夜总是要来的

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

0 X& v. S2 b/ `7 Q! A$ h好好笑 别停下。。。
8 d/ g" J! s0 q& }5 W6 O