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

DELL93H01

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

6 B& S5 ~, h( J1 _讨论1：如何将*arcrad$圆弧值换算成angle值，及以180度来区分自带正负符号
7 W( L) G2 }' ^2 U% d

DELL93H01

目前修改的地方
fmt  "R" 2  arcrad$     #Arc Radius 修改成 fmt  "C" 2  arcrad$     #Arc Radius

' |# h3 _% |$ h) L) I, z, }if plane$ = zero, *iout, *jout, kout, *arcrad$ #XY plane code - G17 加入*arcrad$
$ p$ ~3 _4 g; n3 s% z8 O" _
$ |. l( J$ E' U& x得到的程式段

G2 X50. Y15. I0. J-10. C90.
+ m) h8 G% D9 o% i2 w6 |; pG1 Y-15.
3 l2 d7 E* u/ {! hG2 X40. Y-25. I-10. J0. C90.
/ ~+ g! B4 V1 E3 o8 AG1 X-40.
/ Q# R' n) E( R- }: N* y0 XG2 X-50. Y-15. I0. J10. C90.
; d% e6 H0 a  k2 G. ]6 bG1 Y15.
G2 X-40. Y25. I10. J0. C90.
6 Y. t( T+ [6 N切削路径错误
0 u/ T  d# p7 {

DELL93H01

2 _1 k4 o2 `* \        #Arc output for IJK
- P7 v" ]" I8 b& A2 h( f$ @  s        # If you do NOT want to force out the I,J,K values,
        # remove the "*" asterisks on the *i, *j, *k 's below...
3 n0 A4 ^( m- x! _/ _4 ^        #
        #old#if plane$ = zero, *iout, *jout, kout #XY plane code - G17
' {$ U% t1 F; |* @* P; d        #
        if plane$ = zero, *iout, *jout, kout, (" " if arcrad$ >= 0 else "-") + str(abs(arcrad$)) #XY plane code - G17
* S  d5 L, P/ Z9 E0 u$ |  L        #
) Y1 O4 }2 V( j2 z        #
! |0 ^7 Y- h& {% i! {+ l        #
        if plane$ = one, iout, *jout, *kout  #YZ plane code - G19
( M3 p( E% u- b        if plane$ = two, *iout, jout, *kout  #XZ plane code - G18
        !i$, !j$, !k$
        ]
7 J; m- h/ N5 d( L, i. b) b      else,
        [
        #Arc output for R
        if abs(sweep$)<=180 | (plane$ = 0 & arctype$ = five) | (plane$ = 1 & arctypeyz$ = five) |
+ z5 S4 ?5 Q6 x" c          (plane$ = 2 & arctypexz$ = five), result = nwadrs(srad, arcrad$)
' Q& J" G' P: ?3 W; p* z        else, result = nwadrs(srminus, arcrad$)
( q+ ^8 |0 o* T/ H6 Y; K- M        *arcrad$
/ h0 u8 X4 E9 }/ Q; \        ]
修改这样会出现标签未宣告及运算公式有误…

站在无人风口

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

xinruyu369

可惜帮不上忙哦

DELL93H01

if plane$ = zero:
2 Z8 _- L+ N+ A4 F+ R  *iout, *jout, kout, *arcrad$ #XY plane code - G17
; n+ R) e8 u* ~9 X( x  angle_degrees = arcrad * 180 / PI
  if arcrad >= 0:
    sign = 1
  else:
    sign = -1
  signed_angle_degrees = angle_degrees * sign
) A7 Z- V& Y; P  ~! O* {. R% z* m
( d1 r( K+ x# _7 T( E, ~测试中