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

羅蓋仙

( o7 K0 L* @2 v
共同位置孔(不重複钻)會跳
1 C/ u( K, ^; w7 j4 ~
. u( j1 f( r7 ?最近小弟我在研究钻孔，假設在水平上每50mm钻一孔共钻4孔
/ D8 N! M  @% E$ n；夾杂了每40mm钻一孔共钻5孔，
但是你會發現最後一孔重疊孔，不钻它.因為有钻過了
2 j/ ?! [9 a1 [- V, V/ e- d; V& N
一般人會先钻50mmX4孔之後再钻40mmX4孔....或者先钻40mmX5孔
再去钻50mmX3孔
* E( L$ N1 j+ K8 _, ?# }我有個怪胎的想法，先到先钻....有重複它會判斷去钻下一孔
9 r( t" Y" R) `9 A$ }, \無論要钻幾孔兩者相遇幾次不會1孔钻2次


O1234
G81 K0(FANUC)L0(三菱)
' \$ N. \9 i+ xG65P1A0.B0.I50.J40.K8.H10.Y10.
2 @# J$ N" {* N0 f4 A+ w' kG80

A.B起始點(起角.X分為兩個)
I.J(孔距增量)
  e; k9 X7 B6 `" K' AK.H(孔數)
3 h$ @+ C1 C$ e, b- DY(高度)

#13=#6(孔轉移)
) ?# U8 f! S+ ?- S2 v, {8 G; c#23=#11
) ^; h8 e3 W5 t* O4 h  n/ D1 w  o#31=#1(起點轉移)
#32=#2

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

N10 WH[[#13GE1.]AND[#31LE#32]]DO1(A孔數 AND #1小於或等於#2在此層次循環)
9 l9 z4 ?/ V/ MG90 X#31 Y#25
/ e3 `2 N- P, U% Z$ S8 |" G#13=#13-1.
#31=#1+#4*[#6-#13] (A+I起角更新)
! @6 f. l  r2 u9 vIF[#32NE#31-#4]GO15 (如果B等下要钻的點.與當前A钻的同點.B演算下面.A判斷是否繼續钻)
#23=#23-1. (B孔數-1.孔)
#32=#32+#5 (B距離更新一個J增量)
N15 END1

N20 WH[[#23GE1.]AND[#32LE#31]]DO2(B孔數 AND #2小於或等於#1在此層次循環)
$ b5 A6 J3 A9 B* S. h" p/ AG90 X#32 Y#25
#23=#23-1.
#32=#2+#5*[#11-#23] (B+J起角更新)
6 H! z9 X, w+ L7 ~IF[#31NE#32-#5]GO25 (如果A等下要钻的點.與當前B钻的同點.A演算下面.B判斷是否繼續钻)
#13=#13-1. (A孔數-1.孔)
#31=#31+#4 (A距離更新一個I增量)
N25 END2
+ W, p1 W  S1 u: u2 fIF[#13GE1.]GO10(A孔數未到跳回去N10)
IF[#23GE1.]GO20(B孔數未到跳回去N20)
; E5 J6 n, c6 |& E3 F4 kM0

適用於
% F! Z$ c6 a4 a! L7 X8 e4 D/ F夾杂兩種角度的圓周孔(在同一半徑上)或
6 o, S1 u4 W0 t2 i) c) I4 d$ w夾杂兩種孔距的直排孔(在同一水平線上)皆可參考

有沒有懂，懂之後有更好的方式，請您指點

xinsuixue521

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

羅蓋仙

回复 2# xinsuixue521
6 d: b  C. _  F7 l

3 N( F. m" v$ @. F. p- h謝謝啦！小弟不敢當...不敢當

vinney777

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

1426437527

不错，学习一下啊

744439842

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