數(shù)控課程設計-nc仿真系統(tǒng)編制說明書

上傳人：奔*** IP屬地：河北更新時間：2024-03-01 格式：doc 頁數(shù)：26 大?。?25.00KB 人氣指數(shù)：12 舉報 版權申訴

已閱讀1頁，還剩25頁未讀，繼續(xù)免費閱讀

版權說明：本文檔由用戶提供并上傳，收益歸屬內(nèi)容提供方，若內(nèi)容存在侵權，請進行舉報或認領

文檔簡介

1、　　數(shù)控課程設計　　——NC仿真系統(tǒng)編制　　學院：機電工程學院　　專業(yè)：機自五班　　學生：xxx<

2、;/p>　　目錄　　內(nèi)容提要 …………………………………………… 3　　引言 …………………………………………… 3　　軟件設計 …………………………………………… 4　　開發(fā)工具的選擇 ……

3、……………………………… 4 　　人機界面的確定 …………………………………… 4　　其他輔助功能的祥細說明…………………………… 7　　軟件缺點說明 ……………………………………… 7　　改進措施 …………………………………………… 7&

4、lt;p>　　軟件的使用說明及測試結果………………………… 7　　算法說明……………………………………………… 7　　程序流程圖 ………………………………………… 8　　程序清單………………………………………………9　　設計小結………………………………………………

5、 25　　參考文獻 …………………………………………… 25　　一內(nèi)容提要　　本說明書主要是作為NC仿真系統(tǒng)的介紹及操作說明。本軟件就是對于給定的一段NC代碼，用VB這個高級語言編寫程序?qū)⑺庸さ牧慵膸缀涡螤?、以及相關的加工參數(shù)仿真并輸出，減少實際加工時造成的可避免的

6、事故。本文簡要介紹了現(xiàn)代世界上數(shù)控仿真系統(tǒng)的發(fā)展概況，詳細介紹了本仿真系統(tǒng)的一些基本功能。　　Application and Development of Simulation Technology in Manufacturing　　Abstract　　This instr

7、uction is mainly used to introduce this NC simulation system and how to operate .This sofeware compile by Visual Basic.It can output the workpiece shape and the concerned parameters according to a given NC code so that i

8、t can reduce the accident which can be avoid .This paper introduce the development survey of numerical controlling stimulation system in nowadays and introduct the system’s primary functions in detail.<p&g

9、t;　　二引言　　近幾年，中國制造業(yè)的快速發(fā)展是有目共睹，中國將成為世界的制造中心。制造技術的發(fā)展將會為我國的現(xiàn)代化建設發(fā)揮更重要的作用。必然地，數(shù)控系統(tǒng)的計算機仿真技術也迅速發(fā)展，逐步成為數(shù)控系統(tǒng)不可缺少的關鍵環(huán)節(jié)。　　數(shù)控仿真技術為驗證數(shù)控程序的可靠性及預測加工過程提供了強有力的工具。驗證數(shù)控代碼，傳統(tǒng)的解決方

10、法是通過試切。就是實際加工木質(zhì)或塑料模型，通過檢查加工結果與原設計要求進行比較，再進行編輯修改。試切方式不但耗費人力物力，而且延緩了新產(chǎn)品的生產(chǎn)周期。后來又采用軌跡顯示法，即以劃針或筆代替刀具，以著色板或紙代替工件來仿真刀具運動軌跡的二維圖形（也可以顯示二維半的加工軌跡），有相當大的局限性。為此，人們一直在研究能代替試切的計算機仿真方法，并取得了重要的進展，目前正向提高模型的精確度、仿真計算實時化和改善圖形顯示的真實感等方向發(fā)展。<

11、;/p>　　實現(xiàn)非實際加工過程中的數(shù)控加工仿真系統(tǒng)，包括定性圖形顯示和定量干涉驗證兩方面。目前常用的方法有：1.直接實體造型法；2.基于圖像空間的方法；3.離散矢量求交法。圖象空間法數(shù)控程序仿真系統(tǒng)的基本原理是，利用軟件技術模擬數(shù)控裝置的基本功能，實現(xiàn)零件加工過程中的直線和圓弧插補過程，在計算機屏幕上動態(tài)仿真出零件加工過程中刀具切削運動軌跡，實現(xiàn)對數(shù)控程序的仿真驗證。（本軟件就是基于此方式的仿真系統(tǒng)）<

