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

羅蓋仙

1 e* V  T1 k- [
共同位置孔(不重複钻)會跳
/ x' c4 m: [% c  d3 K! ^
最近小弟我在研究钻孔，假設在水平上每50mm钻一孔共钻4孔
9 G8 |2 H4 z0 C# r! {；夾杂了每40mm钻一孔共钻5孔，
  n/ I/ a; c/ ^但是你會發現最後一孔重疊孔，不钻它.因為有钻過了

一般人會先钻50mmX4孔之後再钻40mmX4孔....或者先钻40mmX5孔
再去钻50mmX3孔
7 R6 v0 Q' e3 T2 i) B6 Y我有個怪胎的想法，先到先钻....有重複它會判斷去钻下一孔
無論要钻幾孔兩者相遇幾次不會1孔钻2次
& {4 D$ u1 K) ]) d+ `

O1234
6 S; i3 u$ k1 W* j: YG81 K0(FANUC)L0(三菱)
. o' w: f: t% m- H4 B) uG65P1A0.B0.I50.J40.K8.H10.Y10.
G80
! Y7 J0 l$ e3 G6 p
A.B起始點(起角.X分為兩個)
I.J(孔距增量)
K.H(孔數)
1 f4 S4 D) E0 _; f' r4 yY(高度)
  k3 @* i9 [. ?5 g0 Q2 G, T
8 _9 N, d% }; b3 E( c4 s$ K6 |1 d#13=#6(孔轉移)
# O. H- y* ^3 w6 @' E& {  {$ L#23=#11
0 w! B, t. S7 {  ?4 D/ g#31=#1(起點轉移)
#32=#2
; n6 @3 b+ q6 Z! m4 f2 G
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 H8 o- ^  F6 o8 v. r( ^% G+ b#31=#1+#4*[#6-#13] (A+I起角更新)
IF[#32NE#31-#4]GO15 (如果B等下要钻的點.與當前A钻的同點.B演算下面.A判斷是否繼續钻)
#23=#23-1. (B孔數-1.孔)
#32=#32+#5 (B距離更新一個J增量)
5 j' ^+ F8 a/ t/ KN15 END1
! {3 \3 T8 m  t. p+ r! O9 D1 @/ A9 X
- B- z: B% Q7 H3 vN20 WH[[#23GE1.]AND[#32LE#31]]DO2(B孔數 AND #2小於或等於#1在此層次循環)
G90 X#32 Y#25
#23=#23-1.
5 S. O3 c% b" g# {" [#32=#2+#5*[#11-#23] (B+J起角更新)
* v3 a" v+ o# ?" }+ G  B1 M" S0 eIF[#31NE#32-#5]GO25 (如果A等下要钻的點.與當前B钻的同點.A演算下面.B判斷是否繼續钻)
#13=#13-1. (A孔數-1.孔)
/ M% A, `  w! o#31=#31+#4 (A距離更新一個I增量)
N25 END2
IF[#13GE1.]GO10(A孔數未到跳回去N10)
IF[#23GE1.]GO20(B孔數未到跳回去N20)
% Y# ?! h4 w3 c' G8 RM0

適用於
夾杂兩種角度的圓周孔(在同一半徑上)或
9 H) a8 S9 W+ [% }3 n0 f7 s夾杂兩種孔距的直排孔(在同一水平線上)皆可參考
7 j' E6 Z  ?' ], T; N4 [% O
# \, H# E( e  [. V4 l$ ~有沒有懂，懂之後有更好的方式，請您指點

xinsuixue521

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

羅蓋仙

回复 2# xinsuixue521

8 p$ v# M) |( _5 j& m
謝謝啦！小弟不敢當...不敢當

vinney777

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

1426437527

不错，学习一下啊

744439842

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