机床数控课设插补

1、一、 课设任务用DDA法插补第二象限直线。用逐点比较法插补第三到第二象限顺圆弧。二、课设要求 1、具有数据输入界面，有起点、终点、半径及插补步长等； 2、具有单步插补过程的动态显示功能； 3、插补的步长可调；三、编程语言Visual Basic四、功能说明本程序用逐点比较法插补第二象限的直线，及第三二象限的顺圆弧，可进行连续插补或单步插补。1、直线插补：用逐点比较法实现第二象限任意直线的插补，需要输入起点、终点坐标及步长。2、圆弧插补：用逐点比较法实现第三二象限的顺圆弧段的插补，需要输入起点、终点坐标、半径和步长。3、插补步长可调。4、可以单步执行所有插补动作，单击一次按钮执行一次插补。五、程

2、序内容 DDA法插补第二象限直线1、源程序： Dim A, B, C, D, E, F, G, I, J, E, F As Single*连续直线插补*Private Sub Command1_Click()If (-C + A) > (D - B) Then F = -C + A Else: F = D - BG = 1Do While (2 G) <= FG = G + 1 LoopFor H = 0 To (2 G) Step 1I = I + (-C + A)x1 = x2If (I / (2 G) >= E Then I = I - E * (2 G): x2 =

3、x2 - EJ = J + (D - B)y1 = y2If (J / (2 G) >= E Then J = J - E * (2 G): y2 = y2 - EPicture1.Line (x2 * Text6.Text, y2 * Text6.Text)-(x1 * Text6.Text, y1 * Text6.Text), vbGreenNext HPicture1.Line (C * Text6.Text, -D * Text6.Text)-(A * Text6.Text, -B * Text6.Text), vbRedEnd Sub*单步直线插补*Private Sub Co

4、mmand2_Click()If (-C + A) > (D - B) Then F = -C + A Else: F = D - BG = 1Do While (2 G) <= FG = G + 1Picture1.Line (C * Text6.Text, -D * Text6.Text)-(A * Text6.Text, -B * Text6.Text), vbRedLoopI = I + (-C + A)J = J + (D - B)If (I / (2 G) >= E And (J / (2 G) >= E ThenPicture1.Line (x2 - E)

5、 * Text6.Text, (y2 - E) * Text6.Text)-(x2 * Text6.Text, y2 * Text6.Text), vbGreenI = I - E * (2 G)J = J - E * (2 G)x2 = x2 - Ey2 = y2 - EElseIf (I / (2 G) >= E And (J / (2 G) < E ThenPicture1.Line (x2 - E) * Text6.Text, y2 * Text6.Text)-(x2 * Text6.Text, y2 * Text6.Text), vbGreenI = I - E * (2

6、 G)x2 = x2 - EElseIf (I / (2 G) < E And (J / (2 G) >= E ThenPicture1.Line (x2 * Text6.Text, (y2 - E) * Text6.Text)-(x2 * Text6.Text, y2 * Text6.Text), vbGreenJ = J - E * (2 G)y2 = y2 - EEnd IfEnd Sub3. DDA法插补第二象限直线的流程图：YNYNYNMm-1XeXeXeYeYeYe初始化xeXe，yeYe，累加次数mM，Xe、Ye清零M=0吗？Ye有溢出吗？Xe有溢出吗？+Y向走一步-

7、X向走一步结束逐点比较法插补第三到第二象限顺圆弧1. 源程序：Dim X0, Y0, CXY, CD, CX1, CY1, CX2, CY2, CX11, CY11, CX22, CY22, ci, R, a1, b1, c1, d1, e1, x1, y1, x2, y2 As SingleCONST Pi=3.1415926*连续圆弧插补*Private Sub Command6_Click()d1 = 1 / 2 * (CX22 2 + CY22 2 - CX11 2 - CY11 2) / (CY22 - CY11)e1 = (CX11 - CX22) / (CY22 - CY11)a

8、1 = 1 + e1 2b1 = 2 * d1 * e1 - 2 * CX11 - 2 * CY11 * e1c1 = CX11 2 + CY11 2 + d1 2 - 2 * d1 * CY11 - R 2X0 = (-b1 + Sqr(b1 2 - 4 * a1 * c1) / (2 * a1)Y0 = d1 + e1 * X0 *求得圆心If CX1 <> X0 And CX2 <> X0 Theno = Atn(CY1 - Y0) / (CX1 - X0) + Pi *起始角o1 = Atn(CY2 - Y0) / (CX2 - X0) + Pi *终止角Pic

9、ture2.Circle (X0, Y0), R, vbRed, o1, oElsePicture2.Circle (X0, Y0), R, vbRed, 2 / Pi, 3 * Pi / 2End If *画圆 again: *开始插补过程If CY1 < Y0 ThenIf (CX1 - X0) 2 + (CY1 - Y0) 2 <= R 2 ThenPicture2.Line (CX1, CY1)-(CX1 - ci, CY1)CX1 = CX1 - ciElsePicture2.Line (CX1, CY1)-(CX1, CY1 + ci)CY1 = CY1 + ciEnd

10、 IfElseIf (CX1 - X0) 2 + (CY1 - Y0) 2 <= R 2 ThenPicture2.Line (CX1, CY1)-(CX1, CY1 + ci)CY1 = CY1 + ciElsePicture2.Line (CX1, CY1)-(CX1 + ci, CY1)CX1 = CX1 + ciEnd IfEnd If If (CX1 - CX2) 2 + (CY1 - CY2) 2 > (CX1 - CX2 + ci) 2 + (CY1 - CY2) 2 Or (CX1 - CX2) 2 + (CY1 - CY2) 2 > (CX1 - CX2 -

11、 ci) 2 + (CY1 - CY2) 2 Or (CX1 - CX2) 2 + (CY1 - CY2) 2 > (CX1 - CX2) 2 + (CY1 - CY2 + ci) 2 Or (CX1 - CX2) 2 + (CY1 - CY2) 2 > (CX1 - CX2) 2 + (CY1 - CY2 - ci) 2 ThenGoTo againElseEnd IfEnd Sub*单步圆弧插补*Private Sub Command7_Click()d1 = 1 / 2 * (CX22 2 + CY22 2 - CX11 2 - CY11 2) / (CY22 - CY11)

12、e1 = (CX11 - CX22) / (CY22 - CY11)a1 = 1 + e1 2b1 = 2 * d1 * e1 - 2 * CX11 - 2 * CY11 * e1c1 = CX11 2 + CY11 2 + d1 2 - 2 * d1 * CY11 - R 2X0 = (-b1 + Sqr(b1 2 - 4 * a1 * c1) / (2 * a1)Y0 = d1 + e1 * X0 *求得圆心If CX1 <> X0 And CX2 <> X0 Theno = Atn(CY1 - Y0) / (CX1 - X0) + Pi *终止角o1 = Atn(

13、CY2 - Y0) / (CX2 - X0) + Pi *终止角Picture2.Circle (X0, Y0), R, vbRed, o1, oElsePicture2.Circle (X0, Y0), R, vbRed, 2 / Pi, 3 * Pi / 2End If *画圆If (CX1 - CX2) 2 + (CY1 - CY2) 2 > (CX1 - CX2 + ci) 2 + (CY1 - CY2) 2 Or (CX1 - CX2) 2 + (CY1 - CY2) 2 > (CX1 - CX2 - ci) 2 + (CY1 - CY2) 2 Or (CX1 - CX2

14、) 2 + (CY1 - CY2) 2 > (CX1 - CX2) 2 + (CY1 - CY2 + ci) 2 Or (CX1 - CX2) 2 + (CY1 - CY2) 2 > (CX1 - CX2) 2 + (CY1 - CY2 - ci) 2 ThenElseGoTo cover *开始插补过程End IfIf CY1 < Y0 ThenIf (CX1 - X0) 2 + (CY1 - Y0) 2 <= R 2 ThenPicture2.Line (CX1, CY1)-(CX1 - ci, CY1)CX1 = CX1 - ciElsePicture2.Line

15、 (CX1, CY1)-(CX1, CY1 + ci)CY1 = CY1 + ciEnd IfElseIf (CX1 - X0) 2 + (CY1 - Y0) 2 <= R 2 ThenPicture2.Line (CX1, CY1)-(CX1, CY1 + ci)CY1 = CY1 + ciElsePicture2.Line (CX1, CY1)-(CX1 + ci, CY1)CX1 = CX1 + ciEnd IfEnd Ifcover:End Sub2.变量说明： CX1=圆弧起点的横坐标值，CY1=圆弧起点的纵坐标值 CX2=圆弧终点的横坐标值，CY2=圆弧终点的纵坐标值 X0=

16、圆弧半径的横坐标值， Y0=圆弧半径的纵坐标值R=圆弧半径， ci=圆弧插补的步长a1,b1,c1,d1为计算圆点的中间变量3.逐点比较法插补第三象限顺圆弧程序流程图NYNY+Y向走一步初始化xeX，yeY，E=NF0？-X向走一步E=0？结束起始FF-2Y+1FF-2X+1EE-1逐点比较法插补第二象限顺圆弧程序流程图： NYNY+X向走一步初始化xeX，yeY，E=NF0？+Y向走一步E=0？结束起始FF+2X+1FF+2Y+1EE-1六、程序界面及运行结果DDA插补第二象限直线运行界面DDA插补第二象限直线运行结果逐点比较法插补二三象限顺圆弧运行界面逐点比较法插补二三象限顺圆弧运行结果七

17、、课设中遇到的问题及解决办法1、在进行单步插补时出现问题，单步插补出不来？ 定义的变量应为全局变量，通过按钮来实现单步操作。按第一次按钮，程序执行一步，按第二次时，程序执行两步，及将第一步做的覆盖后在多做一步。依此，每次按下按钮都比前一次多做一步，这样，作图时就表现为单步运行。2、在圆弧插补是画出的圆跟圆弧的插补在起点和终点处不重合？ 在画图的pitcure属性中的scaletop和scalewidth的值应相等，否则画出的横纵坐标不等，导致在横坐标和纵坐标上的长对不等使得与圆弧不重合。3、如何解决起点不是原点的直线的插补 若是起点不是原点的话，可以将起点平移到原点位置，而终点也相应的平移即可，这样就解决了起点不是原点的问题。根据这个思想在判断象限时就拿终点坐标和起点坐标比较来判断终点属于哪个象限。 和插补直线一样，当圆心不是原点时，可以将圆心平移到原点位置，圆上各点相应的平移即可。八、心得体会通过这次的机床数控课程设计，使我加深了对数控机床的插