12、/p>　　經(jīng)過40多年的發(fā)展，我國數(shù)控系統(tǒng)在技術上已趨于成熟，在重大關鍵技術上(包括核心技術)，已達到國外先進水平。結合曲面離散技術、掃描體造型技術和法矢求交技術進行曲面零件的五軸數(shù)控仿真，是一種可行的方法。幾何仿真和力學仿真相結合將獲得更精確的試切模型，這也是目前國內(nèi)尚未涉及、但急需解決的新課題。　　三軟件設計</p&g

13、t;　　開發(fā)工具的選擇 　　目前流行的開發(fā)工具有C++Builder、VC、VB和Delphi，由于界面設計的方便性，而且以前學過VB。我就第一選擇了Visual Basic(VB)程序開發(fā)工具。因為VB程序設計語言簡單易用，又在編程系統(tǒng)中引入了面向?qū)ο蟮臋C制，用一種巧妙的方法把Windows編程的復雜性封裝起來，提供了一種可視界面的設

14、計方法。用戶可直接使用窗體和控件設計應用程序界面，極大地提高了應用程序開發(fā)的效率。　　主要具有以下優(yōu)點：　　強大的數(shù)值和字符處理功能　　豐富的圖形指令，可方便地繪制各種圖形　　提供靜態(tài)和動態(tài)數(shù)組，有利于簡化內(nèi)存管理

15、　　過程可遞歸調(diào)用，使程序更為簡練　　支持隨機文件訪問和順序文件訪問　　提供了一個可供應用程序調(diào)用的包含多種類型的圖標庫　　具有完善的運行出錯處理　　因此選用VB為開發(fā)工具。　　人機界面的確

16、定 　　本程序提供了友好的人機交互界面，可實現(xiàn)各種參數(shù)的隨意設置個或修改。　　總共設計了三個窗口，分別是：　　歡迎窗口　　該窗口是剛運行本程序時，出現(xiàn)的窗口，是歡迎人使用此NC仿真系統(tǒng)，讓人以較輕松的心情使用本程序

17、。以好的心態(tài)去設計NC程序。　?。?）幫助窗口　　為了適應使用者的要求，本開發(fā)軟件還為工件的設置建立了該設計界面。能使用戶得到有用的信息,以方便使用本軟件。　　（3）主窗口　　該窗口是程序仿真的主

18、窗口，從這個窗口可以完成大部分的仿真，從上圖可以了解其大部分名稱，具體使用方法可參看幫助菜單里的使用介紹，使用范圍等信息。　　3．其他輔助功能的祥細說明　　該程序除提供一般的打開文件、新建文件、保存文件的普通功能外，還提供顯示速度控制和重新顯示,以幫助更好地觀察加工過程,此外還有幫助功能,使使用者能更快地了解本軟件,提高使用效率.

19、　　4．軟件缺點說明：　　不可避免，限于時間原因，該軟件存在不少缺點，主要有：　　畫圖精度有待提高，這與計算機本身有關　　暫停及停止靈敏度有待提高　　5．改進措施：

20、將畫直線、畫圓弧的子函數(shù)采用定時器來實現(xiàn)可提高靈敏度。　　6．軟件的使用說明及測試結果　　使用說明　　使用指南　　使用幫助<p&

21、gt;　　該軟件必須在每行G指令的末尾設置一結束標識符方”F”可實現(xiàn)指針的移動。　　測試環(huán)境　　該程序在中文Windows98、Windows2000、WindowsXP下測試通過,并且運行正常.　　四使用算法

22、　　該NC系統(tǒng)使用積分插補算法，逐點比較計算各點的運動軌跡。　　直線插補采用逐點比較插補方法,從讀程序模塊中的到X,Y,Z的終點值 X1,Y1,Z1 首先通過判斷X1與X,Y1與Y,Z1與Z的大小關系確定X,Y,Z.利用公式:Fm=Ym*Xe-Xm*Ye,后再判斷Fm. 程序如下:　　Sub G01(X As Single, Y As

23、Single, Z As Single)　　Dim fm As Single, op As Single　　bu = Abs(X - CurrentNX) + Abs(Y - CurrentNY)　　op = 1

