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

DELL93H01

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

- z' D0 ?5 }. u7 U' H  z3 v讨论1：如何将*arcrad$圆弧值换算成angle值，及以180度来区分自带正负符号
' S- I2 b! P, k+ G4 w

DELL93H01

目前修改的地方
9 l  C6 C+ X% a6 o) T: M5 ~  pfmt  "R" 2  arcrad$     #Arc Radius 修改成 fmt  "C" 2  arcrad$     #Arc Radius

$ g! i  K: r7 J; e) \3 J, c  wif plane$ = zero, *iout, *jout, kout, *arcrad$ #XY plane code - G17 加入*arcrad$

得到的程式段
, U! i8 X9 H9 k. d, Q
; K. x4 z2 j$ Q; Z, o- T" r2 ^G2 X50. Y15. I0. J-10. C90.
G1 Y-15.
5 m: J5 b$ n! {; }4 X" H' ]. mG2 X40. Y-25. I-10. J0. C90.
+ g( K( f1 A; V9 ^. }G1 X-40.
G2 X-50. Y-15. I0. J10. C90.
9 ~# X1 L$ D7 t! d1 W4 `G1 Y15.
  E: y- y2 f, ]7 }, w" nG2 X-40. Y25. I10. J0. C90.
切削路径错误

DELL93H01

        #Arc output for IJK
        # If you do NOT want to force out the I,J,K values,
. J- X, e, E2 s9 S2 s% F; Q        # remove the "*" asterisks on the *i, *j, *k 's below...
        #
        #old#if plane$ = zero, *iout, *jout, kout #XY plane code - G17
) I4 h6 ^* L6 }) B' z3 I        #
        if plane$ = zero, *iout, *jout, kout, (" " if arcrad$ >= 0 else "-") + str(abs(arcrad$)) #XY plane code - G17
. F" f$ d4 r: ?( y7 b2 t3 i        #
) M5 K) j& u. I$ Y1 K( q        #
6 b% _- _9 \% ^4 F2 o6 ~        #
        if plane$ = one, iout, *jout, *kout  #YZ plane code - G19
        if plane$ = two, *iout, jout, *kout  #XZ plane code - G18
        !i$, !j$, !k$
- h3 U$ k& c+ @" y" h        ]
      else,
        [
) a/ N0 f" p& l, a: m        #Arc output for R
        if abs(sweep$)<=180 | (plane$ = 0 & arctype$ = five) | (plane$ = 1 & arctypeyz$ = five) |
6 y  n6 ]! b* I$ D& h' V. a          (plane$ = 2 & arctypexz$ = five), result = nwadrs(srad, arcrad$)
# d. T! Q* h5 S        else, result = nwadrs(srminus, arcrad$)
        *arcrad$
& y& q; z) c( B# k" @4 \- G' D+ U        ]
- _& \! Q) u+ M$ w, _3 `+ ]5 D2 _% ]' r修改这样会出现标签未宣告及运算公式有误…

站在无人风口

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

xinruyu369

可惜帮不上忙哦

DELL93H01

if plane$ = zero:
' t  Y1 `1 h4 Q' o  *iout, *jout, kout, *arcrad$ #XY plane code - G17
0 M0 b1 _8 |4 X* ^1 C  angle_degrees = arcrad * 180 / PI
  if arcrad >= 0:
) ?; ]% q4 A' ~' E    sign = 1
  else:
    sign = -1
# S7 M4 Y/ ]2 y& g6 x8 y$ s; J. |  signed_angle_degrees = angle_degrees * sign
: M2 L- p; @; Q$ v% M9 m
0 t! M5 h. z; O  }( a测试中