數(shù)控課程設計--數(shù)控中非圓曲線逼近的算法實現(xiàn)(存儲版)
【正文】 浦泉 .機床電氣控制 [M].重慶 :重慶大學出版社 . [5] 譚浩強 .Basic語言結(jié)構(gòu)化程序設計教程 [M].北京 :中國科學技術出版社 ,1990. [6] 楊林 ,李繼良 .Visual Basic編程高手 [M].北京 :北京大學出版社 ,2021. [7] 一組專用凸輪的計算機輔助設計 [J].機械工程師 ,1998,(4): 5859. [8] 凸輪曲線的快速畫法 [J].機械工程師 ,1998,(6): 2223. [9] 平面凸輪機 構(gòu) CAD系統(tǒng)的研究與開發(fā) [J].機械設計與制造 ,2021,(5):1213. [10] 圓柱非圓曲線槽凸輪的數(shù)控加工 [J].制造技術與機床 ,2021,(8):34. [11] 圓柱凸輪的參數(shù)化設計及數(shù)控加工 [J].精密制造及自動化 ,2021,11: 28. [12] 參數(shù)化凸輪輪廓轉(zhuǎn)換及 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 (qidaox, qidaoy), vbRed (X(0), Y(0)), vbRed = vbSolid (X(0), Y(0)), vbRed p = Format(X(0), ) q = Format(Y(0), ) If zuobiao = 1 Then = N1 G90 G17 G00 G4 amp。 Y amp。 Z30 M03 S amp。 N3 Z amp。 F amp。 vbCrLf End If Else If o = 4 Then p = Format(X(1) X(0), ) q = Format(Y(1) Y(0), ) = amp。 N amp。 D01 amp。 vbCrLf = amp。 vbCrLf = 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。 N amp。 p amp。 X 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() ‘顯示當前繪制的非圓曲線方程 quxian = 1 = True = True = 標準方程： x^2 / a^2 + y^2 / b^2 = 1 amp。 參數(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() ‘選定左刀具補償 daobu = 1 End Sub Private Sub Option6_Click() ‘選定右刀具補償 daobu = 2 End Sub Private Sub Option7_Click() ‘選定輸出絕對坐標的 NC 代碼 zuobiao = 1 End Sub
畢業(yè)設計相關推薦
鄂ICP備17016276號-1