传一个OKUMA系统的椭圆宏程序

少年游

看到版主编的FANUC铣椭圆的宏程序不觉手痒，把版主的程序稍作改动，改成OKUMA系统的椭圆宏程序，只是照葫芦画瓢。供大家参考。有得罪版主之处请谅解。
6 L1 ]- L) b; v( R主程序是： CALL  LX=45  LY=25  LC=1  LZ=-10.
: c; U4 W; j8 ~; _0 o3 T用户宏程序是：
  e" r5 o$ J3 R2 V8 }( d5 D1 _2 YN2VC1=LC         角度步长
8 ^! ~, U5 E* v5 ]1 e7 lN4VC101=0           初始角度
' d2 _$ X2 m5 h, o; J: sN6VC102=361       终止角度
N8VC2=LX         长半轴
N10VC3=LY      短半轴
N12VC105=LZ  深度
1 B  U! o; V7 s' y% O$ ?N13G90G00X[[VC2]+20]Y0Z100.0        刀具运行到(65,0,100.0)的位置
( I" n: R4 ~0 K6 Q/ T6 q- \N14S1000M03                                      主轴正转
N15G01Z[VC105]F1000.0                       刀具下-10.0mm
/ f4 ?: Y* d$ l: w# f+ fN16VC114=VC101                                     变量#114赋初始值0
7 ?9 o, z0 G" JN18VC112=[VC2]*COS[VC114]                  计算X坐标值
" D9 i. ^% Y) ^, C1 hN20VC113=[VC3]*SIN[VC114]                    计算Y坐标值
2 V) D2 q. T$ t% oN22G01G42X[ROUND[VC112]]Y[ROUND[VC113]]D02F500.0
, f) u6 m8 p( f* ^! T0 o                                                            走到第一点，并运行一个步长
8 p* @( w4 Z) I$ IN24VC114=VC114+VC1                         变量#114增加一个角度步长
0 c3 ]6 v  i5 a# d8 t5 A7 jN26IF[[VC114]LT[VC102]]GOTO N18              条件判断变量#114是否小于361，满足则返
# ~% b! @3 F6 E' E' e1 S
/ j+ O# c9 ?+ Q; [  {+ \回18。

: [) V# z: s% J- Y" o: WN28G01G40X[VC103+20]Y0                  取消刀具补偿，回到(65.0,0)
1 M! F, h3 N5 V; ]& PN30G90G00Z100.0M05                       抬刀

HONDA

有没有OKUMA OSP5020G 外圆磨加工程序

少年游

我是做加工中心的，没用过数控磨

磨洋工

这个程序运行时，机床进给速度平稳吗？

少年游

没明白楼上的意思，，不过有一点可以说明，我们单位大偎机床，走圆弧时是自动加衰减的，不需要输入任何G代码。

螺旋线

就是说，这个程序干出的活，轮廓是不是很平滑。

少年游

9 W/ C9 O6 ^6 Q5 u4 y
3 r/ D5 Y3 l, `6 [! M* N) I这应该取决于参数方程踩点的密集程度，前边已经说了只是把版主的程序稍作改动，改成OKUMA系统的椭圆宏程序，只是照葫芦画瓢。供大家参考。程序本身并没有在机床上验证。如果是真正加工的话，我会把角度步长改小，另外我会采用顺铣。不过我用FANUC系统编过椭圆加上AI纳米轮廓控制，效果还是不错的。

少年游

以下是螺旋下到转圆的程序，是我在加工中经常用的，效果不错
螺旋下刀转圆
; E1 I# }* x! I- u5 `* K; _主程序CALL  OLXZY  PD=___  PH=___  PQ=___PT=___
% u2 i4 z+ k5 ?7 mPD_为孔直径。PH为孔深度。PQ为层降深度。PT为刀具直径。
2 y2 w0 v8 q9 t' ?8 y子程序OLXZY
VC1=ABS[PD]
VC2=ABS[PH]
& W/ m* A) ?- uVC3=ABS[PQ]
7 Q, Y# h& y) a0 J% PVC4=ABS[PT]
9 w! \: Q' t; t2 AN2
VC5=0
VC7=0
% ~& D+ C9 [3 j% o) Y4 vIF[[VC4]GE[VC1]]N6
VC6=[[VC1]-[VC4]]/2.0
' Y& {  n$ A9 M/ {. t/ o9 CVC7=VC7+VC3
G91G01X[VC6]
$ B, U) [* y1 C0 h2 JN3
G03I-[VC6]Z-[VC3]
VC7=VC7+VC3
IF[[VC7]LE[VC2]]GOTO N3
1 c5 b7 ^4 p0 c$ n$ EN4
VC9=0.001
VC8=ABS[VC2-[VC7-VC3]]
* h4 I' ~+ h6 }2 p2 uIF[[VC8]LT[VC9]]GOTO N5
VC7=VC2-[VC7-VC3]
G03I-[VC6]Z-[VC7]
8 c: z1 O3 @) G+ S& \# o# L6 EN5
/ f3 G) D$ f* u* S; u5 _G03I-[VC6]
G01X-[VC6]
G01Z[VC2]
" x+ G9 r4 `* ]4 W) v: h. ]% MN6
M05
& I/ d: U3 K  h( w: ]RTS

螺旋线

纳米插补？
什么系统，TD还是16I?

少年游

FANUC  18i  日本SNK的