數(shù)控課程設計--數(shù)控中非圓曲線逼近的算法實現(xiàn)(文件)
【正文】 ck() ‘選定右刀具補償 daobu = 2 End Sub Private Sub Option7_Click() ‘選定輸出絕對坐標的 NC 代碼 zuobiao = 1 End Sub Private Sub Option8_Click() ‘選定輸出相對 坐標的 NC 代碼 zuobiao = 2 End Sub 。 vbCrLf amp。 vbCrLf End If End If Private Sub Command5_Click() = True End Sub Private Sub Command6_Click() ‘程序結束 End End Sub Private Sub Label21_Click() End Sub Private Sub Option1_Click() ‘顯示當前繪制的非圓曲線方程 quxian = 1 = True = True = 標準方程： x^2 / a^2 + y^2 / b^2 = 1 amp。 vbCrLf 17 End If End If o = o + 1 X(0) = X(1) Y(0) = Y(1) Loop = amp。 X amp。 F amp。 p amp。 Y amp。 N amp。 q 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。 q amp。 vbCrLf = amp。 e amp。 vbCrLf = amp。 N2 X amp。 D01 amp。 Y amp。 N amp。 q amp。 vbCrLf End If Else If o = 4 Then p = Format(X(1) X(0), ) q = Format(Y(1) Y(0), ) = amp。 X amp。 F amp。 p amp。 N3 Z amp。 p amp。 Z30 M03 S amp。 d amp。 Y amp。 n amp。 11 參 考 文 獻 [1] 廖效果 .數(shù)字控制機床 [M].武漢 :華中理工大學出版社 ,. [2] 廖效果 .數(shù)控技術 [M].武漢 :湖北科學技術出版社 ,. [3] 劉又午 .數(shù)字控制機床 [M].北京 :機械工業(yè)出版社 . [4] 龔浦泉 .機床電氣控制 [M].重慶 :重慶大學出版社 . [5] 譚浩強 .Basic語言結構化程序設計教程 [M].北京 :中國科學技術出版社 ,1990. [6] 楊林 ,李繼良 .Visual Basic編程高手 [M].北京 :北京大學出版社 ,2021. [7] 一組專用凸輪的計算機輔助設計 [J].機械工程師 ,1998,(4): 5859. [8] 凸輪曲線的快速畫法 [J].機械工程師 ,1998,(6): 2223. [9] 平面凸輪機 構 CAD系統(tǒng)的研究與開發(fā) [J].機械設計與制造 ,2021,(5):1213. [10] 圓柱非圓曲線槽凸輪的數(shù)控加工 [J].制造技術與機床 ,2021,(8):34. [11] 圓柱凸輪的參數(shù)化設計及數(shù)控加工 [J].精密制造及自動化 ,2021,11: 28. [12] 參數(shù)化凸輪輪廓轉換及 NC代碼自動生成 [J].機床與液壓 ,2021,6, 2931. 12 附錄 VB 主要源程序 Dim daolu As Integer, daobu As Integer Dim X(5) As Double, Y(5) As Double Dim qidaox As Single, qidaoy As Single, qidaoz As Single Dim quxian As Integer, pi As Double, zuobiao As Integer ‘定義變量 Private Sub Command1_Click() = = End Sub ‘清屏繪圖區(qū)域 Private Sub Command2_Click() ‘繪制坐標系 = vbSolid = 1 (50, 50)(50, 50) (50, 0)(50, 0) (48, 2) (50, 0)(48, 2) X (0, 50)(0, 50) (2, 48) (0, 50)(2, 48) Y = 2 = 2 O pi = = a = 0 If quxian = 1 Then a = Val() b = Val() For i = 0 To 2 * pi Step ‘點命令繪制非圓曲線原圖 (a * Cos(i), b * Sin(i)) Next End If If quxian = 2 Then a = Val() For i = 0 To 2 * pi Step (a * Cos(i) ^ 3, a * Sin(i) ^ 3) Next End If 13 End Sub Private Sub Command3_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() = 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 Y(0) = 0 (
畢業(yè)設計相關推薦
鄂ICP備17016276號-1