UG后处理圆弧输出程序太长

LISHOULONG1982

，因为我们用的是卧式加工中心，后处理出来一个圆弧输出就要很长，很占空间。不是像G02/G03X100 I-100就可以走圆弧，而是跑好多个点。

xiashenghua

我的也是呀  咋设置呀

思远

PB_CMD_init_helix

1 V. C- e0 J  A% g
uplevel #0 {
7 b7 B9 O8 j: I0 _4 |#
. o$ [' i/ O7 ?. Z$ S% j8 k# This procedure will be executed automatically at the start of program and
# anytime it is loaded as a slave post of a linked post.
4 m3 o* b6 c: j' E8 ?9 Z#
# This procedure can be used to enable your post to output helix.
# You can choose from the following options to format the circle
  O) E6 o( W/ \5 D& d* @! t) t# block template to output the helix parameters.
- X1 ]3 h( ]1 h( A8 G0 ?#
$ A( R. w7 k3 B: t& x/ P8 Z% lset mom_sys_helix_pitch_type "rise_radian"  
#
/ P% U% r+ T$ O$ K  p4 O# The default setting for mom_sys_helix_pitch_type is "rise_radian".
# This is the most common.  Other choices are:
#
% t1 m) l) S6 d( Z9 {#    "rise_radian"              Measures the rise over one radian.
6 @+ f% o8 h  |! j! f# U9 Y#    "rise_revolution"          Measures the rise over 360 degrees.
#    "none"                     Will suppress the output of pitch.
# b6 ~( k9 I7 ]#    "other"                    Allows you to calculate the pitch
7 ?/ l" `4 \. ^2 w2 q#                               using your own formula.
0 J' u, Q$ Q. a#
1 X+ T* |+ V& ~1 D  j, v# This custom command uses the block template circular_move to output
# the helix block.  If your post uses a block template with a different
% O; `) b5 x. v0 s) [# name, you must edit the line that outputs the helix block.
! F4 u/ m/ D2 c: ]#
: k5 \( _) D! m/ _; P#  The following variable deines the output mode for helical records.
" c. p: z% x3 f0 L" L, }" P) \2 i#
#  FULL_CIRCLE  -- This mode will output a helix record for each 360
#                  degrees of the helix.
: b0 V' X3 W1 T0 K+ y; [9 H#  QUADRANT  --    This mode will output a helix record for each 90
2 i* s- M. L- V; U#                  degrees of the helix.
! j0 T- O# I" [; s; [#  LINEAR  --      This mode will output the entire helix as linear gotos.
# q" _; f# Y' a% A1 Y#  END_POINT --    This mode will assume the control can define an entire
#                  helix in a single block.
6 W. v# T9 X6 @- U# B$ |   set mom_kin_helical_arc_output_mode FULL_CIRCLE
) l' r1 ?3 A- M$ G4 V0 V   MOM_reload_kinematics
# G6 D5 o# E7 {
7 }8 g  ~  J. r( {#=============================================================
proc MOM_helix_move { } {
* n8 U8 D# X; }# W& M# @7 Q#=============================================================
   global mom_pos_arc_plane
& @+ B, w5 y& q" h2 _; k5 l5 L   global mom_sys_cir_vector
   global mom_sys_helix_pitch_type
' l6 F% @/ x( k" a' H; w7 k. N   global mom_helix_pitch
% h, w7 `$ n3 }2 W3 C  F3 P   global mom_prev_pos mom_pos_arc_center
   global PI
   switch $mom_pos_arc_plane {
4 Y& u3 G" U7 N/ f/ x6 l      XY { MOM_suppress once K ; set cir_index 2 }
      YZ { MOM_suppress once I ; set cir_index 0 }
1 g% d0 }6 w; V      ZX { MOM_suppress once J ; set cir_index 1 }
   }
* q, E! n8 n2 P& K3 g; R" z   switch $mom_sys_helix_pitch_type {
; |) Q+ t% G  V1 @      none { }
5 n9 X+ s# p8 T: ^. Q; D      rise_revolution { set pitch $mom_helix_pitch }
/ q* Y9 c9 J2 P" {- P  R7 Q) r: x      rise_radian { set pitch [expr $mom_helix_pitch / ($PI * 2.0)]}
) K! M' a4 M/ w% P/ ]      other {
#
5 _3 ]9 V& O# y8 Y; f# Place your custom helix pitch code here
#
      }
      default { set mom_sys_helix_pitch_type "none" }
9 \! }! r! {6 v   }
   
