Fanuc-CS机能-刮削程式-主轴变C轴转角度程式输出

DELL93H01

能否讨论一下，想以2D路径编程方式，后处理输出时自带主轴(C轴)转角度正交於切削路径。修改加入*arcrad$已可以带圆弧值，
if plane$ = zero, *iout, *jout, kout, *arcrad$ #XY plane code - G17

. y+ t" i7 ~  `8 Z8 y" R讨论1：如何将*arcrad$圆弧值换算成angle值，及以180度来区分自带正负符号

DELL93H01

目前修改的地方
+ `3 ?8 _4 c" L$ Z6 Bfmt  "R" 2  arcrad$     #Arc Radius 修改成 fmt  "C" 2  arcrad$     #Arc Radius

, Q: l. t* d: w& ]; W# j8 a" cif plane$ = zero, *iout, *jout, kout, *arcrad$ #XY plane code - G17 加入*arcrad$
" v& ?- Y0 Q3 Y) O
. P( F# g: \7 Z8 t) N+ f得到的程式段
" G. n: o. W/ K5 q
( E" C( j) e3 D) vG2 X50. Y15. I0. J-10. C90.
- V9 c" L0 r9 Z) d% |, xG1 Y-15.
G2 X40. Y-25. I-10. J0. C90.
G1 X-40.
G2 X-50. Y-15. I0. J10. C90.
3 P% u5 D3 w2 {6 iG1 Y15.
G2 X-40. Y25. I10. J0. C90.
切削路径错误
7 L4 K1 H- l$ T3 k" G: O1 l1 k

DELL93H01

        #Arc output for IJK
2 ?% {1 J' P. q6 f  k# R3 c        # If you do NOT want to force out the I,J,K values,
        # remove the "*" asterisks on the *i, *j, *k 's below...
        #
$ H7 k9 l8 a' `        #old#if plane$ = zero, *iout, *jout, kout #XY plane code - G17
        #
- t3 E7 F' A$ A+ ^1 ^/ J. |4 z+ F        if plane$ = zero, *iout, *jout, kout, (" " if arcrad$ >= 0 else "-") + str(abs(arcrad$)) #XY plane code - G17
        #
        #
: V$ o+ i6 ]& _) @0 H- ?# n  P: l        #
        if plane$ = one, iout, *jout, *kout  #YZ plane code - G19
' W  s1 e" y) a! h, T0 f! R% b, ~        if plane$ = two, *iout, jout, *kout  #XZ plane code - G18
        !i$, !j$, !k$
' Q% k2 C* Y6 |# C: L! r$ {        ]
8 v1 U2 H- _& ]. x) J      else,
        [
2 G$ [1 K7 z5 E5 K/ v2 Y5 s( M        #Arc output for R
) o. H; g& t2 Q% \& b; f        if abs(sweep$)<=180 | (plane$ = 0 & arctype$ = five) | (plane$ = 1 & arctypeyz$ = five) |
% X. t* F0 s$ U$ N* F# X          (plane$ = 2 & arctypexz$ = five), result = nwadrs(srad, arcrad$)
& \! Q& P: w( z1 V) K        else, result = nwadrs(srminus, arcrad$)
        *arcrad$
        ]
! ~& ]" C& z4 G" P+ G( H- {  S修改这样会出现标签未宣告及运算公式有误…

站在无人风口

这个再这里问大概率不会有人回复你的  

xinruyu369

可惜帮不上忙哦

DELL93H01

if plane$ = zero:
  *iout, *jout, kout, *arcrad$ #XY plane code - G17
0 h2 ^4 }- W" S9 D; w$ `  r( Q. k  angle_degrees = arcrad * 180 / PI
  if arcrad >= 0:
    sign = 1
  else:
; q9 }% ~$ p* o) ^* D* @" S    sign = -1
4 N  Y) @# S1 z  signed_angle_degrees = angle_degrees * sign

测试中