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

DELL93H01

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

$ b5 j! Q- Y- c: u; N& t讨论1：如何将*arcrad$圆弧值换算成angle值，及以180度来区分自带正负符号
0 u5 _4 u+ L6 n6 L6 u

DELL93H01

目前修改的地方
fmt  "R" 2  arcrad$     #Arc Radius 修改成 fmt  "C" 2  arcrad$     #Arc Radius
$ w4 a/ ]% ]8 n( ^6 r. ?
if plane$ = zero, *iout, *jout, kout, *arcrad$ #XY plane code - G17 加入*arcrad$

得到的程式段
% H; N5 p, O9 G  H) z# R
# G' U& q) o5 N3 q& V4 g% uG2 X50. Y15. I0. J-10. C90.
1 ^& v( r0 Y9 s: JG1 Y-15.
G2 X40. Y-25. I-10. J0. C90.
G1 X-40.
) K# G9 N1 Z, S& x' [G2 X-50. Y-15. I0. J10. C90.
! l1 Z% \" _: r1 cG1 Y15.
& C: k5 d2 _+ ~/ xG2 X-40. Y25. I10. J0. C90.
( x8 q0 x2 B3 b# Z! F切削路径错误

DELL93H01

, X# v; o) G7 ~1 W        #Arc output for IJK
$ ]. Q7 L  p/ u' i* L& h2 B/ L        # If you do NOT want to force out the I,J,K values,
% D8 B1 e" o5 H- X        # remove the "*" asterisks on the *i, *j, *k 's below...
        #
/ ^' s( y' l4 N+ @8 P" j3 x        #old#if plane$ = zero, *iout, *jout, kout #XY plane code - G17
' q0 E- R; R9 E        #
! S9 {7 S; L1 ?5 J( U        if plane$ = zero, *iout, *jout, kout, (" " if arcrad$ >= 0 else "-") + str(abs(arcrad$)) #XY plane code - G17
        #
        #
7 `& L/ D" V/ g- r        #
        if plane$ = one, iout, *jout, *kout  #YZ plane code - G19
/ Z/ z$ p% T( O0 G0 g        if plane$ = two, *iout, jout, *kout  #XZ plane code - G18
- [  ~; g; G* \( x3 g6 [( [8 T0 h        !i$, !j$, !k$
        ]
      else,
        [
& Z/ s& c  c: w1 e. }        #Arc output for R
0 c4 J7 P0 g  c        if abs(sweep$)<=180 | (plane$ = 0 & arctype$ = five) | (plane$ = 1 & arctypeyz$ = five) |
          (plane$ = 2 & arctypexz$ = five), result = nwadrs(srad, arcrad$)
, o4 x5 I8 w- z! f, p6 C6 D        else, result = nwadrs(srminus, arcrad$)
        *arcrad$
5 H' K4 f, p: I8 _* K  K        ]
修改这样会出现标签未宣告及运算公式有误…

站在无人风口

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

xinruyu369

可惜帮不上忙哦

DELL93H01

if plane$ = zero:
0 O/ m0 y2 ?, a' v  *iout, *jout, kout, *arcrad$ #XY plane code - G17
9 ^7 F  b: _' d* q; C% U- \" ~  angle_degrees = arcrad * 180 / PI
2 M2 P( y: M( I( Z" S1 |! O  if arcrad >= 0:
    sign = 1
  else:
. k" m0 G/ U0 d    sign = -1
# O) _& F+ G5 q9 l  p  signed_angle_degrees = angle_degrees * sign

测试中