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

lukexc

好久没来必威APP精装版下载了！好想念！
+ T  s: }& H0 d3 l# \' m+ d

lukexc

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

lukexc

先发发我给修改的程序吧！
! a) Z& M7 R7 h2 Y- t: I主程序:

1. G40G17G49G94G0G90G21G80
   5 V& a5 u" s) X) T( L4 a' v
2. G91G28Z0.0
   
3. T01M06
   / ]% n0 O& g  @2 j& |2 J% V1 O( u- t
4. M13S2000
   
5. G54G90G0X0.0Y0.0
   
6. G43Z200.0H01
   ' ?" z' h/ K7 a+ P& e, F
7. Z30.0
   
8. Z1.0
   7 H* W) }' I, _3 Z5 e' M$ }
9. G65P1000X0.Y0.A20.0R100.0E237910111720D4
   , W6 c6 Y# `/ `5 K3 r
10. G0Z30.0
    % S% r$ C2 U5 E# m- l5 Y% ?! l& Q
11. G28X0.Y0.Z0.0
    
12. M30

复制代码

子程序：

1. O1000
   
2. IF[#24EQ#0]GOTO999
   
3. IF[#25EQ#0]GOTO999
   
4. IF[#18EQ#0]GOTO999
   
5. IF[#1EQ#0]GOTO999
   " G& d6 x' X/ F9 W# w
6. IF[#8EQ#0]THEN#8=0
   
7. IF[#7EQ#0]THEN#7=0
   9 N9 f8 q) r1 D$ T! D# @
8. IF[#8EQ0]GOTO20
   
9. IF[#7EQ0]GOTO10
   
10. #2=100
    0 D0 ~3 }. m( R
11. N11#[#2]=#8-[FIX[#8/100]]*100
    1 y& n6 w: _# k% ~* ]* M
12. #2=#2+1
    : R) t* `1 \7 A) Y. s' m
13. #8=FIX[#8/100]
    4 ^" @" s6 S) e# ]+ B: z  N8 h* P4 c
14. #7=#7-1
    1 Q6 x/ B1 o; _1 A2 ~
15. IF[#7GT0]GOTO11
    : n: b- [) e) ~! K7 x4 X
16. N10#[#2]=#8-[FIX[#8/10]]*10
    
17. #2=#2+1
    , h& F0 J. h' Q% M. ]$ x. f
18. #8=FIX[#8/10]
    . {4 ~* J* E. z( B: R
19. IF[#8GT0]GOTO10
    4 m4 b/ @2 \" H2 ^" J
20. N20#33=360.0/#1
    - s6 @: Y2 Z+ a" u: u7 I
21. #32=0.0
    
22. #200=100
    
23. WHILE[#32LE360]DO3
    " ~5 Y8 M; y) @- V. @3 b1 |
24. N30IF[#[#200]EQ[#32/#33+1]]GOTO40
    
25. #200=#200+1
    
26. IF[#200LE#2]GOTO30
    8 `6 Q( X- ]5 {, J2 ?' D
27. #30=#24+#18*COS[#32]
    ( @9 u$ l* F0 g% s
28. #31=#25+#18*SIN[#32]
    1 g' h8 g# K1 M" y; B; V! M( t
29. G1X#30Y#31 F1000
    ! B+ z# x$ \) [& E6 e
30. G1Z-30.0
    4 y) g1 |7 f) U4 C
31. Z1.0
    
32. N40#200=100
    ; \* i; U/ w3 Q' G
33. #32=#32+#33
    
34. END3
    9 z: W" Z. m" v+ D3 e/ a5 t5 ?  h* ?
35. G80G00X#24Y#25
    : `; y, [6 h5 k
36. GOTO2
    ' o" _* j5 T* |- r
37. N999#3000=140(ARGUMENT IS NOT ASSIGNED)
    
38. N2M99
    

复制代码

lukexc

上个仿真的图：

lukexc

发发代码的说明：

1. G65 P1000 X_Y_A_ R_E_ D_
   8 w( ?8 W* K% F# L- d
2. 
   % b8 }* u% Z8 {8 |8 |/ N- F$ A
3. P1000子程序号
   0 K1 @/ f6 y) U8 e. L8 Y
4. X、Y表示加工圆周孔的中心
   5 Y- J0 r4 [1 S3 M: S0 ]
5. R：表示圆周孔的半径
   ) f& l9 }7 T: o8 @, @+ a
6. A：要加工孔的个数#1
   
7. E：那些孔不加工，#8
   
8. 比如E238，表示第2/3/8都不加工，
   0 [6 y0 \- J8 s
9. E2381013表示第2/3/8/10/13都不加工，
   
10. 一位数和两位数的顺序不得打乱比如E2103813，这样就不行
    
11. 这样E2831310可以，E1310832这样不行，
    9 C( X4 F4 Q$ F- U  c
12. D：表示两位数的个数，简化算法#7

复制代码

lukexc

说说优缺点：

1. 优点：
   
2. 1.可加工2～99个孔；
   
3. 2.可以自由规定不加工的孔；
   
4. 3.容错性好，比如E这个参数E3311111720D4这样重复的数字照样加工，见下图；

复制代码

1. 缺点：
   4 [1 v( u" V: H4 S& I
2. 1.D这个参数有些多余，但是目前没有想到好的算法；
   
3. 2.如果加工三位数的孔得加个参数，以此类推；
   $ U" k0 ?. f" r" h8 F. n; k
4. 3.E这个参数不能取值太大，这个和系统的整数型的范围有关，比如E297311171920D4，这样数据就会溢出；
   
5. 4.加工速度没能参数化，自己偷懒了；
   5 k- N$ Y8 l' n7 w) E
6. 5.适用范围还是比较小的；
   . H& S0 {( u2 d
7. ……

复制代码

冷月梧桐

楼主技术不错，可惜掉进了牛角尖里。如此等圆周孔等分加工用一个G16极坐标就可以搞定了，根本不需要用宏程序出马（我不会VERICUT仿真，只能拿小玩具来献丑了）
N10G30G91Z0
G0G54G90G15G69X0Y0
- h, x7 ?" ?- jM03S800
G43H01Z10
G98G90G81G16X50Y0Z-10R3F120
Y36
Y72
& V( H7 ?, |1 F* dY108
Y144
/Y180
6 {. I& p6 w* C( [$ i+ qY216
$ a6 f1 F% z: _0 |# Y! nY252
( s6 V9 V! x% Q8 V; e" cY288
- r/ N9 B$ N8 W& }. p" t' e/Y324
) k& E5 O% j6 x% o2 BG0Z50G15M09
' X# {: ]  u0 v" K$ R; jG30G91Z0M05
% {) j' X6 ]# \M30

sjkabc

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

老飘

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

你，有落井下石之嫌
9 s8 C( |/ g2 ^, k+ {9 T, m& [; P

伤情于剑

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