圆周孔的加工以及智能跳过程序！大家来讨论！

lukexc · 发表于 2014-3-27 18:50:17

好久没来必威APP精装版下载了！好想念！

lukexc · 发表于 2014-3-27 18:51:55

先描述下问题，这个问题是个网友在贴吧发帖时候问的！
问题：宏程序加工等分孔,比如10孔的话等分成10个孔加工,可问题出现了.就是我想在这10孔中不加工第6,8个孔应该怎么修改？
不忽悠大家！为了和谐没发链接！

lukexc · 发表于 2014-3-27 18:55:54

先发发我给修改的程序吧！
主程序:

G40G17G49G94G0G90G21G80
. t+ B# O2 w7 U
G91G28Z0.08 o6 _) O2 n2 k% H' R0 K
T01M06
2 Z9 V! {7 N6 i, C/ `
M13S2000. ~$ s1 c, L1 q
G54G90G0X0.0Y0.0
$ G- \; y+ v/ R) u9 `
G43Z200.0H01& k9 o) _# X5 \) b
Z30.0
; ]$ |! a* }8 P1 }' J& j
Z1.00 L; r3 K+ x3 q6 K, D
G65P1000X0.Y0.A20.0R100.0E237910111720D4$ Z9 {* v) C9 w" V
G0Z30.03 i+ b K8 {) Y4 D! M* B7 t4 p" Y
G28X0.Y0.Z0.0
" }5 d" {6 \' Q9 s% W
M30

复制代码

子程序：

O1000. Y+ F5 u) _* B: Z6 B% `
IF[#24EQ#0]GOTO999% _+ q2 k: B7 s7 @4 L& _
IF[#25EQ#0]GOTO999
' `0 h j# F' u2 \/ W2 L
IF[#18EQ#0]GOTO999
5 R' y( {; A5 b8 t3 g# K# X
IF[#1EQ#0]GOTO999 B M) l0 e, j
IF[#8EQ#0]THEN#8=0
$ [7 @) G5 z' j( H. h* y
IF[#7EQ#0]THEN#7=01 C: d m( U! Q4 }, T
IF[#8EQ0]GOTO20
) _6 } b9 }& O% K5 k
IF[#7EQ0]GOTO107 {: i1 t: S& {+ w0 u. E. m
#2=100
5 p9 H! D& L, z' Y# q# h
N11#[#2]=#8-[FIX[#8/100]]*100
6 \7 K! M" V. @- u3 V/ `+ W
#2=#2+14 G; J- a3 r4 x. v
#8=FIX[#8/100]
a4 J" [) C+ v" R/ [/ S
#7=#7-1: A2 v q1 T) @' F- T8 h/ e
IF[#7GT0]GOTO11! B# O/ ^ [6 |: ?* y
N10#[#2]=#8-[FIX[#8/10]]*10
& S8 M6 m, n" V s' \
#2=#2+16 X. {, P; w1 V" h7 }$ a. B
#8=FIX[#8/10]& o0 L& G; e; d/ f9 \
IF[#8GT0]GOTO101 I' h1 U6 h( Z' A4 m6 I0 B' m
N20#33=360.0/#16 k; t9 Z/ L. w2 [- P- [5 H& P
#32=0.0
; G) g4 E, ]5 D2 r c
#200=100
7 h* Y" n& Z, p- s
WHILE[#32LE360]DO3
( n" o1 S- l8 D* J0 R+ k
N30IF[#[#200]EQ[#32/#33+1]]GOTO40
; d+ I, {. x- N' P9 x! O) |
#200=#200+1
% u% m$ K1 P- P9 X) n' ]1 c
IF[#200LE#2]GOTO30
: n/ T# i& d$ I% P& E% Q
#30=#24+#18*COS[#32]% _* m* B$ a( r) s, \
#31=#25+#18*SIN[#32]
1 \% S8 o; d+ n g
G1X#30Y#31 F1000( q, T2 q2 ^+ k( O# h; X: z8 n c& \
G1Z-30.05 d @7 n8 u9 E4 Q& `5 c' u% f
Z1.0. y' N1 _2 ~ e6 c; w7 [
N40#200=100
1 [% k: A3 I& S1 W7 l
#32=#32+#33: U: I0 |7 H; Y1 n
END39 {6 X2 r" r% o- Y
G80G00X#24Y#25
# Z1 l0 I, N6 `0 I, D
GOTO2" S8 Y4 P( j% B c, h
N999#3000=140(ARGUMENT IS NOT ASSIGNED)
# d& f, a7 d4 C/ p" d
N2M99
+ G2 ~6 N% G8 V% W9 S6 r

复制代码

lukexc · 发表于 2014-3-27 18:57:30

上个仿真的图：

lukexc · 发表于 2014-3-27 18:58:33

发发代码的说明：

G65 P1000 X_Y_A_ R_E_ D_
% z0 ~- Q" w2 v; n. X
% W9 f( D; E( z& Q
P1000子程序号
0 ?6 u- _2 ~2 q( I
X、Y表示加工圆周孔的中心
* C" o7 ~+ M& W- O
R：表示圆周孔的半径
5 [( y" t9 v! C' c. w6 B
A：要加工孔的个数#1
4 q) d+ D2 B& I1 q. ^6 B
E：那些孔不加工，#8! n) a$ \, ]) Q+ j8 N2 W
比如E238，表示第2/3/8都不加工，
7 z. q- \4 i1 A* b; _2 s% k
E2381013表示第2/3/8/10/13都不加工，; k' n+ o8 C. z2 h% H
一位数和两位数的顺序不得打乱比如E2103813，这样就不行- t& X. `5 S; q" v r( y0 t l6 n
这样E2831310可以，E1310832这样不行，# I; A) Y4 g5 n' ?* X0 n: ^+ }
D：表示两位数的个数，简化算法#7

复制代码

lukexc · 发表于 2014-3-27 19:00:50

说说优缺点：

优点：
& y7 d( f1 Z5 p1 s9 T
1.可加工2～99个孔；* q, Q2 s7 x+ u. _3 z4 l7 F
2.可以自由规定不加工的孔；
+ F3 Y: y/ L2 L$ z+ B3 U
3.容错性好，比如E这个参数E3311111720D4这样重复的数字照样加工，见下图；

复制代码

缺点：
4 I" o8 Z1 S* @1 `- v- S
1.D这个参数有些多余，但是目前没有想到好的算法；6 H7 S4 l3 ?( `& h2 [
2.如果加工三位数的孔得加个参数，以此类推；1 ~1 G! F5 ?! S: P# L) E' y& z a) K
3.E这个参数不能取值太大，这个和系统的整数型的范围有关，比如E297311171920D4，这样数据就会溢出；# @9 U- s: `4 F
4.加工速度没能参数化，自己偷懒了；9 \/ f7 w' G- e8 u1 f8 x
5.适用范围还是比较小的；2 Y! ]3 B8 P! Y5 n/ [6 r
……

复制代码

冷月梧桐 · 发表于 2014-3-27 20:49:03

本帖最后由冷月梧桐于 2014-3-27 20:57 编辑

楼主技术不错，可惜掉进了牛角尖里。如此等圆周孔等分加工用一个G16极坐标就可以搞定了，根本不需要用宏程序出马（我不会VERICUT仿真，只能拿小玩具来献丑了）
N10G30G91Z0
G0G54G90G15G69X0Y0
M03S800
G43H01Z10
G98G90G81G16X50Y0Z-10R3F120
Y36
Y72
Y108
Y144
/Y180
Y216
Y252
Y288
/Y324
G0Z50G15M09
G30G91Z0M05
M30

sjkabc · 发表于 2014-3-27 22:24:16

程序里加斜线跳转就可以了。用最简单的程序加工出产品那是本事。花拳绣腿那没有意思。

老飘 · 发表于 2014-3-27 22:30:06

sjkabc 发表于 2014-3-27 22:24
6 ^$ ^7 H7 |! {! G; Q程序里加斜线跳转就可以了。用最简单的程序加工出产品那是本事。花拳绣腿那没有意思。

你，有落井下石之嫌

伤情于剑 · 发表于 2014-4-28 23:23:27

帮顶，有的机床没开通g68跟g16功能的

		自动登录	找回密码
密码			注册会员

圆周孔的加工以及智能跳过程序！大家来讨论！

相关帖子

点评

本帖子中包含更多资源

点评

本帖子中包含更多资源

本帖子中包含更多资源