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

羅蓋仙

共同位置孔(不重複鉆)會跳

7 {( D! J5 p( D1 k. J最近小弟我在研究鉆孔，假設在水平上每50mm鉆一孔共鉆4孔
" h' Z  \0 X& X0 z& V；夾雜了每40mm鉆一孔共鉆5孔，
/ u4 B6 V! p( K3 P& U2 K. |但是你會發現最後一孔重疊孔，不鉆它.因為有鉆過了
4 G2 t+ t$ C2 \9 I+ D+ K
一般人會先鉆50mmX4孔之後再鉆40mmX4孔....或者先鉆40mmX5孔
再去鉆50mmX3孔
* ^% n' x- Z- d, U我有個怪胎的想法，先到先鉆....有重複它會判斷去鉆下一孔
+ ]+ y0 ]$ L' {4 m1 q# |無論要鉆幾孔兩者相遇幾次不會1孔鉆2次

登錄/注冊后可看大圖

6 ~8 b9 n( m* n5 r9 Y/ ^0 u( NO1234
# @' W& ]( n7 d# @% z/ F- \: ]G81 K0(FANUC)L0(三菱)
G65P1A0.B0.I50.J40.K8.H10.Y10.
G80
$ b; Z- S7 q" E) S1 u( k
A.B起始點(起角.X分為兩個)
8 w5 m( Z! P* P# ~& J# H& h. tI.J(孔距增量)
K.H(孔數)
Y(高度)
0 o+ z- R. V7 ?) n% q/ w2 J
6 z' d  f) a' z#13=#6(孔轉移)
; @7 }( x# \5 ]: @7 p4 u#23=#11
: m/ {0 o- B2 P! l3 [#31=#1(起點轉移)
$ N" u6 A# J+ a! U% V#32=#2

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

N10 WH[[#13GE1.]AND[#31LE#32]]DO1(A孔數 AND #1小於或等於#2在此層次循環)
G90 X#31 Y#25
#13=#13-1.
9 j  `" @4 I8 w0 I#31=#1+#4*[#6-#13] (A+I起角更新)
% e! b9 S+ ~1 Z4 U! ]) aIF[#32NE#31-#4]GO15 (如果B等下要鉆的點.與當前A鉆的同點.B演算下面.A判斷是否繼續鉆)
#23=#23-1. (B孔數-1.孔)
' @* S+ Y8 r3 q" S( s8 n0 I9 b* s#32=#32+#5 (B距離更新一個J增量)
N15 END1

, R( B4 i5 {% j, Z0 E( v3 vN20 WH[[#23GE1.]AND[#32LE#31]]DO2(B孔數 AND #2小於或等於#1在此層次循環)
3 j  I6 Y9 F" SG90 X#32 Y#25
#23=#23-1.
#32=#2+#5*[#11-#23] (B+J起角更新)
IF[#31NE#32-#5]GO25 (如果A等下要鉆的點.與當前B鉆的同點.A演算下面.B判斷是否繼續鉆)
8 p6 T" g# Q( |5 M4 B9 r5 d: Y; r" r#13=#13-1. (A孔數-1.孔)
" l4 O3 }" `3 Y3 a7 ]#31=#31+#4 (A距離更新一個I增量)
N25 END2
4 u/ o. k$ ]! g; f; V& c2 j/ g5 ~; `IF[#13GE1.]GO10(A孔數未到跳回去N10)
IF[#23GE1.]GO20(B孔數未到跳回去N20)
3 e! l3 {1 y6 G& F3 }* i3 ~M0
, M; G, o' G& ]+ S% Z
適用於
夾雜兩種角度的圓周孔(在同一半徑上)或
夾雜兩種孔距的直排孔(在同一水平線上)皆可參考
' E3 [( j6 u. k
4 v  h9 `; P+ b6 o6 G有沒有懂，懂之後有更好的方式，請您指點

xinsuixue521

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

羅蓋仙

回復 2# xinsuixue521


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

vinney777

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

1426437527

不錯，學習一下啊

744439842

6 }8 v/ E. h$ O0 a- z2 |LZ腦子真好使，研究宏程序研究的不錯。