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

lukexc

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

lukexc

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

lukexc

先发发我给修改的程序吧！
0 B4 N, M0 W* {' u! @主程序:

1. G40G17G49G94G0G90G21G80
   / h6 \5 o: M7 g+ y- s/ x1 b
2. G91G28Z0.0
   
3. T01M06
   ! y% n1 E5 F) W3 U( X) f
4. M13S2000
   - Q  C8 W% H7 t8 O8 z( H" D
5. G54G90G0X0.0Y0.0
   7 J) E" X7 v; B9 L! G: M
6. G43Z200.0H01
   $ G' C0 D+ n+ y$ T
7. Z30.0
   
8. Z1.0
   
9. G65P1000X0.Y0.A20.0R100.0E237910111720D4
   6 {5 e) E7 T8 y1 g- }) _. `$ r
10. G0Z30.0
    ) l& p& G9 }( e) ]
11. G28X0.Y0.Z0.0
    
12. M30

复制代码

子程序：

1. O1000
   
2. IF[#24EQ#0]GOTO999
   
3. IF[#25EQ#0]GOTO999
   7 x! D2 \5 e- A- ~, J- \  C# t- \
4. IF[#18EQ#0]GOTO999
   
5. IF[#1EQ#0]GOTO999
   
6. IF[#8EQ#0]THEN#8=0
   7 t8 G4 V* z1 N7 l( a
7. IF[#7EQ#0]THEN#7=0
   
8. IF[#8EQ0]GOTO20
   
9. IF[#7EQ0]GOTO10
   
10. #2=100
    1 R. F$ q. D. j. `, P( L3 F% Z
11. N11#[#2]=#8-[FIX[#8/100]]*100
    
12. #2=#2+1
    
13. #8=FIX[#8/100]
    4 W% }! d( D, `! i$ a) t) Y
14. #7=#7-1
    
15. IF[#7GT0]GOTO11
    
16. N10#[#2]=#8-[FIX[#8/10]]*10
    
17. #2=#2+1
    
18. #8=FIX[#8/10]
    ; ^& P: Q6 P+ Y$ ~( L
19. IF[#8GT0]GOTO10
    
20. N20#33=360.0/#1
    
21. #32=0.0
    
22. #200=100
    1 _! d& r/ H9 o- c, n  X$ s7 J
23. WHILE[#32LE360]DO3
    # x' q: y$ e# ~7 `) E
24. N30IF[#[#200]EQ[#32/#33+1]]GOTO40
    
25. #200=#200+1
    - Z0 Q, r8 n3 \0 T
26. IF[#200LE#2]GOTO30
    2 O# F3 I7 f# b4 u. k
27. #30=#24+#18*COS[#32]
    
28. #31=#25+#18*SIN[#32]
    
29. G1X#30Y#31 F1000
    0 z  O" T6 S* n3 E$ T
30. G1Z-30.0
    , }0 t; d7 Z! e3 Y1 Q& y
31. Z1.0
    
32. N40#200=100
    
33. #32=#32+#33
    $ p! o2 @5 q' G& y6 N) z5 ?- s4 ~9 |
34. END3
    4 a+ ^9 G0 r& h* r0 K- a' @
35. G80G00X#24Y#25
    
36. GOTO2
    # F" ^, ]! G& H* l2 Q
37. N999#3000=140(ARGUMENT IS NOT ASSIGNED)
    8 K6 ]' j/ e* V; y
38. N2M99
    1 P' P% ?: N. B) L9 u

复制代码

lukexc

上个仿真的图：

lukexc

发发代码的说明：

1. G65 P1000 X_Y_A_ R_E_ D_
   ; B  S8 I* o) ]3 K; @4 e3 M5 n
2. 
   
3. P1000子程序号
   # d, `/ C# h. s" k; Z/ k8 Q! y
4. X、Y表示加工圆周孔的中心
   
5. R：表示圆周孔的半径
   
6. A：要加工孔的个数#1
   . D% ]; V$ e% `
7. E：那些孔不加工，#8
   9 J( q  W+ v& f" Z3 o* J$ V) C
8. 比如E238，表示第2/3/8都不加工，
   
9. E2381013表示第2/3/8/10/13都不加工，
   
10. 一位数和两位数的顺序不得打乱比如E2103813，这样就不行
    
11. 这样E2831310可以，E1310832这样不行，
      C+ C: d8 D$ u* G9 ~
12. D：表示两位数的个数，简化算法#7

复制代码

lukexc

说说优缺点：

1. 优点：
   " B  b2 e. _# D2 {" [+ j
2. 1.可加工2～99个孔；
   ( P. m3 n. `( I( U0 S
3. 2.可以自由规定不加工的孔；
   6 h( e% Q: D( ]+ P
4. 3.容错性好，比如E这个参数E3311111720D4这样重复的数字照样加工，见下图；

复制代码

1. 缺点：
   ! G2 o% Q" j% k, E* X, P( Q
2. 1.D这个参数有些多余，但是目前没有想到好的算法；
   ! J; j/ l+ V( \' v" `7 D7 ^/ T
3. 2.如果加工三位数的孔得加个参数，以此类推；
   2 Z$ v7 K0 ^  u+ k: b
4. 3.E这个参数不能取值太大，这个和系统的整数型的范围有关，比如E297311171920D4，这样数据就会溢出；
   
5. 4.加工速度没能参数化，自己偷懒了；
   : N1 Q; K% ^# g
6. 5.适用范围还是比较小的；
   
7. ……

复制代码

冷月梧桐

2 C# c# Q( D5 Z楼主技术不错，可惜掉进了牛角尖里。如此等圆周孔等分加工用一个G16极坐标就可以搞定了，根本不需要用宏程序出马（我不会VERICUT仿真，只能拿小玩具来献丑了）
; C; a' T+ I$ ?' w5 e; YN10G30G91Z0
, u) h& U% m+ V% ^! _) [0 i: a  z! _. E) }G0G54G90G15G69X0Y0
5 o6 R. a8 t+ F: P! M$ l# K: zM03S800
4 [- J' f; K9 M) n. d' d+ a+ MG43H01Z10
! R" ^. K0 A/ {! n8 wG98G90G81G16X50Y0Z-10R3F120
8 C" }9 u2 d8 L- G9 N7 y7 yY36
Y72
+ @' A+ d1 A3 J/ X- F  E' `Y108
: d8 f9 w' D) C+ WY144
/Y180
Y216
# N, r2 @, J7 ~4 W4 }Y252
Y288
/ B7 o5 L2 M& s1 G$ Q/Y324
5 t% p! g/ W+ ^" KG0Z50G15M09
G30G91Z0M05
M30

sjkabc

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

老飘

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

你，有落井下石之嫌
& I( v- F3 X0 I  S* F

伤情于剑

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