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

羅蓋仙

8 ?1 [9 U4 ^( U; }$ s- l
共同位置孔(不重複鉆)會跳
7 o0 ?& q" x4 N+ \! y$ G
最近小弟我在研究鉆孔，假設在水平上每50mm鉆一孔共鉆4孔
% m3 Q7 ~: m. x, A, b$ X；夾雜了每40mm鉆一孔共鉆5孔，
! _) @: c3 e6 q, Z  A但是你會發現最後一孔重疊孔，不鉆它.因為有鉆過了

) v0 D2 _' u0 B6 {) t一般人會先鉆50mmX4孔之後再鉆40mmX4孔....或者先鉆40mmX5孔
再去鉆50mmX3孔
; x# K& j+ N/ a- C! {我有個怪胎的想法，先到先鉆....有重複它會判斷去鉆下一孔
無論要鉆幾孔兩者相遇幾次不會1孔鉆2次
3 z  w$ p8 [2 o

登錄/注冊后可看大圖

' k; \8 g  _) p$ M5 `+ h
' o: e5 w5 w% ^3 d( F9 sO1234
2 A& D; m. n- w+ ]0 cG81 K0(FANUC)L0(三菱)
G65P1A0.B0.I50.J40.K8.H10.Y10.
G80

A.B起始點(起角.X分為兩個)
I.J(孔距增量)
K.H(孔數)
Y(高度)
+ `* m9 r  C' b+ a2 V
/ h8 H' j5 E/ c  [/ L$ {: w% S+ L/ J#13=#6(孔轉移)
#23=#11
0 r0 G8 \4 A! e#31=#1(起點轉移)
7 ^& l' |  A6 X5 {2 q#32=#2

7 t/ I* r" N9 Z) yIF[#1GT#2]GO20(如果A的起點(角)大於B.先做小B)
, W/ C5 U3 E. l' r/ a1 i
N10 WH[[#13GE1.]AND[#31LE#32]]DO1(A孔數 AND #1小於或等於#2在此層次循環)
0 B+ z0 f( K; y* `( }& @4 BG90 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.孔)
#32=#32+#5 (B距離更新一個J增量)
N15 END1

9 t7 U/ `* w$ i3 c4 d9 g. ^3 U7 ?N20 WH[[#23GE1.]AND[#32LE#31]]DO2(B孔數 AND #2小於或等於#1在此層次循環)
G90 X#32 Y#25
#23=#23-1.
#32=#2+#5*[#11-#23] (B+J起角更新)
IF[#31NE#32-#5]GO25 (如果A等下要鉆的點.與當前B鉆的同點.A演算下面.B判斷是否繼續鉆)
4 e! h6 ?" ~: x3 p& F4 d( e5 G#13=#13-1. (A孔數-1.孔)
#31=#31+#4 (A距離更新一個I增量)
N25 END2
IF[#13GE1.]GO10(A孔數未到跳回去N10)
IF[#23GE1.]GO20(B孔數未到跳回去N20)
9 I( J, s; l% U7 V0 |# DM0

7 r& B/ \- q- N: ^* A適用於
夾雜兩種角度的圓周孔(在同一半徑上)或
夾雜兩種孔距的直排孔(在同一水平線上)皆可參考

  g% v) Z7 \1 T& {  ]5 i- g有沒有懂，懂之後有更好的方式，請您指點

xinsuixue521

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

羅蓋仙

回復 2# xinsuixue521
( b( s+ F' O5 ?8 f

% W) X' f" K1 |# r$ R謝謝啦！小弟不敢當...不敢當

vinney777

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

1426437527

不錯，學習一下啊

744439842

5 ~6 v( N) K. I; a4 pLZ腦子真好使，研究宏程序研究的不錯。