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

羅蓋仙

. A  A. S! @5 B
共同位置孔(不重複钻)會跳

最近小弟我在研究钻孔，假設在水平上每50mm钻一孔共钻4孔
；夾杂了每40mm钻一孔共钻5孔，
7 k: H6 q3 d8 m  c0 o4 H但是你會發現最後一孔重疊孔，不钻它.因為有钻過了
0 S4 d  Y. H6 u0 h2 {
一般人會先钻50mmX4孔之後再钻40mmX4孔....或者先钻40mmX5孔
7 E7 }7 j' K. U1 a0 `$ |再去钻50mmX3孔
我有個怪胎的想法，先到先钻....有重複它會判斷去钻下一孔
* b9 {* W( b; d- G5 r; e; k無論要钻幾孔兩者相遇幾次不會1孔钻2次


O1234
9 [) S6 G: }; ]2 d% \G81 K0(FANUC)L0(三菱)
9 y- h0 [7 l0 p( m' _3 F5 q0 ~; PG65P1A0.B0.I50.J40.K8.H10.Y10.
6 F+ c8 ^0 S) @! q; W7 \, YG80

/ l4 W9 m9 M5 ^, o/ V4 ]5 ZA.B起始點(起角.X分為兩個)
I.J(孔距增量)
K.H(孔數)
# J9 t3 o( {: ]/ w2 y( |  xY(高度)

; I( d! f# G7 n3 s5 ]6 F#13=#6(孔轉移)
9 x- I- R4 X9 u3 ]" G#23=#11
7 n7 K. n+ L8 ]. r3 k7 W( s5 j" K  h#31=#1(起點轉移)
! L) @, T3 Q; ]& z#32=#2

IF[#1GT#2]GO20(如果A的起點(角)大於B.先做小B)

4 g. a( {9 ~0 @) Z( _6 [N10 WH[[#13GE1.]AND[#31LE#32]]DO1(A孔數 AND #1小於或等於#2在此層次循環)
' q/ S$ k, R/ E/ xG90 X#31 Y#25
#13=#13-1.
#31=#1+#4*[#6-#13] (A+I起角更新)
IF[#32NE#31-#4]GO15 (如果B等下要钻的點.與當前A钻的同點.B演算下面.A判斷是否繼續钻)
#23=#23-1. (B孔數-1.孔)
( Q7 B" C5 D4 E8 j; U5 l3 J#32=#32+#5 (B距離更新一個J增量)
! H# R' i6 i, n" z: DN15 END1
: Z: y0 F# \0 W' P$ [5 H9 |, L5 n
% m$ B- j$ A" p* _N20 WH[[#23GE1.]AND[#32LE#31]]DO2(B孔數 AND #2小於或等於#1在此層次循環)
G90 X#32 Y#25
' e; d$ {) p/ o% K2 E#23=#23-1.
#32=#2+#5*[#11-#23] (B+J起角更新)
IF[#31NE#32-#5]GO25 (如果A等下要钻的點.與當前B钻的同點.A演算下面.B判斷是否繼續钻)
4 |+ v) h, T; R  o& I/ h9 I% p. y#13=#13-1. (A孔數-1.孔)
  O$ A3 m7 I2 v7 R& _#31=#31+#4 (A距離更新一個I增量)
; s2 g& w) {) |0 U0 H1 i! tN25 END2
* _1 Z) K) A2 G4 M" ~IF[#13GE1.]GO10(A孔數未到跳回去N10)
8 ~1 ?8 N: b1 q5 o, D2 Q6 K( RIF[#23GE1.]GO20(B孔數未到跳回去N20)
M0
* p  n/ I$ q+ K% Q! y$ f8 k
; B/ @, O% ~) ^( w6 H; }適用於
夾杂兩種角度的圓周孔(在同一半徑上)或
夾杂兩種孔距的直排孔(在同一水平線上)皆可參考
7 y  W6 s) J5 c4 K
" |. o+ Z( h! T# ]* q, L有沒有懂，懂之後有更好的方式，請您指點

xinsuixue521

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

羅蓋仙

回复 2# xinsuixue521


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

vinney777

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

1426437527

不错，学习一下啊

744439842

: H. a8 e! G0 k1 tLZ脑子真好使，研究宏程序研究的不错。