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

羅蓋仙

8 x! g! _7 ]6 V" l! x
' {  O' m2 X, \* d; K* z2 }* ?6 G共同位置孔(不重複鉆)會跳
6 w9 c" }% E8 e9 m5 e% Y: \
最近小弟我在研究鉆孔，假設在水平上每50mm鉆一孔共鉆4孔
；夾雜了每40mm鉆一孔共鉆5孔，
6 w/ u' m0 N: E% F- H但是你會發現最後一孔重疊孔，不鉆它.因為有鉆過了
- i7 F! b1 c) I* o  R! B$ `0 N
一般人會先鉆50mmX4孔之後再鉆40mmX4孔....或者先鉆40mmX5孔
2 o4 X: E: T% i3 Q+ W' g6 e" L再去鉆50mmX3孔
& R. A3 S* O. m! }, V! `我有個怪胎的想法，先到先鉆....有重複它會判斷去鉆下一孔
( C8 U0 W6 l, v/ L$ N: o* f$ Y) O無論要鉆幾孔兩者相遇幾次不會1孔鉆2次

登錄/注冊后可看大圖

# p8 y: |8 Y" R  p9 U$ g: L% kO1234
G81 K0(FANUC)L0(三菱)
6 P8 A0 U3 ~3 s9 yG65P1A0.B0.I50.J40.K8.H10.Y10.
G80
& E0 Z: S. Y6 R' }* m/ [3 S
6 a7 G2 M7 b8 V0 [( C# s, E6 U0 eA.B起始點(起角.X分為兩個)
0 N5 G3 K' j3 tI.J(孔距增量)
# w7 R' I  u& `$ s9 CK.H(孔數)
( T: f8 R5 B2 P6 ?3 O: vY(高度)

#13=#6(孔轉移)
# Z  g+ F0 J+ ~. h#23=#11
#31=#1(起點轉移)
/ Q9 t0 I7 O$ p: e, w1 E#32=#2

IF[#1GT#2]GO20(如果A的起點(角)大於B.先做小B)
, S6 h+ q7 a: c* `+ Q, L+ c
0 B) @9 U1 {. G( S) A$ v+ B; @0 \N10 WH[[#13GE1.]AND[#31LE#32]]DO1(A孔數 AND #1小於或等於#2在此層次循環)
8 i  W9 l; U2 @1 d& E% J* YG90 X#31 Y#25
8 h& L6 U# c0 H: N" n; K9 j+ L#13=#13-1.
#31=#1+#4*[#6-#13] (A+I起角更新)
, N- ^! ?- p; }) O/ h" jIF[#32NE#31-#4]GO15 (如果B等下要鉆的點.與當前A鉆的同點.B演算下面.A判斷是否繼續鉆)
9 P5 w+ q3 x! D#23=#23-1. (B孔數-1.孔)
#32=#32+#5 (B距離更新一個J增量)
. v- Z. T9 W( I( q( i. xN15 END1
, }7 w% G2 h7 U  _# M$ }$ P
N20 WH[[#23GE1.]AND[#32LE#31]]DO2(B孔數 AND #2小於或等於#1在此層次循環)
G90 X#32 Y#25
#23=#23-1.
" g3 r4 ]* N& A#32=#2+#5*[#11-#23] (B+J起角更新)
IF[#31NE#32-#5]GO25 (如果A等下要鉆的點.與當前B鉆的同點.A演算下面.B判斷是否繼續鉆)
3 j$ d6 v0 k2 h% t0 Z; c#13=#13-1. (A孔數-1.孔)
#31=#31+#4 (A距離更新一個I增量)
" w6 [: A4 L  I; c0 o$ P1 P+ sN25 END2
IF[#13GE1.]GO10(A孔數未到跳回去N10)
! m- W. m( C/ d! Q; q" v( x7 IIF[#23GE1.]GO20(B孔數未到跳回去N20)
M0

% a! L+ _: |1 k0 ?7 g  p: ~  J; z適用於
夾雜兩種角度的圓周孔(在同一半徑上)或
夾雜兩種孔距的直排孔(在同一水平線上)皆可參考

有沒有懂，懂之後有更好的方式，請您指點

xinsuixue521

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

羅蓋仙

回復 2# xinsuixue521
  ?) F3 x1 K* ~; K* Y8 P( P) `+ m, B
& J/ k0 ~0 t" e. w
謝謝啦！小弟不敢當...不敢當

vinney777

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

1426437527

不錯，學習一下啊

744439842

3 l1 E8 Z4 S+ ~LZ腦子真好使，研究宏程序研究的不錯。