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

羅蓋仙

8 O1 P2 P0 Y, V# X! w共同位置孔(不重複钻)會跳
7 b0 U2 Y. u$ U  `* @) [3 e8 N9 |
* p1 T$ W2 J7 o, D. ]最近小弟我在研究钻孔，假設在水平上每50mm钻一孔共钻4孔
；夾杂了每40mm钻一孔共钻5孔，
) ~5 Z- T) ]" e" z0 J: ]. z但是你會發現最後一孔重疊孔，不钻它.因為有钻過了
5 A+ ^% v/ I; T5 H1 Z: g
8 n' c. T1 t9 t: y) ^: x8 `. L一般人會先钻50mmX4孔之後再钻40mmX4孔....或者先钻40mmX5孔
再去钻50mmX3孔
9 ]$ F9 [  B3 R) p5 p, W我有個怪胎的想法，先到先钻....有重複它會判斷去钻下一孔
5 @: s9 q/ v& t8 B; O; [無論要钻幾孔兩者相遇幾次不會1孔钻2次


! S# c! c( b5 [6 e& Q% m' u, DO1234
" q* M# J* F/ n  f" wG81 K0(FANUC)L0(三菱)
G65P1A0.B0.I50.J40.K8.H10.Y10.
6 @- m$ Y, j2 @* x9 [G80
* C& y; p! Y8 G, K4 C$ @
! X& t4 k2 ~% Q( @A.B起始點(起角.X分為兩個)
I.J(孔距增量)
  S8 T6 X1 q( NK.H(孔數)
Y(高度)

#13=#6(孔轉移)
#23=#11
#31=#1(起點轉移)
2 I+ |, M9 y( h$ V#32=#2
/ K5 S$ g, Y' d
IF[#1GT#2]GO20(如果A的起點(角)大於B.先做小B)
+ U6 f# q0 K2 L( v8 I) x2 r' b
N10 WH[[#13GE1.]AND[#31LE#32]]DO1(A孔數 AND #1小於或等於#2在此層次循環)
& f6 s/ `' F) J! mG90 X#31 Y#25
#13=#13-1.
+ U. q+ s( H! A; s4 j5 u  q+ \#31=#1+#4*[#6-#13] (A+I起角更新)
IF[#32NE#31-#4]GO15 (如果B等下要钻的點.與當前A钻的同點.B演算下面.A判斷是否繼續钻)
; a# i, H: a2 V#23=#23-1. (B孔數-1.孔)
#32=#32+#5 (B距離更新一個J增量)
N15 END1
/ m- H- E7 [6 n
N20 WH[[#23GE1.]AND[#32LE#31]]DO2(B孔數 AND #2小於或等於#1在此層次循環)
3 l: J2 u4 \; d$ g' U( i) \G90 X#32 Y#25
& J& K5 K: V- z1 `8 }. b+ O6 J#23=#23-1.
. A# o5 |2 l1 j5 `9 ~# w#32=#2+#5*[#11-#23] (B+J起角更新)
IF[#31NE#32-#5]GO25 (如果A等下要钻的點.與當前B钻的同點.A演算下面.B判斷是否繼續钻)
/ {9 m, T$ u' h$ h5 E! F, k#13=#13-1. (A孔數-1.孔)
#31=#31+#4 (A距離更新一個I增量)
5 l1 v6 j+ Z" f/ S7 KN25 END2
IF[#13GE1.]GO10(A孔數未到跳回去N10)
+ V8 x4 q. q' }9 o4 a  y* gIF[#23GE1.]GO20(B孔數未到跳回去N20)
. ~0 o* @0 f: r2 B7 e1 @9 b' h* D2 w* N  NM0
' S' T) E$ r# k* |
適用於
夾杂兩種角度的圓周孔(在同一半徑上)或
夾杂兩種孔距的直排孔(在同一水平線上)皆可參考
5 [# b; j; b. v: H
有沒有懂，懂之後有更好的方式，請您指點

xinsuixue521

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

羅蓋仙

回复 2# xinsuixue521
& p/ R7 v. B7 _
# [0 w# B. K6 i, J4 F
謝謝啦！小弟不敢當...不敢當

vinney777

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

1426437527

不错，学习一下啊

744439842

0 h0 b, _6 u: J' @( |4 \LZ脑子真好使，研究宏程序研究的不错。