西门子840D，编程求教

rmzt2012

! J4 t& i% @4 a5 s- \数控落地镗TK6920，系统840D。在编程序时遇到一点问题，由于刚接触数控不长时间，找不到错误原因。故请教各位高人。图纸略图如下：正五边形，边长100，方台边长200，编程中心选在五边形中心。

程序如下
/ |8 H) s4 k( ~M61M62M63
9 Q* D# n8 G" BM03S700F400
G54G90G0Z50
2 V$ v" L7 Z# Q* b$ l. J$ nX150Y0
! g8 x) r w$ e, ~) N6 I9 @0 mZ-15
R1=18
( n/ R& X* V" c, b2 yR2=50/COS(54)
G42G01X=R2*COS(R1)T1D1
Y=R2*SIN(R1)
( _0 x. {' M) c/ ^N1 X=R2*COS(R1)Y=R2*SIN(R1)
R1=R1+72
5 A+ N9 r# J, T! h! G! c3 x% K% fIF R1<=378 GOTO N1
G40G0X150
+ Q3 o, b! i' }5 a/ f6 WZ50
M05M30
5 F" y X' s$ R' S( N4 ^7 u
& j% X( N5 \% [( s2 r在设备上模拟程序出现一下图形


: D, l" Z% \, K1 S. H& I& ?问题1：为什么会出现过渡圆角，是不是设备参数设置问题？


程序改为下面格式后
" q2 Z0 ?4 a% j2 v" Q2 f. E2 u+ g
) P) X: d: e- B3 U$ pT1D1
/ U7 e+ [: r( m8 [M61M62M63
, d2 h: H& z4 Q7 M4 sM03S700F400
" z$ }4 \$ h5 H+ x( x, OG54G90G0Z50
" ^/ {) S" C$ v% t# ?4 NX150Y150
Z-15
0 ^3 M8 W: C3 x% X% z, ?' N4 ~R1=18
R2=50/COS(54)
N1 G42G01X=R2*COS(R1)Y=R2*SIN(R1)
% |! A5 z- m8 @4 ?R1=R1+72
3 ~5 k* N- Y) t! rIF R1<=378 GOTO N1
G40G0X150
Z50
6 e1 A: R M+ B0 p) e6 F' PM05M30

3 m1 I6 ]2 r7 T6 S0 V模拟如下


% @' p1 s" t$ O问题2：五边形为什么关于Y轴不对称了，G42建立刀补不能指定同时指定XY轴？

第三次模拟程序修改如下
% m1 a2 l& j' S# T7 u4 r5 e u2 }, zT1D1
- P+ i( p* B! @" k) E' M! }M61M62M63
M03S700F400
G54G90G0Z50
X150Y150
, v2 p9 v( D" G0 j3 O" LZ-15
R1=18
R2=50/COS(54)
+ G4 m; b4 W, g* E2 SG42G01X=R2*COS(R1)Y=R2*SIN(R1)
N1 X=R2*COS(R1)Y=R2*SIN(R1)
R1=R1+72
IF R1<=378 GOTO N1
7 F) J6 @% \; M5 qG40G0X150
- r% o7 p6 w* s) [1 H/ jZ50
7 s% L" y6 n0 W1 h2 y. j) XM05M30
1 F8 n! H# y( Y0 x
模拟如下
, V! Q" P1 J& ?# V


# w5 M: ^' ], j0 Y: z. {2 R( H t
7 Y! O$ o+ j. \7 I& N1 i+ d5 c; N问题3：五边形不封闭，构不成完整的五边形了，原因是啥？

rmzt2012

第一次模拟图


( p! g9 Q# w' U z% I; `$ a
- O1 t7 Q& u3 j# P4 a& x2 V: X; a
4 T* M1 Z0 t: Y- k
$ e" N+ g5 N5 i& @ l* W第二次模拟图

9 T; g# _! I' ]
) T+ ]' d; W$ I# {4 y

wangice

' ]7 m+ @9 `8 h, a; E帮你修改了下中间段落，没搞明白你R1初始为什么等于18，另顺时针铣外轮廓要用G41：
& c3 I- b0 ]' R5 g9 m y, K3 _R1=0
R2=50/Cos54
G01 G41 X=R2*SinR1 Y=R2*CosR1
' _# i* A: Y! z7 p( S! [AA:
& F3 J$ D; t6 A( ]5 R; a& f$ a& ^R1=R1+72
$ J4 c4 b( q* S) sG01 X=R2*SinR1 Y=R2*CosR1
IF R1<360 GOTOB AA
ENDIF