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

羅蓋仙

- ]8 ~1 m0 J" D) C共同位置孔(不重複钻)會跳

最近小弟我在研究钻孔，假設在水平上每50mm钻一孔共钻4孔
；夾杂了每40mm钻一孔共钻5孔，
但是你會發現最後一孔重疊孔，不钻它.因為有钻過了
1 e. q. V' i7 M+ p6 M. ]2 a( z
一般人會先钻50mmX4孔之後再钻40mmX4孔....或者先钻40mmX5孔
再去钻50mmX3孔
* i" j) v. E' O. f; o1 A! Z1 e6 p我有個怪胎的想法，先到先钻....有重複它會判斷去钻下一孔
無論要钻幾孔兩者相遇幾次不會1孔钻2次

  G+ O, y$ m4 s
3 t! l; l# z. I( l8 j5 b- SO1234
2 k( D7 s' _4 w$ oG81 K0(FANUC)L0(三菱)
, R$ S- B4 \$ d4 F/ ?G65P1A0.B0.I50.J40.K8.H10.Y10.
5 G+ a/ f; }# s. P# Y( G- T& P0 zG80
3 i  Z2 _4 n$ A" W; \
A.B起始點(起角.X分為兩個)
8 I# o4 z6 P7 AI.J(孔距增量)
K.H(孔數)
Y(高度)
: k. U0 `8 }+ O9 ?7 t! S" Y
) M- i. _* B& L4 `* y' A1 i) r3 A#13=#6(孔轉移)
- [+ [- i( Z: G#23=#11
0 ~0 _1 i( C! f: T7 g4 w* R#31=#1(起點轉移)
. n" ^& ]# y" @0 u0 Q: X#32=#2

$ {' e- _6 e  S0 m- }: t+ fIF[#1GT#2]GO20(如果A的起點(角)大於B.先做小B)
* F  ^9 v% ?9 s( Q9 I) @$ x
1 e- \# F0 ^0 zN10 WH[[#13GE1.]AND[#31LE#32]]DO1(A孔數 AND #1小於或等於#2在此層次循環)
" j2 i: h" [) U1 M5 CG90 X#31 Y#25
* X/ O4 Y' V4 F# u1 G+ N#13=#13-1.
#31=#1+#4*[#6-#13] (A+I起角更新)
IF[#32NE#31-#4]GO15 (如果B等下要钻的點.與當前A钻的同點.B演算下面.A判斷是否繼續钻)
#23=#23-1. (B孔數-1.孔)
: e- @+ ]1 r6 W' d#32=#32+#5 (B距離更新一個J增量)
; @; p' c% B& E" TN15 END1

( [  ^5 I7 d/ R3 s0 hN20 WH[[#23GE1.]AND[#32LE#31]]DO2(B孔數 AND #2小於或等於#1在此層次循環)
$ v3 F1 O; M) X' t* W0 f) z% xG90 X#32 Y#25
* x; z+ z2 }4 _$ E1 I8 }#23=#23-1.
/ I6 S2 o5 U/ g2 C' r' M+ y#32=#2+#5*[#11-#23] (B+J起角更新)
+ e0 V9 C$ j. u. FIF[#31NE#32-#5]GO25 (如果A等下要钻的點.與當前B钻的同點.A演算下面.B判斷是否繼續钻)
#13=#13-1. (A孔數-1.孔)
#31=#31+#4 (A距離更新一個I增量)
N25 END2
IF[#13GE1.]GO10(A孔數未到跳回去N10)
IF[#23GE1.]GO20(B孔數未到跳回去N20)
. ]0 E, Q7 I% C. ^M0
& F; O3 G# s) C! ?0 k
/ o3 ~0 Z6 s5 l) [7 S  |6 ~  p, J適用於
, |* j+ h. K4 ^; v& V夾杂兩種角度的圓周孔(在同一半徑上)或
9 C! u$ V* S" D1 p) i" t夾杂兩種孔距的直排孔(在同一水平線上)皆可參考
. z' b0 E1 S$ P/ ~& j  {) k
有沒有懂，懂之後有更好的方式，請您指點

xinsuixue521

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

羅蓋仙

回复 2# xinsuixue521

" U' D$ y; T+ H' I7 M; s
謝謝啦！小弟不敢當...不敢當

vinney777

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

1426437527

不错，学习一下啊

744439842

+ M3 {, E# n& L, y/ M5 sLZ脑子真好使，研究宏程序研究的不错。