數(shù)控課程設(shè)計(jì)--數(shù)控中非圓曲線逼近的算法實(shí)現(xiàn)(參考版)
2025-06-10 06:12本頁面
【正文】 參數(shù)方程： x=a * Cos(i)^3 , y=a * Sin(i)^3 End Sub Private Sub Option3_Click() ‘選定順時針走刀方向 daolu = 1 End Sub Private Sub Option4_Click() ‘選定逆時針走刀方向 daolu = 2 18 End Sub Private Sub Option5_Click() ‘選定左刀具補(bǔ)償 daobu = 1 End Sub Private Sub Option6_Click() ‘選定右刀具補(bǔ)償 daobu = 2 End Sub Private Sub Option7_Click() ‘選定輸出絕對坐標(biāo)的 NC 代碼 zuobiao = 1 End Sub Private Sub Option8_Click() ‘選定輸出相對 坐標(biāo)的 NC 代碼 zuobiao = 2 End Sub 。 vbCrLf amp。 vbCrLf amp。 vbCrLf End If End If Private Sub Command5_Click() = True End Sub Private Sub Command6_Click() ‘程序結(jié)束 End End Sub Private Sub Label21_Click() End Sub Private Sub Option1_Click() ‘顯示當(dāng)前繪制的非圓曲線方程 quxian = 1 = True = True = 標(biāo)準(zhǔn)方程： x^2 / a^2 + y^2 / b^2 = 1 amp。 o amp。 vbCrLf 17 End If End If o = o + 1 X(0) = X(1) Y(0) = Y(1) Loop = amp。 Y amp。 X amp。 N amp。 F amp。 q amp。 p amp。 vbCrLf End If Else If o = 4 Then p = Format(X(1) X(0), ) q = Format(Y(1) Y(0), ) = amp。 Y amp。 X amp。 N amp。 F amp。 q amp。 p amp。 vbCrLf End If line1: Do While i 0 i = i s * pi X(1) = a * Cos(i) Y(1) = b * Sin(i) If Y(1) 0 Then k = (b ^ 2 * X(1)) / (a ^ 2 * Y(1)) w = Abs(k * X(0) Y(0) + Y(1) k * X(1)) / (Sqr(k ^ 2 + 1)) End If If (w v) = Then (X(1), Y(1)), vbGreen Else s = s + GoTo line1 End If If zuobiao = 1 Then p = Format(X(1), ) q = Format(Y(1), ) If o = 4 Then = amp。 N3 Z amp。 q amp。 p amp。 vbCrLf = amp。 Z30 M03 S amp。 e amp。 d amp。 vbCrLf = amp。 Y amp。 N2 X amp。 n amp。 D01 amp。 vbCrLf 15 End If End If o = o + 1 X(0) = X(1) Y(0) = Y(1) Loop Private Sub Command4_Click() ‘等誤差直線逼近 s = pi = o = 4 a = Val() ‘輸入加工參數(shù) b = Val() v = Val() n = Val() F = Val() r = Val() qidaox = Val() qidaoy = Val() qidaoz = Val() d = Val() i = Val() = vbDash = 1 If quxian = 1 Then ‘畫橢圓 If daolu = 1 Then ‘順時針走刀方向 If daobu = 1 Then e = 1 a = a + r b = b + r End If If daobu = 2 Then e = 2 a = a r b = b r End If X(0) = a * Cos(i) Y(0) = b * Sin(i) (qidaox, qidaoy), vbGreen (X(0), Y(0)), vbGreen = vbSolid (X(0), Y(0)), vbGreen p = Format(X(0), ) 16 q = Format(Y(0), ) If zuobiao = 1 Then = N1 G90 G17 G00 G4 amp。 Y amp。 X amp。 N amp。 F amp。 q amp。 p amp。 vbCrLf End If Else If o = 4 Then p = Format(X(1) X(0), ) q = Format(Y(1) Y(0), ) = amp。 Y amp。 X amp。 N amp。 F amp。 q amp。 p amp。 vbCrLf End If line1: Do While X(0) = (a + ) X(1) = X(0) s Y(1) = (b * Sqr(Abs(a ^ 2 X(1) ^ 2))) / a If X(1) X(0) And Y(1) Y(0) Then k = (Y(1) Y(0)) / (X(1) X(0)) If k 0 Then j = Atn(b / (a * k)) End If If k 0 Then j = Atn(b / (a * k)) + pi End If X(2) = a * Cos(j) Y(2) = b * Sin(j) w = Abs(k * X(2) Y(2) + Y(0) k * X(0)) / (Sqr(k ^ 2 + 1)) End If If w = v Then (X(1), Y(1)), vbRed Else s = s / 2 GoTo line1 End If If zuobiao = 1 Then p = Format(X(1), ) q = Format(Y(1), ) If o = 4 Then = amp。 N3 Z amp。 q amp。 p amp。 vbCrLf 14 = amp。 Z30 M03 S amp。 e amp。 d amp。 vbCrL
畢業(yè)設(shè)計(jì)相關(guān)推薦
鄂ICP備17016276號-1