5 P( b7 J, f! X0 C$ [2 t: a# U   MOM_force once X Y Z
   if {$mom_sys_helix_pitch_type != "none"} {
      MOM_force once I J  
$ X+ ~; E* W* X$ O      if {$mom_sys_cir_vector == "Vector - Arc Center to Start"} {
         set mom_prev_pos($cir_index) 0.0
9 i9 `9 k& t1 O. ?6 f         set mom_pos_arc_center($cir_index) $pitch
      } elseif {$mom_sys_cir_vector == "Vector - Arc Start to Center"} {
: Z0 Z, |; ?0 j3 K         set mom_prev_pos($cir_index) $pitch
         set mom_pos_arc_center($cir_index) 0.0
4 `5 G1 e0 V- ?6 ^+ K      } elseif {$mom_sys_cir_vector == "Unsigned Vector - Arc Center to Start"} {
' @2 u9 B6 s1 b7 `' e: g8 x  h! `         set mom_prev_pos($cir_index) 0.0
         set mom_pos_arc_center($cir_index) $pitch
      } elseif {$mom_sys_cir_vector == "Absolute Arc Center"} {
) Z; ~% g2 m; W: z$ V         set mom_pos_arc_center($cir_index) $pitch
0 w1 E% E0 g+ u+ U      }
+ G  S3 v3 h, X# I- _, ~. T   }
' O+ g" C! H# f" M. e+ N& Y+ P$ I3 ^
8 i0 {! E& n8 V#
! Q& M: C" R! I! E# You may need to edit this line if you output more than one block
/ k: n, M6 R3 [" ?, h/ S7 n7 G# or if you have changed the name of your circular_move block template
* J& C2 v- v/ r) ]  r#
3 Z5 q/ V& T& |7 v   MOM_do_template circular_move
* i7 y( u# M% U( e. \
4 C" T" p8 f3 t* k: m+ J, h% K- |} ;# MOM_helix_move

} ;# uplevel

思远

在后处理中设置螺旋下刀。

ylongs

我也遇到楼主的问题了，好烦，而且输出的数值不对

ylongs

圆弧输出有问题，和螺旋下刀没什么关系吧?

nc635552381

%
- `. D: e- T2 Q7 s. ]: \% ^! s
9 r7 E* i3 [4 ?* w& \3 h# JG40 G17 G49 G80

T12 M06
+ ]- h6 q6 k0 I3 N" b. v
7 N, U1 f# @3 m8 g(D25 )

; s3 g% l6 Z6 h) c' H) CG00 G90 G54 X79.924 Y-10.485 S2500 M03
4 @# c9 {; U3 h. n' e  a
' e2 j, o; K0 R) _! ], QG43 Z30. H12 M08
& V, n: M5 }# ^, |
+ |% K! ]) U5 e6 V: x# XZ-48.5

! q7 K% ]) ?9 J, ^G03 X72.75 Y0.0 Z-50.497 R11.25 F800.
, B) J) _- ?  [6 M8 {
G01 Y-2.75 F2500.
8 v# S- s& P" K) G8 l" D2 Q0 r: a
X77.25

Y2.75

X72.75
' ]- l/ @9 n  w6 t. Q. h- u
Y0.0
: O. S* G$ ~) y
6 ~, G" [2 r3 i( CX54.

Y-21.5
! S8 B- }+ J$ Q7 P3 T) i
2 v, v- H% `+ B; e) M1 ~, r  QX96.

Y21.5
) y; y, l8 F$ h2 s) ?
" C9 S0 v+ z" k+ x# iX54.

2 a) _) N& O1 C% C- cY0.0

4 e0 X+ k% _% S! v* U5 UZ-48.997

G00 Z-48.

( c" I# I' [+ R- N, C' mX79.924 Y-10.485
3 g6 T1 i) Y; D' F8 P# ?- s8 M! @$ y
7 E7 c1 s9 |; r) O1 O# BZ-48.997
  I6 Q5 M3 [: M0 S9 C' d- h
4 l; `* M* P. w( j; Y4 y; A9 Y- K' MG03 X72.75 Y0.0 Z-50.994 F800.
! q  p( R4 c' n0 [* NG01 Y-2.75 F2500.

X77.25
; ~1 t! j) \0 G5 z
Y2.75
! o& q; Q3 B  b7 R1 y- x# q- w
1 q0 D1 j$ y% v/ P- QX72.75
- b7 Z  _- Z0 d% H8 V3 [. A0 P& z
Y0.0

; J; ]' x$ Z$ J( Y9 m& i$ [5 Z+ KX54.
* M0 \0 {/ U+ U* L8 L7 J
Y-21.5

- H  ~+ v& f7 X2 e# p7 kX96.
  @/ {3 G9 R" |5 r9 q+ o
2 K( I7 q, I) ^1 j+ v/ [7 p6 RY21.5
0 _! C8 H7 z& K
X54.
6 E+ R' b7 _; S5 q. D7 w. S
& o* X( i, b. P; ~- _$ N4 |; K6 m9 YY0.0

Z-49.494

8 O0 g2 S! E  K2 LG00 Z-48.497

X79.924 Y-10.485
" i2 n' }+ ^8 z" X
Z-49.494
$ u: w: m: b: v+ Q
4 E) j% l+ F) b& @G00 Z30.

4 j' N" [5 f" B. KM05
: _8 w  T: s& E8 M- V% H
M09
5 \8 N- |, |( ~1 T& E; N
: z6 k, E3 j, V( M( g  ~& Y+ AG91 G28 Z0.Y0.

M30
' Z7 V. s) S2 j6 C/ e& P" i, i
%

: Q. }6 x$ ^, X. z* n以上程序机床走到红色上一行会报警
2 J7 d$ w1 b- V7 ~1 M
1 b; d* ?0 v* g2 [9 U  h红色一行为什么会少个R值？

我用UG4.0用同样的后处理处理出来的程序有R值！
; `9 I. v' X! @3 r& C! e- B
是不是ＵＧ６．０本身的问题啊？
) R' ^) P+ V) A6 o5 N
请各位指教！

谢谢

dirdirdi

方便的话上传你的POST和PRT,或QQ:1342607201