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

DELL93H01

能否讨论一下，想以2D路径编程方式，后处理输出时自带主轴(C轴)转角度正交於切削路径。修改加入*arcrad$已可以带圆弧值，
if plane$ = zero, *iout, *jout, kout, *arcrad$ #XY plane code - G17
' ~; Q- b9 M8 ^
. Y! Z1 h, u0 J# S讨论1：如何将*arcrad$圆弧值换算成angle值，及以180度来区分自带正负符号

DELL93H01

目前修改的地方
fmt  "R" 2  arcrad$     #Arc Radius 修改成 fmt  "C" 2  arcrad$     #Arc Radius
0 a7 u. L! B  u* c+ i
$ D4 o$ B5 K; K' i; s. F8 gif plane$ = zero, *iout, *jout, kout, *arcrad$ #XY plane code - G17 加入*arcrad$

得到的程式段
. z" {/ K% T" t  k
G2 X50. Y15. I0. J-10. C90.
G1 Y-15.
G2 X40. Y-25. I-10. J0. C90.
* y3 x2 c4 `# z3 @( c* w3 QG1 X-40.
G2 X-50. Y-15. I0. J10. C90.
G1 Y15.
8 @5 f! |, S- y7 w; C/ f+ t+ j6 _G2 X-40. Y25. I10. J0. C90.
切削路径错误
5 v' {( U# _$ `- c" n* L, O

DELL93H01

        #Arc output for IJK
        # If you do NOT want to force out the I,J,K values,
  q" _, t! [4 E- I- o) T6 _        # remove the "*" asterisks on the *i, *j, *k 's below...
        #
        #old#if plane$ = zero, *iout, *jout, kout #XY plane code - G17
        #
3 [) P. D! [" @2 Q. m( q" T        if plane$ = zero, *iout, *jout, kout, (" " if arcrad$ >= 0 else "-") + str(abs(arcrad$)) #XY plane code - G17
        #
) {% ?8 g( X+ e3 O# B# A        #
        #
        if plane$ = one, iout, *jout, *kout  #YZ plane code - G19
  @: t' s  L" t; z9 u" y        if plane$ = two, *iout, jout, *kout  #XZ plane code - G18
        !i$, !j$, !k$
( S* F* j! I/ C" S3 M+ R# d        ]
      else,
        [
        #Arc output for R
        if abs(sweep$)<=180 | (plane$ = 0 & arctype$ = five) | (plane$ = 1 & arctypeyz$ = five) |
          (plane$ = 2 & arctypexz$ = five), result = nwadrs(srad, arcrad$)
0 _( }) D, `8 D3 q0 d        else, result = nwadrs(srminus, arcrad$)
- y/ C: A+ l3 ~! M, u% [        *arcrad$
        ]
修改这样会出现标签未宣告及运算公式有误…

站在无人风口

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

xinruyu369

可惜帮不上忙哦

DELL93H01

if plane$ = zero:
  *iout, *jout, kout, *arcrad$ #XY plane code - G17
  angle_degrees = arcrad * 180 / PI
. x4 ~9 L5 R* ~5 y; _; t  if arcrad >= 0:
( _3 O  X3 o! \8 q4 Z' d, c    sign = 1
: K) |8 X1 ]) y, ^! G  else:
8 {/ A+ X0 q, i. d$ l/ ^    sign = -1
  signed_angle_degrees = angle_degrees * sign
# L% {: c. t& y5 _: D: g) U3 W/ `
+ |3 C" |5 B3 A' h测试中