24、fm = 0　　Do Until bu = 0　　If X >= 0 And Y >= 0 Then　　五程序流程圖　　如下：<p&

25、gt;　　六程序清單　　歡迎窗口程序:　　Dim i As Integer　　Private Sub Form_DblClick()　　Form1.Show<p&g

26、t;　　Timer1.Enabled = False　　Unload Me　　End Sub　　Private Sub Timer1_Timer()　　i = i + 1<

27、/b>　　If i > 3 Then　　Form1.Show　　Unload Me　　End If　　End Sub<

28、/b>　　幫助窗口程序:　　Private Sub Form_Resize()　　Text1.Left = 0　　Text1.Top = 0　　Text1.Width = Form2.W

29、idth　　Text1.Height = Form2.Height　　End Sub　　主窗口程序:　　Dim xmovebein As Integer '畫直線起點X值</p&g

30、t;　　Dim ymovebein As Integer '畫直線起點Y值　　Dim xmovefinis As Integer '畫直線終點X值　　Dim ymovefinis As Integer '畫直線終點Y值　　Dim huang As Integer

31、 '退出循環(huán)程序的標志　　Dim ch As Integer　　Dim xround1 As Integer　　Dim yround1 As Integer　　Dim hh As Integer　　Dim s As Int

32、eger　　Public Sub savefile()　　CommonDialog1.InitDir = "F:\數(shù)控仿真\NC程序"　　CommonDialog1.Filter = "文檔文件(*.txt)|*.txt|所有文件(*.*)|*.*"

33、　　CommonDialog1.ShowSave　　On Error GoTo re　　Open CommonDialog1.FileName For Output As #1　　Print #1, Text1.Text　　Close

34、#1　　re:　　End Sub　　'直線插補子過程　　Public Sub G01(ByVal xbegin As Intege

35、r, ByVal ybegin As Integer, ByVal xfinish As Integer, ByVal yfinish As Integer)　　Label10.Caption = "直線插補"　　Dim k As Single '直線的斜率　　Dim k1 As Si

36、ngle '動點與終點連線的斜率　　xmovebegin = xbegin: ymovebegin = ybegin: xmovefinish = xbegin: ymovefinish = ybegin　　'初始化畫直線起點X值畫直線起點Y值畫直線終點X值畫直線終點Y值　　If xbegi

37、n <> xfinish And ybegin <> yfinish Then　　k = (yfinish - ybegin) / (xfinish - xbegin)　　End If　　Do

38、　　Picture1.Line (xmovebegin, ymovebegin)-(xmovefinish, ymovefinish), &H110CE4 '畫線　　xmovebegin = xmovefinish: ymovebegin = ymovefinish '重新對畫線起點賦值　　If xbegin

39、<> xfinish And ybegin <> yfinish Then '判斷斜率是否存在或者大于零　　If xfinish <> xmovefinish Then　　k1 = (yfinish - ymovefinish) / (xfinish - xmovefinish)<

40、p>　　End If　　If k > 0 Then '判斷斜率的正負　　If xbegin < xfinish Then '判斷插補的方向　　If k1 > k Then　　ymovefinis

41、h = ymovefinish + 1　　Text3.Text = "+1"　　Text2.Text = "0"　　If s <> 1 Then　　Call delay<b

42、>　　End If　　Else　　xmovefinish = xmovefinish + 1　　Text2.Text = "+1"　　Text3.Text = "0"&

43、lt;/p>　　If s <> 1 Then　　Call delay　　End If　　End If　　Else<

44、;/p>　　If k1 > k Then　　ymovefinish = ymovefinish - 1　　Text3.Text = "-1"　　If s <> 1 Then　　Call delay</

45、p>　　End If　　Else　　xmovefinish = xmovefinish - 1　　Text2.Text = "+1"　　If s &

46、lt;> 1 Then　　Call delay　　End If　　End If　　End If

47、;　　Else　　If xbegin < xfinish Then　　If k1 > k Then　　xmovefinish = xmovefinish + 1　　Text2.Text = "+1"

