|
|
global mom_kin_machine_type
6 |6 Y" P' A1 B4 ^3 B global mom_kin_4th_axis_type mom_kin_4th_axis_plane
' E6 \+ \! z7 ^ global mom_kin_5th_axis_type
, f& v6 q3 q% i) T; G& G- l global mom_tool_axis mom_sys_spindle_axis mom_kin_spindle_axis
: ?$ T$ M: F( K! O global mom_pos
, _3 q8 m R0 j global mom_cycle_spindle_axis mom_cutcom_plane mom_pos_arc_plane T8 ]* U8 E) H+ q& ?, F: x
- `3 a; z- p1 H3 u( ^7 H7 K* `& R
+ v4 u5 f' Q$ g/ W # Default cycle spindle axis to Z
) T# y/ C/ W, ~2 b set mom_cycle_spindle_axis 2
( D) D- _2 D3 z7 k3 M+ ~' ^9 c7 C \: a+ o4 K& \: K
4 W( ^2 h+ G. w5 I2 s5 A# ]5 C4 D
if { ![string match "*3_axis_mill*" $mom_kin_machine_type] } {
3 ?+ `4 N( o$ \6 v+ b0 n8 S: \
' ?# l: w$ l1 u( c6 J8 W/ r6 i& u if { $mom_kin_4th_axis_type == "Head" } {* q; \1 F8 z v. e: }- x0 ]
( x$ b5 A8 k# H) |; Q% e if [EQ_is_equal [expr abs($mom_tool_axis(0))] 1.0] {
. {2 V8 _/ G1 @( \ set mom_cycle_spindle_axis 0# i/ k8 }6 h6 F1 |2 B; I
}
# l" w& a1 m) \, B7 K; Z# A
6 Q/ G8 Y. u# Q7 {8 { if [EQ_is_equal [expr abs($mom_tool_axis(1))] 1.0] {
# E8 ]' J- R% j: C* z G set mom_cycle_spindle_axis 1) {7 Y G! a) V# }: t0 N$ P
}: q4 M* L4 `. i3 k" Q+ m
. c$ s2 [) @# i/ {+ Y& H- A3 ?
if { $mom_kin_5th_axis_type == "Table" } {0 ^7 A7 x/ K0 O. U# c' p
7 k( {- a0 k* j" K' P2 Q
if { [EQ_is_equal [expr abs($mom_pos(3))] 90.0] || [EQ_is_equal [expr abs($mom_pos(3))] 270.0] } {
5 K# v6 z0 ]8 X3 O- L
2 p& H4 p) M+ Y+ B8 {# W3 i switch $mom_kin_4th_axis_plane {
2 P# ^3 K8 p/ I: u* e: _9 A "YZ" {
. l( w P6 k2 u- B& ~ set mom_cycle_spindle_axis 1
. e/ B/ Z9 Z7 N; A }: i7 A& ?; [& W. r+ ^
"ZX" {
* t$ b: U: f# m" V6 a* r0 J+ K" c, L set mom_cycle_spindle_axis 0; b; U+ X2 K/ ~; H4 s) A
}6 d' ?- p6 N! u/ @ K0 L6 T
}
0 y& F" ]1 t H0 J9 P }8 J5 v/ q* J+ m% I
}& P% V, @% H3 P0 I5 F o
}
X5 D/ g$ k! y4 L, p- i0 L- M }/ b, f- l+ R: B# g+ Y* F W' A
- p. F; @4 C; W+ U( J6 j+ ] r# N1 B; h2 \3 K: }. B! x; }
switch $mom_cycle_spindle_axis {& z7 \& O" }! T) ]' C) u
0 {. T- E' ?2 d+ k
set mom_cutcom_plane YZ& D/ y/ N! q, W! ?% H' d" r
set mom_pos_arc_plane YZ
2 \9 a0 A# E/ y& T) [1 X3 b set principal_axis X; x4 f7 g6 j- E( r! B; M0 }( y
}
- `2 B+ m. i7 s; J. Y! N- r" q- o 1 {, ]6 L! K! D0 V) @) d, S! P
set mom_cutcom_plane ZX. z, f+ a% b$ D# N7 q0 D
set mom_pos_arc_plane ZX1 r0 z |9 O- k& J
set principal_axis Y6 I( ?" E7 U' a D' P
}
6 V0 I, g" p4 {/ T 2 {
1 c( X$ g+ {& p% o" W" G9 w3 n- V* t set mom_cutcom_plane XY8 [9 m1 \9 s4 Q+ m
set mom_pos_arc_plane XY' o/ T) ` x) X, \9 M. E
set principal_axis Z
+ V! h: H3 k3 g6 U# O }0 S0 ]/ b, P% P Q
default {
3 F2 H! q" {9 N; V2 R8 _ set mom_cutcom_plane UNDEFINED. [( f( E1 ~6 O" C
set mom_pos_arc_plane UNDEFINED9 @9 c, r ~: K( ]
set principal_axis ""
8 H! l1 d% m% r7 Q6 S }) ?0 o e) |/ c4 a2 _
}# B- k* N6 D; g8 b; ?5 `
# F7 V1 X! a7 I7 d0 z/ q
2 _! W; w2 d2 T3 ?1 a& r5 Z3 U
if { $suppress_principal_axis && [string length $principal_axis] > 0 } {# _) C; j, Q+ F) v
MOM_suppress once $principal_axis( A' T- J8 j& h" h8 J5 o( _# V: j
}
1 t# _- x% @* M" s
7 ?# ?. t- ^1 [* m; m; T* S6 C, ?& r8 G' a; S& p$ e' I4 Z
if { $force_plane_code } {: v w5 c( m: k! y6 F+ R0 p7 ~
global cycle_init_flag
& L2 L, ]/ p* d( U) y9 v. `0 v7 I6 [
1 Z0 m3 l$ w9 L! Q% g; O if { [info exists cycle_init_flag] && [string match "TRUE" $cycle_init_flag] } {
0 R4 R7 P+ a- ~; k* g2 {- Q" j' D1 W MOM_force once G_plane
% g& Y6 x* d% @4 w }( V+ M. e& F+ a. i7 U4 I3 W8 w4 s% V! g
} |
|
/2 
|Archiver|手機版|小黑屋|若楓后處理論壇
( 蘇ICP備11015087號-1|
蘇公網安備32059002001368號 )
IP卡
狗仔卡
發表于 2020-1-12 09:01:29
顯身卡