數(shù)控課程設(shè)計(jì)--數(shù)控中非圓曲線逼近的算法實(shí)現(xiàn)(存儲(chǔ)版)
【正文】 .[7] 一組專用凸輪的計(jì)算機(jī)輔助設(shè)計(jì)[J].機(jī)械工程師,1998,(4): 5859.[8] 凸輪曲線的快速畫法[J].機(jī)械工程師,1998,(6): 2223.[9] 平面凸輪機(jī)構(gòu)CAD系統(tǒng)的研究與開發(fā)[J].機(jī)械設(shè)計(jì)與制造,2000,(5):1213.[10] 圓柱非圓曲線槽凸輪的數(shù)控加工[J].制造技術(shù)與機(jī)床,2000,(8):34.[11] 圓柱凸輪的參數(shù)化設(shè)計(jì)及數(shù)控加工[J].精密制造及自動(dòng)化,2001,11: 28.[12] 參數(shù)化凸輪輪廓轉(zhuǎn)換及NC代碼自動(dòng)生成[J].機(jī)床與液壓,2001,6, 2931.附錄 VB主要源程序Dim daolu As Integer, daobu As IntegerDim X(5) As Double, Y(5) As DoubleDim qidaox As Single, qidaoy As Single, qidaoz As SingleDim quxian As Integer, pi As Double, zuobiao As Integer ‘定義變量Private Sub Command1_Click() = = End Sub ‘清屏繪圖區(qū)域Private Sub Command2_Click() ‘繪制坐標(biāo)系 = 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 Opi = = a = 0If quxian = 1 Thena = Val()b = Val()For i = 0 To 2 * pi Step ‘點(diǎn)命令繪制非圓曲線原圖 (a * Cos(i), b * Sin(i))NextEnd IfIf quxian = 2 Thena = Val()For i = 0 To 2 * pi Step (a * Cos(i) ^ 3, a * Sin(i) ^ 3)NextEnd IfEnd SubPrivate Sub Command3_Click() ‘等間距直線逼近s = pi = o = 4a = Val() ‘輸入加工參數(shù)b = Val()v = Val()n = Val()F = Val()r = Val()qidaox = Val()qidaoy = Val()qidaoz = Val()d = Val() = vbDash = 1If quxian = 1 Then ‘畫橢圓If daolu = 1 Then ‘順時(shí)針走刀方向If daobu = 1 Then e = 1a = a + rb = b + rEnd IfIf daobu = 2 Thene = 2a = a rb = b rEnd IfX(0) = aY(0) = 0 (qidaox, qidaoy), vbRed (X(0), Y(0)), vbRed = vbSolid (X(0), Y(0)), vbRedp = 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。 vbCrLfEnd IfElseIf o = 4 Thenp = Format(X(1) X(0), )q = Format(Y(1) Y(0), ) = amp。 N amp。 D01 amp。 vbCrLf = amp。 vbCrLf = amp。 vbCrLfEnd Ifline1:Do While i 0i = i s * piX(1) = a * Cos(i)Y(1) = b * Sin(i)If Y(1) 0 Thenk = (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 IfIf (w v) = Then (X(1), Y(1)), vbGreenElses = s + GoTo line1End IfIf zuobiao = 1 Thenp = Format(X(1), )q = Format(Y(1), )If o = 4 Then = amp。 N amp。 p amp。 X amp。 vbCrLfEnd IfEnd IfPrivate Sub Command5_Click() = TrueEnd SubPrivate Sub Command6_Click() ‘程序結(jié)束EndEnd SubPrivate Sub Label21_Click()End SubPrivate Sub Option1_Click() ‘顯示當(dāng)前繪制的非圓曲線方程quxian = 1 = True = True = 標(biāo)準(zhǔn)方程：x^2 / a^2 + y^2 / b^2 = 1 amp。 參數(shù)方程：x=a * Cos(i)^3 , y=a * Sin(i)^3End SubPrivate Sub Option3_Click() ‘選定順時(shí)針走刀方向daolu = 1End SubPrivate Sub Option4_Click() ‘選定逆時(shí)針走刀方向daolu = 2End SubPrivate Sub Option5_Click() ‘選定左刀具補(bǔ)償daobu = 1End SubPriv
教學(xué)教案相關(guān)推薦
鄂ICP備17016276號(hào)-1