48、　　If s <> 1 Then　　Call delay　　End If　　Else　　ymovefinish = ymovefinish - 1

49、;　　Text3.Text = "-1"　　If s <> 1 Then　　Call delay　　End If　　End If</p&

50、gt;　　Else　　If k1 > k Then　　xmovefinish = xmovefinish - 1　　Text2.Text = "-1"　　If s <> 1

51、Then　　Call delay　　End If　　Else　　ymovefinish = ymovefinish + 1　　Text3.Text = &

52、quot;+1"　　If s <> 1 Then　　Call delay　　End If　　End If　　End

53、 If　　End If　　Else　　If xbegin = xfinish Then　　If ybegin > yfinish Then<

54、p>　　ymovefinish = ymovefinish - 1　　Text3.Text = "-1"　　If s <> 1 Then　　Call delay　　End If

55、　　Else　　ymovefinish = ymovefinish + 1　　Text3.Text = "+1"　　If s <> 1 Then　　Call delay</p

56、>　　End If　　End If　　Else　　If xbegin > xfinish Then　　xmovefinish

57、 = xmovefinish - 1　　Text2.Text = "-1"　　If s <> 1 Then　　Call delay　　End If<b&g

58、t;　　Else　　xmovefinish = xmovefinish + 1　　Text2.Text = "+1"　　If s <> 1 Then　　Call delay<

59、;b>　　End If　　End If　　End If　　End If　　If xbegin = xfinish Or ybegin

60、 = yfinish Then　　shi = (xmovefinish <> xfinish Or ymovefinish <> yfinish)　　Else　　shi = (xmovefinish <> xfinish And ymove

61、finish <> yfinish)　　End If　　Text5.Text = Format$(xmovefinish / 10, "00.0000")　　Text6.Text = Format$(ymovefinish / 10, &quo

62、t;00.0000")　　Text7.Text = Format$(0, "00.0000")　　If huang = 1 Or huang = 2 Then Exit Do　　Loop While shi　　End Sub

63、　　'X正方向脈沖輸出子過程　　Public Sub delay()　　Dim i As Integer　　For i = 1 To s　　DoEvents<

64、/p>　　Next i　　End Sub　　'順圓插補子過程　　Public Sub G02(ByVal xbegin As Single, ByVal ybegi

65、n As Single, ByVal xfinish As Single, ByVal yfinish As Single, ByVal xround As Single, ByVal yround, ByVal r As Single)　　Dim wen As Integer　　Label10.Caption = "順圓插補"<

66、;/p>　　Dim l As Single '動點到圓心的距離　　xmovebegin = xbegin: ymovebegin = ybegin: xmovefinish = xbegin: ymovefinish = ybegin　　'初始化畫直線起點X值畫直線起點Y值畫直線終點X值畫直線終點Y值&l

67、t;/p>　　Do　　Picture1.Line (xmovebegin, ymovebegin)-(xmovefinish, ymovefinish), &H110CE4 '畫線　　xmovebegin = xmovefinish: ymovebegin = ymovef

68、inish '重新對畫線起點賦值　　l = Sqr((xmovefinish - xround) ^ 2 + (ymovefinish - yround) ^ 2)　　If xmovefinish >= xround And ymovefinish > yround Then '判斷動點在以圓心為坐標原點的坐標系是的像限<

69、;/p>　　wen = 1　　ElseIf xmovefinish < xround And ymovefinish >= yround Then　　wen = 2　　ElseIf xmovefin

70、ish <= xround And ymovefinish < yround Then　　wen = 3　　ElseIf xmovefinish > xround And ymovefinish <= yround Then　　wen

71、 = 4　　End If　　Select Case wen　　Case 1　　If l <= r Then　　xmovefini

72、sh = xmovefinish + 1　　Text2.Text = "+1"　　Text3.Text = "0"　　If s <> 1 Then　　Call delay<

73、b>　　End If　　Else　　ymovefinish = ymovefinish - 1　　Text3.Text = "-1"　　Text2.Text = "0"

74、　　If s <> 1 Then　　Call delay　　End If　　End If　　Case 2

