西门子程式.docVIP

西门子程式 一: R1=0 R2=-0.5 R4=TAN(10)*(70-R1) R5=2*R4+95.314 M3S1000G0Z50 X0Y35 G1F1000Z0 AAA: G2Z=-0.5+R1J-35TURN=1 R1=R1=R2 R3=R5/120 SCALE X=R3 Y=R3 IF R170.5 GOTO N1 GOTOB AAA N1 GOZ30 M30 主题：回复:小于半圆如何找正圆心 找到方法了 设三点为P1(X1,Y1) P2(X2,Y2) P3(X3,Y3) 圆心为P0(X,Y) 利用三角形的外接圆方程： (X-X1)^2+(Y-Y1)^2=(X-X2)^2+(Y-Y2)^2=(X-X3)^2+(Y-Y3)^2 推导出如下公式： a=x1(y2-y3)+x2(y3-y1)+x3(y1-y2) b=(x1^2+y1^2-x2^2-y2^2)/2 c=(x1^2+y1^2-x3^2-y3^2)/2 d=b(y1-y3)-c(y1-y2) e=c(x1-x2)-b(x1-x3) 半径：r=SQRT((d/a-x1)^2+(e/a-y1)^2 圆心坐标：（d/a,e/a) 编制一个简单程序： R11=$AA_IM[X] R12=$AA_IM[Y] M0 R21=$AA_IM[X] R22=$AA_IM[Y] M0 R31=$AA_IM[X] R32=$AA_IM[Y] R1=R11*(R22-R32)+R21*(R32-R12)+R31*(R12-R22) IF R1==0 GOTO AAA R2=(POT(R11)+POT(R12)-POT(R21)-POT(R22))/2 R3=(POT(R11)+POT(R12)-POT(R31)-POT(R32))/2 R4=R1*(R12-R32)-R3*(R12-R22) R5=R3*(R11-R21)-R2*(R11-R31) R97=SQRT(POT(R4/R1-R11)+POT(R5/R1-R12)) R98=R4/R1 R99=R5/R1 AAA:M2 R1为零时，说明三点一线，所以跳到程序结尾 R97为半径，R98为X坐标，R99为Y坐标 这个程序只是草草编的，没有完善 本人已经试过，很好用，而且很准的！！！！ 我用过的螺纹铣刀大约是4颗齿左右的那种。 外螺纹、内螺纹我都做过。 铣刀分为好几种，常见的是：标准多齿铣刀、带钻头的螺纹铣刀、end milling thread miller（螺纹刀片前部是可以铣孔的那种）、JEL boring thread miller（这种铣刀可以在钻孔后，直接铣螺纹）、JEL mini thread miller（类似于前者，但是刀尖部分结构不同，不能上图，不好形容），不同铣刀，程序写法有区别。 标准的螺纹铣刀，其实从里面铣，外面铣，随便你的习惯。 我想说的是铣螺纹的过程中，大家必须注意的问题： 1.当你铣完一个盲孔后，盲孔有退刀槽，你发现螺纹长度不够，你需要在铣螺纹子程序里面重新设置铣削深度，此时！你必须增加或者减少螺距的整数倍的距离，否则会产生烂牙情况！！切记！ 2.每调用一次螺纹铣削子程序以后，在修改螺纹直径参数，继续铣削时，尺寸过渡要做好。 我以前写的程序，仅供参考： 子程序： %_N_HB5_SPF ;$PATH=/_N_SPF_DIR ;MILLING THREAD L1×××;铣内螺纹子程序（siemens版本和机床厂家OEM版，我喜欢用OEM版的） ;R90 is X Coordinate ;R91 is Y Coordinate ;R92 is Z Coordinate ;R93 is S Value ;R94 is OutSide F Value ;R95 is InSide F Value ;R96 is thread major Diameter ;R97 is thread minor Diameter R40=R96 R41=R97 R60=2 R0=0 R1=R92 R4=20 R5=15 R6=2 R9=2 S=R93 F=R94 M03 M08 G01 X=R90 Y=R91 F=R95 L1××× M05 M09 STOPRE RET 主程序： ;===== N600 CS_TOOL(,,1) CS_TP(,,1) G54 G90 G17 G40 R90=72.2 R91=130.2 R92=23 R93=298 R94=800 R95=100 ;MILLING M56×2-6H,a # R96=56