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

lukexc

好久没来论坛了！好想念！

lukexc

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

lukexc

先发发我给修改的程序吧！
: k$ U0 X! I; K: E8 {主程序:

1. G40G17G49G94G0G90G21G80
   6 m$ _: M% a6 C0 W( B; s$ T: t
2. G91G28Z0.0
   2 m) t  P" |: a4 e. |9 p3 o
3. T01M06
   ( E# ~/ B& U( u( b. I- x
4. M13S2000
   
5. G54G90G0X0.0Y0.0
   5 y( W9 D- c9 s. `. S8 R
6. G43Z200.0H01
   
7. Z30.0
   
8. Z1.0
   
9. G65P1000X0.Y0.A20.0R100.0E237910111720D4
   
10. G0Z30.0
    
11. G28X0.Y0.Z0.0
    8 z+ I! S8 v, |; H5 v
12. M30

复制代码

子程序：

1. O1000
   - w) C- D3 g1 N' D
2. IF[#24EQ#0]GOTO999
   
3. IF[#25EQ#0]GOTO999
   + T  u8 O: S. o! Q+ ^
4. IF[#18EQ#0]GOTO999
   4 U- Q6 n. T" a8 M( Q, y
5. IF[#1EQ#0]GOTO999
   ( N) D6 z, R- s( o0 G% n0 M- `
6. IF[#8EQ#0]THEN#8=0
   
7. IF[#7EQ#0]THEN#7=0
   
8. IF[#8EQ0]GOTO20
   
9. IF[#7EQ0]GOTO10
   
10. #2=100
    
11. N11#[#2]=#8-[FIX[#8/100]]*100
    
12. #2=#2+1
    ) e8 ]" F# h( i5 k
13. #8=FIX[#8/100]
    4 ?5 J" |* I$ i# N5 `- K5 C
14. #7=#7-1
    
15. IF[#7GT0]GOTO11
    
16. N10#[#2]=#8-[FIX[#8/10]]*10
    7 J. B) F: \, C5 g8 h% e8 P+ ]8 p
17. #2=#2+1
    
18. #8=FIX[#8/10]
      G! e, r- L. `
19. IF[#8GT0]GOTO10
    + @, a6 E: _" H( ]  D7 x, V9 _
20. N20#33=360.0/#1
    
21. #32=0.0
    
22. #200=100
    2 B' u1 s. B) P, t; b9 C+ m, _" C
23. WHILE[#32LE360]DO3
    
24. N30IF[#[#200]EQ[#32/#33+1]]GOTO40
    8 O) ]- ^+ p: C4 I/ I, @
25. #200=#200+1
    
26. IF[#200LE#2]GOTO30
    # B1 p0 n3 `$ @! `9 j7 [% q$ g" E
27. #30=#24+#18*COS[#32]
    
28. #31=#25+#18*SIN[#32]
    
29. G1X#30Y#31 F1000
    " n" B% j4 C  G  C7 F' r
30. G1Z-30.0
    
31. Z1.0
    $ Y& i) O# R# f1 {: m
32. N40#200=100
    
33. #32=#32+#33
    
34. END3
    
35. G80G00X#24Y#25
    
36. GOTO2
    7 ?& j6 h; p. n0 i7 P
37. N999#3000=140(ARGUMENT IS NOT ASSIGNED)
    
38. N2M99
    

复制代码

lukexc

上个仿真的图：

lukexc

发发代码的说明：

1. G65 P1000 X_Y_A_ R_E_ D_
   / ~' L/ i2 \  E# d
2. 
   - L; B! X; H, v6 `" [2 I# U
3. P1000子程序号
   
4. X、Y表示加工圆周孔的中心
   
5. R：表示圆周孔的半径
   
6. A：要加工孔的个数#1
   3 p4 g6 Q+ j- ?2 M. t% p7 J; R2 l
7. E：那些孔不加工，#8
   
8. 比如E238，表示第2/3/8都不加工，
   
9. E2381013表示第2/3/8/10/13都不加工，
   
10. 一位数和两位数的顺序不得打乱比如E2103813，这样就不行
    1 q7 ]% _3 s3 F; w8 x  b8 V) B
11. 这样E2831310可以，E1310832这样不行，
    , ~# ]% Q" `/ U/ J! {) W/ a' I
12. D：表示两位数的个数，简化算法#7

复制代码

lukexc

说说优缺点：

1. 优点：
   ' @6 C5 T: u; _8 |0 B: t+ Y
2. 1.可加工2～99个孔；
   0 e* V& z/ P5 z3 O8 S4 r
3. 2.可以自由规定不加工的孔；
   - y+ p) V  t0 p- c$ R& j
4. 3.容错性好，比如E这个参数E3311111720D4这样重复的数字照样加工，见下图；

复制代码

1. 缺点：
   ! W& H) e6 s8 ~& h" a: N% R# H8 C
2. 1.D这个参数有些多余，但是目前没有想到好的算法；
   6 ]# a  L6 c5 I5 s; g2 n% G8 t
3. 2.如果加工三位数的孔得加个参数，以此类推；
   3 j# Y' d0 h* l3 I% J- U2 ?
4. 3.E这个参数不能取值太大，这个和系统的整数型的范围有关，比如E297311171920D4，这样数据就会溢出；
     ^4 k: i. r/ u* J
5. 4.加工速度没能参数化，自己偷懒了；
   ' U/ Z3 a: h8 H) N. y; |# N
6. 5.适用范围还是比较小的；
   ' ^: n& B; R4 i# d( s+ Z' J7 |! ~7 }
7. ……

复制代码

冷月梧桐

楼主技术不错，可惜掉进了牛角尖里。如此等圆周孔等分加工用一个G16极坐标就可以搞定了，根本不需要用宏程序出马（我不会VERICUT仿真，只能拿小玩具来献丑了）
N10G30G91Z0
G0G54G90G15G69X0Y0
M03S800
G43H01Z10
G98G90G81G16X50Y0Z-10R3F120
4 k* N6 Y4 B; lY36
Y72
) v( C+ ?7 P8 T2 j) PY108
5 }% h/ a- f! C1 e2 bY144
( F+ b9 n0 n6 ?. ~8 {' x) t/Y180
) N8 s, e6 V, E6 EY216
& e) `) j2 N" K) TY252
Y288
! ^/ O3 f+ c, B" ]7 ^7 K7 y% g9 q/Y324
G0Z50G15M09
$ T7 w! L5 e, ~! VG30G91Z0M05
M30

sjkabc

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

老飘

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

- N  ]! @" E& ~0 v; J" ]你，有落井下石之嫌

伤情于剑

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