75、　　If l <= r Then　　ymovefinish = ymovefinish + 1　　Text3.Text = "+1"　　If s <> 1 Then　　Call delay&l

76、t;/p>　　End If　　Else　　xmovefinish = xmovefinish + 1　　Text2.Text = "+1"　　If

77、s <> 1 Then　　Call delay　　End If　　End If　　Case 3　　If

78、l <= r Then　　xmovefinish = xmovefinish - 1　　Text2.Text = "-1"　　If s <> 1 Then　　Call delay<b&g

79、t;　　End If　　Else　　ymovefinish = ymovefinish + 1　　Text3.Text = "+1"　　If s <> 1 Then

80、;　　Call delay　　End If　　End If　　Case 4　　If l <= r Then

81、　　ymovefinish = ymovefinish - 1　　Text3.Text = "-1"　　If s <> 1 Then　　Call delay　　End If</p

82、>　　Else　　xmovefinish = xmovefinish - 1　　Text2.Text = "-1"　　If s <> 1 Then　　Call delay&l

83、t;/p>　　End If　　End If　　End Select　　Text5.Text = Format$(xmovefinish / 10, "00.0000")

84、　　Text6.Text = Format$(ymovefinish / 10, "00.0000")　　Text7.Text = Format$(0, "00.0000")　　If huang = 1 Or huang = 2 Then Exit Do

85、　　Loop While xmovefinish <> xfinish Or ymovefinish <> yfinish　　End Sub　　'逆圓插補子過程　　Public Sub G03(ByVal

86、xbegin As Integer, ByVal ybegin As Integer, ByVal xfinish As Integer, ByVal yfinish As Integer, ByVal xround As Integer, ByVal yround As Integer, ByVal r As Integer)　　Label10.Caption = "逆圓插補&quo

87、t;　　Dim wen As Integer　　Dim l As Single '動點到圓心的距離　　xmovebegin = xbegin: ymovebegin = ybegin: xmovefinish = xbegin: ymovefinish = ybegin<p&

88、gt;　　'初始化畫直線起點X值畫直線起點Y值畫直線終點X值畫直線終點Y值　　Do　　Picture1.Line (xmovebegin, ymovebegin)-(xmovefinish, ymovefinish), &H110CE4 '畫線

89、　xmovebegin = xmovefinish: ymovebegin = ymovefinish '重新對畫線起點賦值　　l = Sqr((xmovefinish - xround) ^ 2 + (ymovefinish - yround) ^ 2)　　If xmovefinish >= xround And ymovefinish

90、> yround Then '判斷動點在以圓心為坐標原點的坐標系是的像限　　wen = 1　　ElseIf xmovefinish < xround And ymovefinish >= yround Then　　wen = 2&l

91、t;/b>　　ElseIf xmovefinish <= xround And ymovefinish < yround Then　　wen = 3　　ElseIf xmovefinish > xround And ymovefinish <=

92、yround Then　　wen = 4　　End If　　Select Case wen　　Case 1　　If

93、l < r Then　　ymovefinish = ymovefinish + 1　　Text3.Text = "+1"　　If s <> 1 Then　　Call delay

94、;　　End If　　Else　　xmovefinish = xmovefinish - 1　　Text2.Text = "-1"　　If s <> 1 Then

95、　　Call delay　　End If　　End If　　Case 2　　If l < r Then&l

96、t;p>　　xmovefinish = xmovefinish - 1　　Text2.Text = "-1"　　If s <> 1 Then　　Call delay　　End If</p&g

97、t;　　Else　　ymovefinish = ymovefinish - 1　　Text3.Text = "-1"　　If s <> 1 Then　　Call delay<

98、/p>　　End If　　End If　　Case 3　　If l < r Then　　ymovefinish = ymov

99、efinish - 1　　Text3.Text = "-1"　　If s <> 1 Then　　Call delay　　End If　　Els

100、e　　xmovefinish = xmovefinish + 1　　Text2.Text = "+1"　　If s <> 1 Then　　Call delay

101、　End If　　End If　　Case 4　　If l < r Then　　xmovefinish = xmovefinish + 1<

102、p>　　Text2.Text = "+1"　　If s <> 1 Then　　Call delay　　End If　　Else<

