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

羅蓋仙

共同位置孔(不重複钻)會跳

最近小弟我在研究钻孔，假設在水平上每50mm钻一孔共钻4孔
；夾杂了每40mm钻一孔共钻5孔，
2 u$ B  J! p2 i/ `' p& }$ f2 ?' u但是你會發現最後一孔重疊孔，不钻它.因為有钻過了
2 h! W; f# p% w# [
一般人會先钻50mmX4孔之後再钻40mmX4孔....或者先钻40mmX5孔
再去钻50mmX3孔
我有個怪胎的想法，先到先钻....有重複它會判斷去钻下一孔
無論要钻幾孔兩者相遇幾次不會1孔钻2次


) ^' W. {( t% F: D0 YO1234
G81 K0(FANUC)L0(三菱)
2 G/ @2 M* _- [1 b) e. P& MG65P1A0.B0.I50.J40.K8.H10.Y10.
G80

A.B起始點(起角.X分為兩個)
4 b: d9 u* {" n$ `. m; `' j* Z, W8 NI.J(孔距增量)
% T) \1 n" M. w9 O: @! nK.H(孔數)
4 F& I+ O8 d# Z9 y" P! YY(高度)
% }% [' [% P/ _  r" u
#13=#6(孔轉移)
#23=#11
" c9 o- ~6 l2 v; ^$ o#31=#1(起點轉移)
#32=#2

+ s( U+ W, @! @) G1 X$ \9 oIF[#1GT#2]GO20(如果A的起點(角)大於B.先做小B)

# w' Y6 R* O& W# T7 S* cN10 WH[[#13GE1.]AND[#31LE#32]]DO1(A孔數 AND #1小於或等於#2在此層次循環)
G90 X#31 Y#25
6 m3 b' L$ ]; ], C# Y) C#13=#13-1.
1 G! _3 p4 m( \! \3 ?/ h#31=#1+#4*[#6-#13] (A+I起角更新)
IF[#32NE#31-#4]GO15 (如果B等下要钻的點.與當前A钻的同點.B演算下面.A判斷是否繼續钻)
2 v6 y$ k$ b8 K" w* \% a#23=#23-1. (B孔數-1.孔)
#32=#32+#5 (B距離更新一個J增量)
% \1 O0 I& `! X7 e' X/ TN15 END1
8 c* X! _1 {& I: \  Z2 x$ n' G" l
N20 WH[[#23GE1.]AND[#32LE#31]]DO2(B孔數 AND #2小於或等於#1在此層次循環)
G90 X#32 Y#25
#23=#23-1.
#32=#2+#5*[#11-#23] (B+J起角更新)
4 @' D5 c& O* n2 G% d8 AIF[#31NE#32-#5]GO25 (如果A等下要钻的點.與當前B钻的同點.A演算下面.B判斷是否繼續钻)
/ F) O: M& o& H; m/ m  ]1 S0 Q#13=#13-1. (A孔數-1.孔)
) ]: q+ B% R& N, P: J; n# s' i#31=#31+#4 (A距離更新一個I增量)
N25 END2
! X2 Z: c. ?, u4 ^. k' j& w5 }IF[#13GE1.]GO10(A孔數未到跳回去N10)
IF[#23GE1.]GO20(B孔數未到跳回去N20)
2 N  H# t; J) L. V$ vM0
' G8 e5 k$ o) @$ F. d7 S
1 g2 O* Y9 {( q- T% [適用於
夾杂兩種角度的圓周孔(在同一半徑上)或
: q. P" T! \: U5 H7 a9 H, M- l7 R夾杂兩種孔距的直排孔(在同一水平線上)皆可參考
" _! r8 D3 a) }2 s3 G+ e+ q& g
+ W- f4 x9 |8 s有沒有懂，懂之後有更好的方式，請您指點

xinsuixue521

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

羅蓋仙

回复 2# xinsuixue521
0 ]. S! H+ F( f6 X, B% d% e

謝謝啦！小弟不敢當...不敢當

vinney777

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

1426437527

不错，学习一下啊

744439842

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