夾杂兩種孔，當共同位置時，不會重複钻會跳

羅蓋仙

9 u, m; A' \6 ^% _: Y共同位置孔(不重複钻)會跳

0 G" p& U4 |) p0 D最近小弟我在研究钻孔，假設在水平上每50mm钻一孔共钻4孔
5 A9 @' n; N, |& z1 L$ y4 U；夾杂了每40mm钻一孔共钻5孔，
6 ^* k+ X+ ]- F1 F但是你會發現最後一孔重疊孔，不钻它.因為有钻過了
. @5 b$ E0 r5 M8 ]
一般人會先钻50mmX4孔之後再钻40mmX4孔....或者先钻40mmX5孔
0 I  u' K1 _' T0 D* m# \再去钻50mmX3孔
: D+ _# [4 d, w+ z& _$ }0 M我有個怪胎的想法，先到先钻....有重複它會判斷去钻下一孔
無論要钻幾孔兩者相遇幾次不會1孔钻2次

, Y' _: V+ `/ p2 H3 S# F
O1234
G81 K0(FANUC)L0(三菱)
G65P1A0.B0.I50.J40.K8.H10.Y10.
G80
  D4 q3 o" t6 T0 x/ [/ C/ u& Y0 T
A.B起始點(起角.X分為兩個)
I.J(孔距增量)
  V0 w; L8 Y1 I  A+ E" |. `* V. m9 qK.H(孔數)
Y(高度)
) a. `" f4 \* Y+ f% _0 r, y* O
#13=#6(孔轉移)
$ C& i" u+ S0 g' O& Q5 A#23=#11
#31=#1(起點轉移)
* i4 t; S) O5 ~; }. E+ E6 m#32=#2

IF[#1GT#2]GO20(如果A的起點(角)大於B.先做小B)

N10 WH[[#13GE1.]AND[#31LE#32]]DO1(A孔數 AND #1小於或等於#2在此層次循環)
G90 X#31 Y#25
#13=#13-1.
4 T3 T# W+ j, ^. A4 L6 ?. i#31=#1+#4*[#6-#13] (A+I起角更新)
6 ^2 E5 ]- G/ o; zIF[#32NE#31-#4]GO15 (如果B等下要钻的點.與當前A钻的同點.B演算下面.A判斷是否繼續钻)
#23=#23-1. (B孔數-1.孔)
#32=#32+#5 (B距離更新一個J增量)
3 K& j: ?- U6 y0 d" yN15 END1

. ~0 {  q( o, S: F7 V  H) V" P+ I" xN20 WH[[#23GE1.]AND[#32LE#31]]DO2(B孔數 AND #2小於或等於#1在此層次循環)
G90 X#32 Y#25
; ?/ p) Y9 C, j2 Q2 D8 ?+ k- d" q1 b% A#23=#23-1.
#32=#2+#5*[#11-#23] (B+J起角更新)
( ~% K8 ~6 j5 B4 H+ N* |, ZIF[#31NE#32-#5]GO25 (如果A等下要钻的點.與當前B钻的同點.A演算下面.B判斷是否繼續钻)
#13=#13-1. (A孔數-1.孔)
#31=#31+#4 (A距離更新一個I增量)
N25 END2
0 y; P) {' Q1 \9 _& d& F4 E% hIF[#13GE1.]GO10(A孔數未到跳回去N10)
IF[#23GE1.]GO20(B孔數未到跳回去N20)
& O5 V$ T2 B' n4 k0 {6 ZM0
$ U7 @# c& q" F# o( T
適用於
- h7 e# P4 K) B) ?+ c+ {夾杂兩種角度的圓周孔(在同一半徑上)或
夾杂兩種孔距的直排孔(在同一水平線上)皆可參考
( `( ~% |# R1 t6 H+ c$ s
* A! L, X& a4 ~& D" Z8 Y% r3 [有沒有懂，懂之後有更好的方式，請您指點

xinsuixue521

LZ脑子真好使，研究宏程序研究的不错。

羅蓋仙

回复 2# xinsuixue521
+ [/ G  s1 I  I5 G! q# Q5 `3 x
2 y" q. j7 z. G: o
謝謝啦！小弟不敢當...不敢當

vinney777

不错，学习，不过此种想法很难在软件上自动实现

1426437527

不错，学习一下啊

744439842

7 w; d; w" B) d5 ?4 F8 R+ z& C* i( GLZ脑子真好使，研究宏程序研究的不错。