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

羅蓋仙

. N( I: i6 j. m% N1 l4 H/ _
共同位置孔(不重複鉆)會跳

最近小弟我在研究鉆孔，假設在水平上每50mm鉆一孔共鉆4孔
3 g. m3 k7 H6 X2 V  k+ f: L；夾雜了每40mm鉆一孔共鉆5孔，
但是你會發現最後一孔重疊孔，不鉆它.因為有鉆過了
8 O! |9 d. z( Z4 ^- L; l
一般人會先鉆50mmX4孔之後再鉆40mmX4孔....或者先鉆40mmX5孔
3 h) l; W4 Z6 B9 i1 V: r6 T6 U再去鉆50mmX3孔
我有個怪胎的想法，先到先鉆....有重複它會判斷去鉆下一孔
+ e& B" c# M- }6 G無論要鉆幾孔兩者相遇幾次不會1孔鉆2次

登錄/注冊后可看大圖

  A" o7 e/ _0 O, S1 z) {
5 w# I& r# j; v+ m( @4 U( A, OO1234
G81 K0(FANUC)L0(三菱)
& _7 n, P, {$ F. F4 y9 F# iG65P1A0.B0.I50.J40.K8.H10.Y10.
G80

A.B起始點(起角.X分為兩個)
I.J(孔距增量)
K.H(孔數)
/ ^& U  U3 v5 hY(高度)

- ~% C& J8 W  ^9 h#13=#6(孔轉移)
#23=#11
#31=#1(起點轉移)
#32=#2

/ ~0 n( Q: P4 w: G8 {( V4 mIF[#1GT#2]GO20(如果A的起點(角)大於B.先做小B)
; w. h5 M2 e  D0 M% e
N10 WH[[#13GE1.]AND[#31LE#32]]DO1(A孔數 AND #1小於或等於#2在此層次循環)
G90 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.孔)
  t; ]( w9 s+ `- l- N#32=#32+#5 (B距離更新一個J增量)
N15 END1

& t8 R3 r9 J* `$ k& @: FN20 WH[[#23GE1.]AND[#32LE#31]]DO2(B孔數 AND #2小於或等於#1在此層次循環)
0 V$ F5 n" e& Z- b0 M4 Z0 DG90 X#32 Y#25
#23=#23-1.
! J7 B0 c# n: W4 f#32=#2+#5*[#11-#23] (B+J起角更新)
IF[#31NE#32-#5]GO25 (如果A等下要鉆的點.與當前B鉆的同點.A演算下面.B判斷是否繼續鉆)
#13=#13-1. (A孔數-1.孔)
#31=#31+#4 (A距離更新一個I增量)
+ j1 T0 J# A# N, NN25 END2
IF[#13GE1.]GO10(A孔數未到跳回去N10)
. p' r, Z+ C1 h- |IF[#23GE1.]GO20(B孔數未到跳回去N20)
M0

適用於
& p0 H6 n" Y$ `6 u: g夾雜兩種角度的圓周孔(在同一半徑上)或
7 y! Q4 E  ]" g0 T+ I: r4 ~& t夾雜兩種孔距的直排孔(在同一水平線上)皆可參考
9 m& |8 U' j8 w9 u# b) ~# }/ {
有沒有懂，懂之後有更好的方式，請您指點

xinsuixue521

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

羅蓋仙

回復 2# xinsuixue521
! r; ]4 l; A$ Z# B

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

vinney777

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

1426437527

不錯，學習一下啊

744439842

* b- b- t. S1 X5 qLZ腦子真好使，研究宏程序研究的不錯。