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

DELL93H01

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

; G* o: L9 ?( a; J" h. B  p讨论1：如何将*arcrad$圆弧值换算成angle值，及以180度来区分自带正负符号
1 q6 L, b$ Y* z& [8 ?; I# w

DELL93H01

目前修改的地方
5 Y2 m5 s( f7 z3 Cfmt  "R" 2  arcrad$     #Arc Radius 修改成 fmt  "C" 2  arcrad$     #Arc Radius
5 Z. {$ t; i2 i$ i8 b
' V2 U  R7 Z0 }6 O4 Uif plane$ = zero, *iout, *jout, kout, *arcrad$ #XY plane code - G17 加入*arcrad$
2 X  e6 S3 M6 K$ s9 B
3 E$ w9 a( ?* b! T" `, h. p  A得到的程式段
, F5 i) s4 E" l7 r( |
G2 X50. Y15. I0. J-10. C90.
G1 Y-15.
0 X* O, E0 [$ z. y- i: z8 vG2 X40. Y-25. I-10. J0. C90.
* u( ~' N/ E3 d- \( l/ NG1 X-40.
4 {% \( H! B% C/ R; _) F, xG2 X-50. Y-15. I0. J10. C90.
G1 Y15.
( L' y# }! M" H' |9 _! uG2 X-40. Y25. I10. J0. C90.
切削路径错误
1 E% r  @" j% a5 M% n/ i

DELL93H01

6 }+ u3 O0 B, {4 z' L5 m        #Arc output for IJK
        # If you do NOT want to force out the I,J,K values,
        # remove the "*" asterisks on the *i, *j, *k 's below...
+ ]/ }# x8 ]9 S1 }        #
        #old#if plane$ = zero, *iout, *jout, kout #XY plane code - G17
        #
        if plane$ = zero, *iout, *jout, kout, (" " if arcrad$ >= 0 else "-") + str(abs(arcrad$)) #XY plane code - G17
        #
1 S* M! D+ A5 }" p$ ?3 P        #
1 J: U( x$ F$ z        #
- C- W# s! `& {# O1 Y' y, A        if plane$ = one, iout, *jout, *kout  #YZ plane code - G19
        if plane$ = two, *iout, jout, *kout  #XZ plane code - G18
: D. K/ `7 w1 c! m& X/ L% H        !i$, !j$, !k$
        ]
      else,
        [
        #Arc output for R
( p" I9 S* D$ F9 Y        if abs(sweep$)<=180 | (plane$ = 0 & arctype$ = five) | (plane$ = 1 & arctypeyz$ = five) |
          (plane$ = 2 & arctypexz$ = five), result = nwadrs(srad, arcrad$)
0 X- p8 c! g: J. C+ O9 U        else, result = nwadrs(srminus, arcrad$)
        *arcrad$
        ]
修改这样会出现标签未宣告及运算公式有误…

站在无人风口

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

xinruyu369

可惜帮不上忙哦

DELL93H01

if plane$ = zero:
  *iout, *jout, kout, *arcrad$ #XY plane code - G17
  angle_degrees = arcrad * 180 / PI
3 B) d: O7 o% m5 y$ L9 I8 s  y  if arcrad >= 0:
2 a' q, `; z7 N( n    sign = 1
  else:
    sign = -1
  signed_angle_degrees = angle_degrees * sign
  z  r) q- I) Q4 Q5 t9 w6 O
测试中