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

羅蓋仙

, s: N7 N1 ?7 E3 Q& R! W# l
共同位置孔(不重複鉆)會跳

最近小弟我在研究鉆孔，假設在水平上每50mm鉆一孔共鉆4孔
；夾雜了每40mm鉆一孔共鉆5孔，
但是你會發現最後一孔重疊孔，不鉆它.因為有鉆過了

" d/ t7 D! x: n7 e: ]" V一般人會先鉆50mmX4孔之後再鉆40mmX4孔....或者先鉆40mmX5孔
再去鉆50mmX3孔
我有個怪胎的想法，先到先鉆....有重複它會判斷去鉆下一孔
無論要鉆幾孔兩者相遇幾次不會1孔鉆2次

登錄/注冊后可看大圖

$ g/ c3 ?' A. f) E- M$ m+ Q! ZO1234
- n% d) l+ A- ~4 z3 EG81 K0(FANUC)L0(三菱)
G65P1A0.B0.I50.J40.K8.H10.Y10.
$ y8 x! m0 z5 H6 rG80

& `  i; L( B. k4 |& w- b) e( bA.B起始點(起角.X分為兩個)
/ O$ r# E6 u, r, R  S( DI.J(孔距增量)
K.H(孔數)
Y(高度)
3 {9 Y+ u8 H; ]7 ^" h* }
+ P) N; b3 ], c  T4 v, H% e/ i* w4 T- M#13=#6(孔轉移)
! O7 ~$ _* P" X#23=#11
+ ]9 @9 T, E7 @. g) T#31=#1(起點轉移)
#32=#2
  k" {% ~1 [3 i. Z& b6 k
IF[#1GT#2]GO20(如果A的起點(角)大於B.先做小B)

6 Z9 M4 E' G9 S9 Z6 A; C, mN10 WH[[#13GE1.]AND[#31LE#32]]DO1(A孔數 AND #1小於或等於#2在此層次循環)
/ g: q' ^, @1 k1 {6 {G90 X#31 Y#25
1 N0 ^/ X0 u8 n* V; ^+ A8 ~#13=#13-1.
) m5 y1 G; p5 i- H+ [' p1 C#31=#1+#4*[#6-#13] (A+I起角更新)
IF[#32NE#31-#4]GO15 (如果B等下要鉆的點.與當前A鉆的同點.B演算下面.A判斷是否繼續鉆)
#23=#23-1. (B孔數-1.孔)
#32=#32+#5 (B距離更新一個J增量)
N15 END1

N20 WH[[#23GE1.]AND[#32LE#31]]DO2(B孔數 AND #2小於或等於#1在此層次循環)
5 u: a! y% T0 s$ JG90 X#32 Y#25
& n5 C6 p! R& T; S#23=#23-1.
#32=#2+#5*[#11-#23] (B+J起角更新)
IF[#31NE#32-#5]GO25 (如果A等下要鉆的點.與當前B鉆的同點.A演算下面.B判斷是否繼續鉆)
#13=#13-1. (A孔數-1.孔)
3 l1 E& G. u8 P5 S#31=#31+#4 (A距離更新一個I增量)
N25 END2
- L7 c# O' A2 o- [" V! e. hIF[#13GE1.]GO10(A孔數未到跳回去N10)
# m, T! p5 d5 Z+ k9 yIF[#23GE1.]GO20(B孔數未到跳回去N20)
M0

適用於
夾雜兩種角度的圓周孔(在同一半徑上)或
0 `; t; M$ v( T( z/ u" D& M" X2 W夾雜兩種孔距的直排孔(在同一水平線上)皆可參考
$ L4 Y( U) D7 |% h0 ^, @% T5 k7 I
& A# K& W+ C/ w" B. r2 Z* y! W有沒有懂，懂之後有更好的方式，請您指點

xinsuixue521

LZ腦子真好使，研究宏程序研究的不錯。

羅蓋仙

回復 2# xinsuixue521
% O' o6 V' d, V

0 r3 r. T# n# q! |& K% W. F謝謝啦！小弟不敢當...不敢當

vinney777

不錯，學習，不過此種想法很難在軟件上自動實現

1426437527

不錯，學習一下啊

744439842

3 a. S6 l% \; xLZ腦子真好使，研究宏程序研究的不錯。