|
|
global mom_kin_machine_type
7 t% F$ y% `+ _& d. p$ F: x+ U global mom_kin_4th_axis_type mom_kin_4th_axis_plane, F( z9 I0 H1 ]) U
global mom_kin_5th_axis_type4 m) {/ e2 j% \) p1 @
global mom_tool_axis mom_sys_spindle_axis mom_kin_spindle_axis6 M; Z8 H- K! o* E6 r8 I* I$ p
global mom_pos4 M) b5 p' d! `# w i6 g
global mom_cycle_spindle_axis mom_cutcom_plane mom_pos_arc_plane
6 ^8 N+ h" \8 x; {0 `9 _5 }
. O( o! z& q" z- N
- E7 _ N/ J, C, O+ }, K # Default cycle spindle axis to Z6 F' E9 R# C& S* w: l$ c) N
set mom_cycle_spindle_axis 2
" L) p! ]$ F5 r f. U# U! |4 Q6 i1 C6 Y7 y+ N( a
$ J( C9 i( W) D& Z# _ if { ![string match "*3_axis_mill*" $mom_kin_machine_type] } {
: W4 t( V! K% V+ p5 P4 r$ j7 V2 p( Z
8 v' b! O5 B: B if { $mom_kin_4th_axis_type == "Head" } {
" Q; N8 m2 o# W; z+ ^: Z+ n& H! F' j) g% }/ C' }- }; Y
if [EQ_is_equal [expr abs($mom_tool_axis(0))] 1.0] {
/ x* |; k# `' L- f/ [$ ~" p5 o- | set mom_cycle_spindle_axis 0* }4 h" W' Y* T- k
}9 b( z, N! |+ f
" f: [0 A3 ?9 V7 |( n v+ @+ l( J
if [EQ_is_equal [expr abs($mom_tool_axis(1))] 1.0] {; j3 v# O7 Y* r4 u! S- Z9 U" H
set mom_cycle_spindle_axis 1/ s" W0 b9 j; o2 v/ `* A
}5 |+ N8 g3 [% l2 ^! i" H
$ d6 ^7 ~& p3 ]" z8 D if { $mom_kin_5th_axis_type == "Table" } {
6 |+ ]0 R1 F0 A; ]- o+ m0 ^8 d b# a) w
if { [EQ_is_equal [expr abs($mom_pos(3))] 90.0] || [EQ_is_equal [expr abs($mom_pos(3))] 270.0] } {7 G+ z2 A! }0 ^# X" q2 X* Z5 b6 K
- [3 R1 E/ N. P r5 L4 _' _
switch $mom_kin_4th_axis_plane {& V9 q3 j* U, X, {7 G
"YZ" {
* t" Q+ y4 C# C! U9 e set mom_cycle_spindle_axis 1& ^2 l1 U- Y- y* J# \' [% u
}
9 J; w# D7 p. o, @3 K "ZX" {3 g' }- K6 U6 r* o- _
set mom_cycle_spindle_axis 0. `$ e( S+ G0 L7 y4 I- {
}
0 l) t2 Q+ R0 k }
- {5 T1 Z8 {) d7 M: H/ c- Q- b }+ T+ v7 K% l% E& k3 R, @9 Z. h
}0 ~; ~% a1 i3 j! J, b& N- `
}
0 W* k8 Z* [1 k5 K+ H0 N" i }& a1 h7 R- D4 ?5 ~- s7 `8 X, U8 D
$ J& t t5 l9 ^" w7 t1 f$ P4 U' Z
: }4 l. E" S) V0 d' v
switch $mom_cycle_spindle_axis { n' E( F8 a4 B
0 {
1 f# Z( |0 K1 L! } set mom_cutcom_plane YZ
+ `; P7 S' l% @5 m6 O3 \/ G set mom_pos_arc_plane YZ* \) T3 ^8 X+ O
set principal_axis X3 X3 d- n, }4 |$ w8 {1 ~
}
/ K4 a/ L8 ?5 i$ d 1 {
6 ?9 F5 B: z- ^+ r0 `. f1 a set mom_cutcom_plane ZX
8 Y V/ g) q2 b' v1 G+ a, E5 R set mom_pos_arc_plane ZX5 E: J0 C' c1 G$ w0 ]) m& b
set principal_axis Y
! m$ k7 @ z4 F$ V1 _* i; E }
. Q0 S& v+ l' S* I- v+ S 2 {
! A5 F1 k! i9 \6 d set mom_cutcom_plane XY
/ Y v5 G' J" q9 ]. v, { set mom_pos_arc_plane XY+ U- h: x- `8 P: n" N
set principal_axis Z5 l9 c( ~( N1 Q: b
}* y6 I3 h& S5 A U$ {9 _! @* R4 y
default {
& X. F5 g3 |1 j& M2 m8 c3 B& w set mom_cutcom_plane UNDEFINED
P- _& K* y* S set mom_pos_arc_plane UNDEFINED
1 {. t9 Q& U* N0 f {; j) N set principal_axis ""& C5 Z% q* y4 u
}
! c" e0 [% S- f0 \# Z5 w }
% D% W0 k% G9 A/ V- k. `
% ^# e# Y7 n, J$ f6 k) y8 V" X$ M, b% q. o1 q& ~7 [( w
if { $suppress_principal_axis && [string length $principal_axis] > 0 } {
1 }" F% b( N' Z" G7 X MOM_suppress once $principal_axis6 L. N2 I5 a" v7 k. G% X! d
}& n5 g4 v* J# {; C: c
) f4 P) ~# _5 o) O) w: y) O- m
6 ~- f, l9 f0 h if { $force_plane_code } {
0 h+ |7 E8 a# i1 b1 t5 J, y global cycle_init_flag
) @4 _- l+ K( K" z2 q
+ U; ?5 G( X8 A) } if { [info exists cycle_init_flag] && [string match "TRUE" $cycle_init_flag] } {/ r2 F7 D# G7 Y8 w5 O% O0 I; C
MOM_force once G_plane
+ d& ^8 S1 t V1 ? }
3 L& P. |4 I. W2 i; t; L1 d } |
|
/2 
|Archiver|手機版|小黑屋|若楓后處理論壇
( 蘇ICP備11015087號-1|
蘇公網(wǎng)安備32059002001368號 )
IP卡
狗仔卡
發(fā)表于 2020-1-12 09:01:29
顯身卡