|
|
发表于 2020-8-8 16:45:51
|
显示全部楼层
global mom_kin_machine_type
k. M' `2 S. ?4 D$ Q9 ` global mom_kin_4th_axis_type mom_kin_4th_axis_plane+ `& v3 W1 \6 E3 l& B0 v
global mom_kin_5th_axis_type
/ ~+ L0 p" M; d7 l k global mom_tool_axis mom_sys_spindle_axis mom_kin_spindle_axis
! r- B- w: N: ?8 j/ P- i9 X global mom_pos- g7 p; G, J1 j3 i& o9 D2 M
global mom_cycle_spindle_axis mom_cutcom_plane mom_pos_arc_plane; B V, T8 ?' ]& r
7 o+ t% a$ {. j) q
& p$ v/ z* m% b- d # Default cycle spindle axis to Z7 |* ~5 E8 J. N! [1 b
set mom_cycle_spindle_axis 2/ U: l V$ E0 {) T q6 Z
" W6 I1 W g) j' P3 P: Z- s
w) R3 q% p2 [ X$ m6 e; k if { ![string match "*3_axis_mill*" $mom_kin_machine_type] } {
' L: F( U! c) W
7 C, R# M! o& x& z$ o- H' k3 V if { $mom_kin_4th_axis_type == "Head" } {
* Q# Y; E0 C" H* a, {2 C, p( V0 ^
6 i% w# ` m* e6 {$ N6 Z if [EQ_is_equal [expr abs($mom_tool_axis(0))] 1.0] {
& z4 U, T& j" B6 Y* X; I8 ^/ H# Q set mom_cycle_spindle_axis 0
: b! I2 c& y! K2 \: a& P7 w, I5 J7 j+ | }. x" I4 e# j$ R( e Y# j \4 O
! |5 n! c7 g; h( @$ ] y. R* C" ] if [EQ_is_equal [expr abs($mom_tool_axis(1))] 1.0] {. Z% a, ^) n* G: L: M9 Q5 D8 a' _
set mom_cycle_spindle_axis 13 s7 U; I8 ^8 n+ ~) X: T
}
" v3 u: h9 A- `4 n. A5 {. q1 |
7 } ~$ J7 ]1 c, m/ w3 b if { $mom_kin_5th_axis_type == "Table" } {
; b3 V3 x2 K* A! y& J# S# j5 @
1 M9 \) ~' B3 S! t# u" h7 a9 x; \ if { [EQ_is_equal [expr abs($mom_pos(3))] 90.0] || [EQ_is_equal [expr abs($mom_pos(3))] 270.0] } {; p& l- m8 w6 Z
% R5 ~) p3 u* ~9 b! J. [, j switch $mom_kin_4th_axis_plane {; M& g* D( L% |! U) a+ c
"YZ" {
* s7 N. s& y. y set mom_cycle_spindle_axis 16 V3 b( k, B9 Q) P9 s, y6 o
}
2 R, P. n# V4 P "ZX" {
! H, }5 r& E$ A; H7 \ set mom_cycle_spindle_axis 0
$ e( R/ O9 |" v: L5 x/ r* b }9 |$ j5 t, d$ a& G; X4 X
}0 u- U9 T: Q$ f6 ? {% c
}
/ D% X: k6 U. J# W( g' Z }2 j- s/ V3 a4 Z$ F" b
}% I& Z- P" c( g
}& p4 v( t3 ?8 }1 d; d0 k2 \
: {9 H( S7 Y9 X; D; q! {
+ J& U* O- U! B) q; P switch $mom_cycle_spindle_axis {5 e ^3 Z o+ r- I- R' W
0 {
K7 s4 E/ ?) h- Q) A. U set mom_cutcom_plane YZ8 w' w$ F. J' M. ~/ D4 N5 A( [
set mom_pos_arc_plane YZ9 H, v# ?; s' ]2 P. i
set principal_axis X2 F0 e7 N! x( W9 Z
} W/ A- S* m* f; I, j
1 {; d9 T- {( i) r; l8 N/ E) L
set mom_cutcom_plane ZX+ |9 Z. {6 l1 o) \
set mom_pos_arc_plane ZX
3 [& D ]+ E! O, \/ N. J set principal_axis Y6 q2 T+ {4 {5 `+ C* q3 ~
}* J. R4 C" o5 u# v" i1 C& E
2 {
& c! P! l( R y j3 w/ l set mom_cutcom_plane XY
( F" R# q6 M! X. T! g4 K( z set mom_pos_arc_plane XY
/ o- n6 @* i. b. i' X5 v8 `7 p7 r set principal_axis Z
1 P8 {6 j" I$ E8 J( t$ p }. P" b- Q! u1 n ~) T3 |. h
default {
$ d# m4 T U* A# @9 J0 S4 C set mom_cutcom_plane UNDEFINED
9 F* i+ S0 h; k set mom_pos_arc_plane UNDEFINED
0 c5 H" Z! ]/ O$ V7 L& M1 f D( X6 ~- F set principal_axis ""
2 d" w4 y3 @8 |& N+ E# [8 y }
. \8 e% V7 Y3 w2 I }
2 Z" y( ] R: I, X5 I& i" S! I8 o
: m) t8 l; ^/ l6 V9 J& [, `7 Y( h7 u- [2 P2 p) J
if { $suppress_principal_axis && [string length $principal_axis] > 0 } {
" q* c% f: [; T! v5 A% a+ ? MOM_suppress once $principal_axis
; h# [* n9 U- C1 X! c+ D9 V+ I }
9 a8 d5 m: \( a' z1 _& ~9 m2 F
% j* _4 D* L- _ Y* l$ l. b# c
if { $force_plane_code } {! ]# C1 \; q' a+ ~. y
global cycle_init_flag
) k# {' I( V: r+ L( O, B9 a9 @% P+ D( H% Y) s: B
if { [info exists cycle_init_flag] && [string match "TRUE" $cycle_init_flag] } {
- ~3 ~1 R1 s% l% j6 N8 I$ Y/ ?4 | MOM_force once G_plane" Z4 X" K! {) V
} E; k. g% q, @
} |
|