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

DELL93H01

能否讨论一下，想以2D路径编程方式，后处理输出时自带主轴(C轴)转角度正交於切削路径。修改加入*arcrad$已可以带圆弧值，
) x& j3 H% I0 h( ?6 s1 ~' Gif plane$ = zero, *iout, *jout, kout, *arcrad$ #XY plane code - G17
# ^6 Q  r. B( j( O
9 _  S# j  S3 G/ ?. E; A# w讨论1：如何将*arcrad$圆弧值换算成angle值，及以180度来区分自带正负符号

DELL93H01

目前修改的地方
5 f/ Q) e  y# n2 Yfmt  "R" 2  arcrad$     #Arc Radius 修改成 fmt  "C" 2  arcrad$     #Arc Radius

if plane$ = zero, *iout, *jout, kout, *arcrad$ #XY plane code - G17 加入*arcrad$

3 ^7 A; S) R) g( Z' N( F  s得到的程式段
* S) V' }9 l3 ]! l% Q
5 f) J1 f- n. `7 U1 cG2 X50. Y15. I0. J-10. C90.
G1 Y-15.
G2 X40. Y-25. I-10. J0. C90.
. I2 ]4 K* X; A6 t* ~' _# g+ [G1 X-40.
3 f! ?2 S( L$ ^; fG2 X-50. Y-15. I0. J10. C90.
, o# _$ x* D. s5 {! d0 P& R/ N: qG1 Y15.
G2 X-40. Y25. I10. J0. C90.
3 R+ Z, ]- K4 {  i2 ?/ e' f" ]! a切削路径错误
; R4 P3 g* B; f7 s2 ?

DELL93H01

5 y" ?8 P% k7 X. S        #Arc output for IJK
        # If you do NOT want to force out the I,J,K values,
% M' [9 {4 H& U- v7 D        # remove the "*" asterisks on the *i, *j, *k 's below...
8 u# y) c1 `3 B# k. z        #
        #old#if plane$ = zero, *iout, *jout, kout #XY plane code - G17
3 g2 B  g$ {* E        #
( u; x8 v) f' W8 v- V        if plane$ = zero, *iout, *jout, kout, (" " if arcrad$ >= 0 else "-") + str(abs(arcrad$)) #XY plane code - G17
1 t$ V( A9 P6 C0 X& @        #
        #
        #
5 j: W) T5 h) ]& f/ S2 I. @. h, a        if plane$ = one, iout, *jout, *kout  #YZ plane code - G19
        if plane$ = two, *iout, jout, *kout  #XZ plane code - G18
2 P" X4 `8 i, K; T        !i$, !j$, !k$
9 i9 `$ ~$ Y4 J0 \        ]
      else,
        [
! @  ^6 E3 x" e. Y7 X2 h; p        #Arc output for R
        if abs(sweep$)<=180 | (plane$ = 0 & arctype$ = five) | (plane$ = 1 & arctypeyz$ = five) |
, g4 B5 u! z! ]& V7 P/ K2 b8 c+ }: t          (plane$ = 2 & arctypexz$ = five), result = nwadrs(srad, arcrad$)
        else, result = nwadrs(srminus, arcrad$)
        *arcrad$
        ]
) M9 |* }' x( J修改这样会出现标签未宣告及运算公式有误…

站在无人风口

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

xinruyu369

可惜帮不上忙哦

DELL93H01

if plane$ = zero:
  *iout, *jout, kout, *arcrad$ #XY plane code - G17
  angle_degrees = arcrad * 180 / PI
  if arcrad >= 0:
    sign = 1
( j  f: V; n7 E! [; X& U6 l  else:
: n5 ]+ H, `, `; r    sign = -1
  signed_angle_degrees = angle_degrees * sign
& e- z; e2 i% J" d7 ?) X7 x
测试中