|
|
global mom_kin_machine_type
" W$ K4 g4 G: y" ~5 d global mom_kin_4th_axis_type mom_kin_4th_axis_plane3 H. x& b1 d. R5 p3 x. h/ L4 o
global mom_kin_5th_axis_type# q( X- S$ d. K) a
global mom_tool_axis mom_sys_spindle_axis mom_kin_spindle_axis' E9 P, D5 i3 m8 I4 s
global mom_pos: K0 {: k2 s2 I* o$ P7 W# h" [ }9 ~& j
global mom_cycle_spindle_axis mom_cutcom_plane mom_pos_arc_plane0 t6 E) W. x- [5 I2 W, ^9 b/ t( \( a
. q1 P! B4 @0 G% ]
, I2 v- i- w) C" e
# Default cycle spindle axis to Z
# K. s! T" k' d* R7 t+ v2 d1 J set mom_cycle_spindle_axis 26 s( U7 Z1 X7 u) @0 W8 V
& p; u5 y% ]" k) Y0 L
' i% Y; m. Y# T' h" p) Z) [5 c" L if { ![string match "*3_axis_mill*" $mom_kin_machine_type] } {6 z( U' \$ {3 S& @0 B
' U# A) @8 k* N$ Y& T
if { $mom_kin_4th_axis_type == "Head" } {" p7 ?3 `0 B5 \, F
* t' ^4 N$ L0 ?* ^) k
if [EQ_is_equal [expr abs($mom_tool_axis(0))] 1.0] {
; z# H: i' M; V8 C7 K: _) P set mom_cycle_spindle_axis 0
S/ X! f9 D. I$ s2 _! o, l. i) d }% M6 P. R. {6 D1 V n
- h2 `. E2 T. Y: m; ^
if [EQ_is_equal [expr abs($mom_tool_axis(1))] 1.0] {
# Y6 i6 j) [4 X8 ?. y( u1 P$ ^ set mom_cycle_spindle_axis 1
, `0 @8 R2 z' [) d: ]$ Y* P2 c }( y: i# v4 K- D8 K! h
0 p- _8 o1 H0 a C9 m
if { $mom_kin_5th_axis_type == "Table" } {) X! L p( {; V, |# C
- T7 ]$ d0 o7 F2 Y( y5 X( h* ~& T
if { [EQ_is_equal [expr abs($mom_pos(3))] 90.0] || [EQ_is_equal [expr abs($mom_pos(3))] 270.0] } {
x2 X1 ?7 f$ b( u' }7 H7 }3 r* F j0 ?: F, d% [5 z
switch $mom_kin_4th_axis_plane { D4 I/ ]4 U) W, v% Q* q
"YZ" {+ H! h2 F) L/ @) M9 y) O" I
set mom_cycle_spindle_axis 1
* d2 l! ]$ \/ h }* }$ f7 T) h( K- L) \
"ZX" {
; T9 l. ~; k7 e n+ r; S set mom_cycle_spindle_axis 0
+ G- Z- l8 c w" h: i( b' F }
! N% W8 {$ f2 Z7 D }
. W! b8 U$ o- F/ `. x4 i }8 D0 C* D& W' P3 R6 X; ^8 `
}* Y6 a0 F1 @- ~' n% v
}
0 Y6 S& r& M5 g; p6 g }
" J7 H% a6 y. n% E0 S! j
4 d8 J- c2 g! v2 F, |) z
& Z, @; F3 n$ p5 ` switch $mom_cycle_spindle_axis {' d, s) t+ v3 J2 d: C# t/ N6 z: i3 P& C2 ]; S
0 {
/ F( H0 t4 s0 i2 t* o# T+ K set mom_cutcom_plane YZ! l; Z+ H" f5 B; N( e+ v
set mom_pos_arc_plane YZ
1 y/ h- @9 U. K2 ?4 H5 _ set principal_axis X+ t/ O, [, n3 |, \5 s
}
- ^. _' ]# j$ h# m 1 {
( V+ M3 X* U% m* u( _: b set mom_cutcom_plane ZX* ~% i- j/ K) E
set mom_pos_arc_plane ZX F- `6 K; R' x" K9 K. {( |; x
set principal_axis Y+ t6 {5 f+ Y) W# I
}
# Z/ C" t/ x0 @4 V8 \7 r2 e 2 {' J7 E8 O! g4 {% x* Y* [
set mom_cutcom_plane XY
! B% \, R: C9 K set mom_pos_arc_plane XY
$ r; X. X. w- J0 Y3 k set principal_axis Z
. o+ O3 K/ X( `( @" a% z. X' b4 d }" `( L1 C9 H( w/ p2 B
default {5 Y' A# y9 a9 q( F
set mom_cutcom_plane UNDEFINED
+ T0 u9 o" M, O6 @ set mom_pos_arc_plane UNDEFINED3 i( j8 v- m) T5 j
set principal_axis ""
- M$ R1 b1 q4 u m1 j( B }
$ s& Y/ ~9 X% R( U3 M3 p" Z0 C+ p0 g }
, k a. K% R' f: Z7 |; ~4 t8 \8 \$ Z2 x2 q9 l) N9 O
* N6 T7 P, e2 M/ S" ?
if { $suppress_principal_axis && [string length $principal_axis] > 0 } {
4 X: `& s2 O, `) Q( e, a( a, ~ MOM_suppress once $principal_axis
5 s; _4 u& Q6 s: E }+ j2 E5 Q" P! e- Z( Z1 [* J
% \7 M- f3 q# h% @6 i7 n
Y3 q& ^: {3 J$ `- I if { $force_plane_code } {8 |$ `- \" w7 C8 [. x" |
global cycle_init_flag0 P" o( ]& o0 g% u0 t2 |& K4 m$ o; ^
2 D6 ]1 y4 a) \% H! d y
if { [info exists cycle_init_flag] && [string match "TRUE" $cycle_init_flag] } {
' C! t" y D, _# x2 n. M: i5 ^8 Z. { MOM_force once G_plane1 ~. t! Z5 {1 H. C& y, l
}! z( C% y$ q. D
} |
|
/2 
|Archiver|手機版|小黑屋|若楓后處理論壇
( 蘇ICP備11015087號-1|
蘇公網安備32059002001368號 )
IP卡
狗仔卡
發表于 2020-1-12 09:01:29
顯身卡