103、p>　　ymovefinish = ymovefinish + 1　　Text3.Text = "+1"　　If s <> 1 Then　　Call delay　　End If

104、　　End If　　End Select　　Text5.Text = Format$(xmovefinish / 10, "00.0000")　　Text6.Text = Format$(ymovefinish / 10, "

105、;00.0000")　　Text7.Text = Format$(0, "00.0000")　　If huang = 1 Or huang = 2 Then Exit Do　　Loop While xmovefinish <> xfinish Or ymovefinish

106、 <> yfinish　　End Sub　　'快速定位子過程　　Public Sub G00(ByVal xbegin As Single, ByVal ybegin As Single, ByVal xfinish

107、As Single, ByVal yfinish As Single)　　Label10.Caption = "快速定位"　　Dim n As Single　　If xfinish >= xbegin Then　　Text2.Text = &qu

108、ot;+1"　　Else　　Text2.Text = "-1"　　End If　　xbegin = xfinish　　If

109、yfinish >= ybegin Then　　Text3.Text = "+1"　　Else　　Text3.Text = "-1"　　End If&

110、lt;/p>　　ybegin = yfinish　　End Sub　　Private Sub close_Click()　　huang = 1　　Un

111、load Me　　End Sub　　Private Sub Command1_Click()　　'Anjan 'vbio.dll的解鎖操作,不可缺少,Anjan為vbio.dll的作者名字　　Wit

112、h Picture1　　.ScaleWidth = 4800 '定義圖像框的寬度尺寸　　.ScaleHeight = -4800 '定義圖像框的高度尺寸　　.ScaleLeft = -2400 '設置坐標原點　　.ScaleTop = 2400&l

113、t;/p>　　.DrawWidth = 1 '定義線形　　.DrawStyle = 6　　End With　　Picture1.Line (-2390, 0)-(2390, 0), &HFF0000 '畫X軸</

114、p>　　Picture1.Line (0, -2390)-(0, 2390), &HFF0000 '畫Y軸　　Picture1.Circle (0, 0), 1.5, RGB(128, 0, 0)　　With Picture1　　.DrawWidth = 1&l

115、t;/p>　　.DrawStyle = 6　　End With　　Text1.Text = UCase$(Text1.Text)　　Dim i As Integer, a(1 To 100), mb(1 To 100) As String, j A

116、s Integer, m As Integer　　Static gwb2%, m1%, xb2%, yb2%, ib2%, jb2%　　Do '處理M代碼　　m = InStr(m + 1, Text1.Text, "M")

117、　　If m = 0 Then Exit Do　　j = j + 1　　mb(j) = Mid$(Text1.Text, m, 3)　　i = i + 1　　a

118、(i) = m　　Loop While m <> 0　　Dim gwb As Integer, gww As String ' 定取G代碼的參數(shù)　　Dim xb As Integer, xb1 As Integer, xw As String, xasc As Intege

119、r '定義取X值的參數(shù)　　Dim yb As Integer, yb1 As Integer, yw As String, yasc As Integer '定義取Y值的參數(shù)　　Dim jb As Integer, jb1 As Integer, jw As String, jasc As Integer '定義取J值的參數(shù)<

120、;/p>　　Dim ib As Integer, ib1 As Integer, iw As String, iasc As Integer '定義取I值的參數(shù)　　Dim xfinish As Single　　Do　　ch = InStr(

121、ch + 1, Text1.Text, Chr(10))　　Dim k As Integer '數(shù)值的個數(shù)　　'取G00,G01,G02,G03　　If huang = 3 Then gwb = gwb2 - 1　　gwb = InStr(gwb + 1,

122、 Text1.Text, "G")　　For k = 1 To i　　If a(k) > gwb And a(k) < ch Then　　Select Case mb(k)　　Case "M03"

123、　　Text8.Text = "順"　　Case "M04"　　Text8.Text = "逆"　　Case "M05"　　Text8.Text = "停"

124、;　　Case "M08"　　Text9.Text = "開"　　Case "M09"　　Text9.Text = "關"　　End Select&l

125、t;/p>　　End If　　Next k　　If gwb = 0 Then Exit Do　　gww = Mid$(Text1.Text, gwb, 3)<b&

