QQ登录

只需一步,快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步,快速开始

展开

通知     

全站
goto3d 说: 版主微信号:caivin811031;还未入三维微信群的小伙伴,速度加
2022-07-04
全站
goto3d 说: 此次SW竞赛获奖名单公布如下,抱歉晚了,版主最近太忙:一等奖:塔山817;二等奖:a9041、飞鱼;三等奖:wx_dfA5IKla、xwj960414、bzlgl、hklecon;请以上各位和版主联系,领取奖金!!!
2022-03-11
查看: 531|回复: 5
收起左侧

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

[复制链接]
发表于 2023-4-13 10:38:11 | 显示全部楼层 |阅读模式

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

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

x
能否讨论一下,想以2D路径编程方式,后处理输出时自带主轴(C轴)转角度正交於切削路径。修改加入*arcrad$已可以带圆弧值,
" B) {; }0 H- M5 z  \/ c  C; cif plane$ = zero, *iout, *jout, kout, *arcrad$ #XY plane code - G177 Z1 A9 q+ h4 H) l
  s+ t* W# z/ a  A4 W  g
讨论1:如何将*arcrad$圆弧值换算成angle值,及以180度来区分自带正负符号! B4 b: A  W/ A; I

修改ost

修改ost

原程式

原程式

刮削程式

刮削程式

PST修改

PST修改

刮削程式

刮削程式

原程式

原程式
 楼主| 发表于 2023-4-13 10:51:49 | 显示全部楼层
目前修改的地方
7 A  S. u# j2 u6 Y- Z0 T; t/ g8 ~/ Rfmt  "R" 2  arcrad$     #Arc Radius 修改成 fmt  "C" 2  arcrad$     #Arc Radius
! w8 r+ [* R+ E) m7 [* i
# M1 b  j9 d/ e) h( ], tif plane$ = zero, *iout, *jout, kout, *arcrad$ #XY plane code - G17 加入*arcrad$+ ^. f- |, l. |) {1 z
9 v4 @: z' Y4 F( X% d& f4 [
得到的程式段) m! a) t8 C; M5 L- j

7 e4 C; o# W. @& [6 \( A& HG2 X50. Y15. I0. J-10. C90.5 ]; V* Q* O1 Y& P1 f( A( M7 d6 g
G1 Y-15.* n: |4 }) M1 z$ I4 \' f
G2 X40. Y-25. I-10. J0. C90.
" c4 E; i; Z3 v; Y+ |* a8 fG1 X-40.' y6 _3 \* Y2 D
G2 X-50. Y-15. I0. J10. C90.
: T# h0 q6 c( B$ K. K/ cG1 Y15.6 P/ E% ]9 {7 l3 _9 v1 n
G2 X-40. Y25. I10. J0. C90.
- k* ^3 X% ~- y切削路径错误8 y) b4 k! z" F4 {7 g
 楼主| 发表于 2023-4-13 11:07:05 | 显示全部楼层

8 ~" o7 n2 }2 ]! G4 P4 _, z        #Arc output for IJK0 h; N% O/ p5 `/ x9 B8 B6 H: n
        # If you do NOT want to force out the I,J,K values,
( b: X+ I* G8 }* Z( c1 e        # remove the "*" asterisks on the *i, *j, *k 's below...6 _) ?: L( g1 P# |. Q6 ?7 Z" Q; T) o
        #) M! |1 B1 ?9 @8 y# Q7 f
        #old#if plane$ = zero, *iout, *jout, kout #XY plane code - G17- L- L9 f2 T1 L% F# a6 p
        #
3 `6 a: x: ^6 B% G        if plane$ = zero, *iout, *jout, kout, (" " if arcrad$ >= 0 else "-") + str(abs(arcrad$)) #XY plane code - G17
( I- f! E5 m  i2 H, |5 ~        #3 |. _# I9 g( b& \6 q
        #
! @' }; K/ w8 u7 i: {  h( Y        #4 d4 A- Y( {, q- b; Y! L: ^
        if plane$ = one, iout, *jout, *kout  #YZ plane code - G19$ @+ o" ^9 k  H0 E9 C4 ]7 y
        if plane$ = two, *iout, jout, *kout  #XZ plane code - G18
* g, a8 {' e5 k' \2 O        !i$, !j$, !k$
/ N! U* s+ k+ ~2 ]        ]
+ Z! C1 W& b  A& _6 C. H      else,3 b. g/ N9 I0 z0 s! @
        [
) ~1 @- z; B! W* T1 k& J- L        #Arc output for R
+ T2 b! r8 b# v' j- a0 q3 m        if abs(sweep$)<=180 | (plane$ = 0 & arctype$ = five) | (plane$ = 1 & arctypeyz$ = five) |& q1 H; i* W( ]7 b3 `- z. u* [
          (plane$ = 2 & arctypexz$ = five), result = nwadrs(srad, arcrad$)7 O# u# ]) v* s# W- m8 t
        else, result = nwadrs(srminus, arcrad$)
8 F1 f- n# e  i) }+ U# @. P) ~, a1 L  f        *arcrad$

7 m4 u4 l9 ?3 g) i        ]
7 F) A1 ~1 i5 J  {修改这样会出现标签未宣告及运算公式有误…
发表于 2023-4-13 18:12:48 | 显示全部楼层
这个再这里问大概率不会有人回复你的  
发表于 2023-4-13 18:13:54 | 显示全部楼层
可惜帮不上忙哦
 楼主| 发表于 2023-4-14 14:47:22 | 显示全部楼层
if plane$ = zero:
* ~0 y/ Q& F9 A  *iout, *jout, kout, *arcrad$ #XY plane code - G17
2 L) c) d' \/ I; Z7 I  angle_degrees = arcrad * 180 / PI
" M% j$ E' a( Y) ]/ g' r* a5 e$ T4 s  if arcrad >= 0:4 v' N' ^' d& k6 G' p' h% s
    sign = 10 ?# e* M, b" b  l9 ?) P- E
  else:( Z+ k: ]% v' P7 r
    sign = -1
0 p7 n4 m* F* M4 L$ A5 i! ~2 L  signed_angle_degrees = angle_degrees * sign
; Z( F3 i: N8 a+ a. q- L2 A/ a1 A! x; P0 v6 B
测试中
发表回复
您需要登录后才可以回帖 登录 | 注册

本版积分规则

Licensed Copyright © 2016-2020 http://www.3dportal.cn/ All Rights Reserved 京 ICP备13008828号

小黑屋|手机版|Archiver|三维网 ( 京ICP备13008828号-1 )

快速回复 返回顶部 返回列表