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

羅蓋仙

共同位置孔(不重複钻)會跳
  g* _+ R% e+ u& c* ~: N: s; C
最近小弟我在研究钻孔，假設在水平上每50mm钻一孔共钻4孔
+ K" d2 K' r# b7 }7 b；夾杂了每40mm钻一孔共钻5孔，
) I& `9 z! [7 R) }6 X& z/ |但是你會發現最後一孔重疊孔，不钻它.因為有钻過了
: B! t# ^6 t# N1 B0 h  H+ P- x  W
一般人會先钻50mmX4孔之後再钻40mmX4孔....或者先钻40mmX5孔
再去钻50mmX3孔
* s) y7 W2 O2 a* X我有個怪胎的想法，先到先钻....有重複它會判斷去钻下一孔
$ m0 t6 n3 ]9 u) P1 |3 h無論要钻幾孔兩者相遇幾次不會1孔钻2次

7 [/ l( a% q( E+ J5 p& m
O1234
G81 K0(FANUC)L0(三菱)
# K& B1 _/ {# WG65P1A0.B0.I50.J40.K8.H10.Y10.
, n8 \! G, i4 J# s+ U; hG80
" M' Y6 y9 x6 x; ^) C. X8 H
A.B起始點(起角.X分為兩個)
I.J(孔距增量)
K.H(孔數)
0 r0 U# u: v" z% J$ M% I7 @9 b! `7 iY(高度)

( X- }4 g8 O% M7 s, ]; S- g' O#13=#6(孔轉移)
: ?; w$ f. K4 i4 V& W#23=#11
#31=#1(起點轉移)
& w0 ~* F" ?: f. m5 e: J4 o% q#32=#2
4 V2 H) y$ z0 X' X
IF[#1GT#2]GO20(如果A的起點(角)大於B.先做小B)

- D0 V2 Q- k+ R+ t- gN10 WH[[#13GE1.]AND[#31LE#32]]DO1(A孔數 AND #1小於或等於#2在此層次循環)
9 g1 W0 |2 ^. r' |) n- rG90 X#31 Y#25
( G; G. Q5 ^. I$ H+ \& q#13=#13-1.
  Q1 {, x# B4 l- ?. u$ N5 H. [0 G( Y#31=#1+#4*[#6-#13] (A+I起角更新)
% e' w( N3 y' }1 c2 I% s' x2 VIF[#32NE#31-#4]GO15 (如果B等下要钻的點.與當前A钻的同點.B演算下面.A判斷是否繼續钻)
2 j! I4 i  {& v7 e. Y) T#23=#23-1. (B孔數-1.孔)
" Z: _1 L2 j. G5 X#32=#32+#5 (B距離更新一個J增量)
6 Y( d+ V" }* nN15 END1

+ w. v* X6 O! `* K# ^8 uN20 WH[[#23GE1.]AND[#32LE#31]]DO2(B孔數 AND #2小於或等於#1在此層次循環)
5 [  C3 |% p# G3 z" _$ Z& P7 NG90 X#32 Y#25
#23=#23-1.
4 j1 G6 u8 E4 F#32=#2+#5*[#11-#23] (B+J起角更新)
' P; t3 {$ L9 m4 tIF[#31NE#32-#5]GO25 (如果A等下要钻的點.與當前B钻的同點.A演算下面.B判斷是否繼續钻)
#13=#13-1. (A孔數-1.孔)
#31=#31+#4 (A距離更新一個I增量)
2 W& n+ g) f2 R7 o* d/ v8 [N25 END2
IF[#13GE1.]GO10(A孔數未到跳回去N10)
" C7 J, \9 B7 R; q" `1 u6 bIF[#23GE1.]GO20(B孔數未到跳回去N20)
$ K  `) d# J& z) P3 [M0
8 g& V8 c+ z3 }9 R6 y8 g
適用於
夾杂兩種角度的圓周孔(在同一半徑上)或
夾杂兩種孔距的直排孔(在同一水平線上)皆可參考
1 p* D8 n! j, @% X4 {- t6 @# X
5 M) A3 E) k. O) b- u  G有沒有懂，懂之後有更好的方式，請您指點

xinsuixue521

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

羅蓋仙

回复 2# xinsuixue521
* g. r" h- s& h: g6 [5 e
, ^$ ?: `0 M. [$ v* X  [
謝謝啦！小弟不敢當...不敢當

vinney777

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

1426437527

不错，学习一下啊

744439842

+ E. V; q$ P; I/ v; _LZ脑子真好使，研究宏程序研究的不错。