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

DELL93H01 · 发表于 2023-4-13 10:38:11

马上注册，结识高手，享用更多资源，轻松玩转三维网社区。

您需要登录才可以下载或查看，没有帐号？注册

x

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

讨论1：如何将*arcrad$圆弧值换算成angle值，及以180度来区分自带正负符号

DELL93H01 · 发表于 2023-4-13 10:51:49

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

if plane$ = zero, *iout, *jout, kout, *arcrad$ #XY plane code - G17 加入*arcrad$

得到的程式段

G2 X50. Y15. I0. J-10. C90.
G1 Y-15.
G2 X40. Y-25. I-10. J0. C90.
G1 X-40.
G2 X-50. Y-15. I0. J10. C90.
G1 Y15.
G2 X-40. Y25. I10. J0. C90.
切削路径错误

DELL93H01 · 发表于 2023-4-13 11:07:05

      #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...
      #
      #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
      !i$, !j$, !k$
      ]
   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$)
      else, result = nwadrs(srminus, arcrad$)
      *arcrad$
      ]
修改这样会出现标签未宣告及运算公式有误…

站在无人风口 · 发表于 2023-4-13 18:12:48

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

xinruyu369 · 发表于 2023-4-13 18:13:54

可惜帮不上忙哦

DELL93H01 · 发表于 2023-4-14 14:47:22

if plane$ = zero:
  *iout, *jout, kout, *arcrad$ #XY plane code - G17
  angle_degrees = arcrad * 180 / PI
  if arcrad >= 0:
sign = 1
  else:
sign = -1
  signed_angle_degrees = angle_degrees * sign

测试中

		自动登录	找回密码
密码			注册

通知

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

马上注册，结识高手，享用更多资源，轻松玩转三维网社区。