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

DELL93H01

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

" [3 f# i# W2 Z1 c" G; |# I& A) e讨论1：如何将*arcrad$圆弧值换算成angle值，及以180度来区分自带正负符号
. t4 n& f$ o* U

DELL93H01

目前修改的地方
; C" f( Q) f- nfmt  "R" 2  arcrad$     #Arc Radius 修改成 fmt  "C" 2  arcrad$     #Arc Radius

if plane$ = zero, *iout, *jout, kout, *arcrad$ #XY plane code - G17 加入*arcrad$
8 T( A' p4 x  x# I9 `& G3 G+ i: M
% L: f+ y/ r3 r, [0 z得到的程式段
! K& s- S% {6 {: i6 B
9 d/ G; R  W1 J0 R& `G2 X50. Y15. I0. J-10. C90.
G1 Y-15.
+ g/ D7 p& f9 G: `$ w9 G. _G2 X40. Y-25. I-10. J0. C90.
. ^/ m* p4 T+ g$ n. U! q8 LG1 X-40.
3 F4 Q- h4 o, M' y2 ]( fG2 X-50. Y-15. I0. J10. C90.
: Q4 f) ^8 n) ?+ y. x" ?7 pG1 Y15.
G2 X-40. Y25. I10. J0. C90.
切削路径错误
0 z; n& X! k# _

DELL93H01

        #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...
        #
  ^$ |6 Q2 e9 X5 \9 J+ l5 z        #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
        #
        #
        #
        if plane$ = one, iout, *jout, *kout  #YZ plane code - G19
        if plane$ = two, *iout, jout, *kout  #XZ plane code - G18
# M$ ?* a: S5 ^0 P1 }* Y        !i$, !j$, !k$
  R* a% d$ G7 S: _. F. k        ]
      else,
) C! a4 q+ a# H; J  j( a        [
8 c2 C' i% h2 ~+ {/ B1 e        #Arc output for R
% N. x$ D3 \# T: ?' A        if abs(sweep$)<=180 | (plane$ = 0 & arctype$ = five) | (plane$ = 1 & arctypeyz$ = five) |
  c9 ]* |5 a! ?. E1 v          (plane$ = 2 & arctypexz$ = five), result = nwadrs(srad, arcrad$)
        else, result = nwadrs(srminus, arcrad$)
        *arcrad$
/ y2 @8 J" F8 {4 C9 |( a        ]
修改这样会出现标签未宣告及运算公式有误…

站在无人风口

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

xinruyu369

可惜帮不上忙哦

DELL93H01

if plane$ = zero:
  *iout, *jout, kout, *arcrad$ #XY plane code - G17
  angle_degrees = arcrad * 180 / PI
% O( O$ I( X" H/ l  if arcrad >= 0:
( i1 w& R( w4 u( s2 R5 n    sign = 1
  else:
    sign = -1
, u. `: m* b" `& j& v3 n4 r  signed_angle_degrees = angle_degrees * sign
( |+ A8 p. ]# b+ c$ o# J1 ~
测试中