126、gt;　　'取X后面的數(shù)值　　If huang = 3 Then xb = xb2 - 1　　xb = InStr(xb + 1, Text1.Text, "X")　　xb1 = xb&

127、lt;b>　　xasc = 46　　Do While xasc >= 48 And xasc <= 57 Or xasc = 46 Or xasc = 45　　xw = Mid$(Text1.Text, xb + 1, 1)　　xb = xb + 1&

128、lt;p>　　k = k + 1　　xasc = Asc(xw)　　Loop　　xfinish = Val(Mid$(Text1.Text, xb1 + 1, k)) * 10<b&g

129、t;　　'取Y后面的數(shù)值　　If huang = 3 Then　　yb = yb2 - 1　　End If　　yb = InStr(yb + 1, Text1.Text, "Y")<

130、;/p>　　yb1 = yb　　yasc = 46　　Do While yasc >= 48 And yasc <= 57 Or yasc = 46 Or yasc = 45　　yw = Mid$(

131、Text1.Text, yb + 1, 1)　　yb = yb + 1　　k = k + 1　　yasc = Asc(yw)　　Loop　　yfinish

132、 = Val(Mid$(Text1.Text, yb1 + 1, k)) * 10　　'取I值后面的值　　If gww = "G02" Or gww = "G03" Then　　If huang = 3 Then</p&g

133、t;　　ib = ib2 - 1　　End If　　ib = InStr(ib + 1, Text1.Text, "I")　　ib1 = ib<b&

134、gt;　　iasc = 46　　Do While iasc >= 48 And iasc <= 57 Or iasc = 46 Or iasc = 45　　iw = Mid$(Text1.Text, ib + 1, 1)　　ib = ib + 1<p&

135、gt;　　k = k + 1　　iasc = Asc(iw)　　Loop　　Iround = Val(Mid$(Text1.Text, ib1 + 1, k)) * 10　　&#

136、39;取J后面的值　　If huang = 3 Then　　jb = jb2 - 1　　End If　　jb = InStr(jb + 1, Text1.Text, "J")

137、　　jb1 = jb　　jasc = 46　　Do While jasc >= 48 And jasc <= 57 Or jasc = 46 Or jasc = 45　　jw = Mid$(Text1.T

138、ext, jb + 1, 1)　　jb = jb + 1　　k = k + 1　　jasc = Asc(jw)　　Loop　　Jround = Val(M

139、id$(Text1.Text, jb1 + 1, k)) * 10　　xround = xbegin + Iround: yround = ybegin + Jround '求圓心坐標　　If huang = 0 Then　　xround1 = xround: yround1 = yround</p

眾賞文庫> 全部分類> 畢業(yè)設計

溫馨提示

1. 本站所有資源如無特殊說明，都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請下載最新的WinRAR軟件解壓。
2. 本站的文檔不包含任何第三方提供的附件圖紙等，如果需要附件，請聯(lián)系上傳者。文件的所有權益歸上傳用戶所有。
3. 本站RAR壓縮包中若帶圖紙，網(wǎng)頁內(nèi)容里面會有圖紙預覽，若沒有圖紙預覽就沒有圖紙。
4. 未經(jīng)權益所有人同意不得將文件中的內(nèi)容挪作商業(yè)或盈利用途。
5. 眾賞文庫僅提供信息存儲空間，僅對用戶上傳內(nèi)容的表現(xiàn)方式做保護處理，對用戶上傳分享的文檔內(nèi)容本身不做任何修改或編輯，并不能對任何下載內(nèi)容負責。
6. 下載文件中如有侵權或不適當內(nèi)容，請與我們聯(lián)系，我們立即糾正。
7. 本站不保證下載資源的準確性、安全性和完整性, 同時也不承擔用戶因使用這些下載資源對自己和他人造成任何形式的傷害或損失。

數(shù)控課程設計-nc仿真系統(tǒng)編制說明書

文檔簡介

溫馨提示

最新文檔

評論

數(shù)控課程設計-nc仿真系統(tǒng)編制說明書

文檔簡介

溫馨提示

最新文檔

評論

免費下載