vb编写的一个凸轮NC代码生成软件Word格式文档下载.docx

1、 Picture1.ScaleMode = 6 Picture1.Scale （-500, 300）-（500, -300） Picture1.Line （-500, 0）-（500, 0） Picture1.Line （0, 300）-（0, -300） Picture1.CurrentX = 0: Picture1.CurrentY = 0: Picture1.Print 0 Picture1.CurrentX = 480: Picture1.CurrentY = 40: Picture1.Print X Picture1.CurrentX = 10: Picture1.CurrentY

2、= 300:Y Dim n As Single, d As Single, r As Single, X As Single, Y As Single, S As Single Dim b As Single, q As Single, k As Single r = Text2（2）.Text n = Text2（0）.Text S = Text2（1）.Text b = Text2（3）.Text q = Text2（4）.Text k = 360 - n - b - q Dim F As Single Picture1.CurrentX = r: Picture1.CurrentY =

3、0Rem If mnudengsu.Checked Then For d = 0 To n Step 0.01 X = （r + S * d / n） * Cos（pi / 180 * d） Y = （r + S * d / n） * Sin（pi / 180 * d） Picture1.PSet （X, Y）, vbRed Next For d = 0 To b Step 0.01 Y = （r + S） * Sin（pi / 180 * （n + d） X = （r + S） * Cos（pi / 180 * （n + d） For d = 0 To q Step 0.01 Y = （r

4、+ S - S * d / q） * Sin（pi / 180 * （n + b + d） X = （r + S - S * d / q） * Cos（pi / 180 * （n + b + d） For d = 0 To k Step 0.01 Y = r * Sin（pi / 180 * （n + b + q + d） X = r * Cos（pi / 180 * （n + b + q + d）Rem ElseIfmnudengjiajian.CheckedThen For d = 0 To n / 2 Step 0.01 X = （r + 2 * S * d 2 / n 2） * Cos

5、（pi / 180 * d） Y = （r + 2 * S * d 2 / n 2） * Sin（pi / 180 * d） For d = n / 2 To n Step 0.01 X = （r + S - 2 * S * （n - d） 2 / n 2） * Cos（pi / 180 * d） Y = （r + S - 2 * S * （n - d） 2 / n 2） * Sin（pi / 180 * d） F = n + b For d = q To q / 2 Step -0.01 F = F + 0.01 X = （r + S - 2 * S * （q - d） 2 / q 2） *

6、 Cos（pi / 180 * F） Y = （r + S - 2 * S * （q - d） 2 / q 2） * Sin（pi / 180 * F） For d = q / 2 To 0 Step -0.01 X = （r + 2 * S * d 2 / q 2） * Cos（pi / 180 * F） Y = （r + 2 * S * d 2 / q 2） * Sin（pi / 180 * F） Rem ElseIfmnubaixian.CheckedThen X = （r + S * （10 * （d / n） 3 - 15 * （d / n） 4 + 6 * （d / n） 5） *

7、 Cos（pi / 180 * d） Y = （r + S * （10 * （d / n） 3 - 15 * （d / n） 4 + 6 * （d / n） 5） * Sin（pi / 180 * d） For d = q To 0 Step -0.01 X = （r + S * （10 * （d / q） 3 - 15 * （d / q） 4 + 6 * （d / q） 5） * Cos（pi / 180 * F） Y = （r + S * （10 * （d / q） 3 - 15 * （d / q） 4 + 6 * （d / q） 5） * Sin（pi / 180 * F） ElseIf

8、mnuSin.CheckedThen X = （r + S * （d / n - Sin（2 * pi * d / n） / （2 * pi） * Cos（pi / 180 * d） Y = （r + S * （d / n - Sin（2 * pi * d / n） / （2 * pi） * Sin（pi / 180 * d） X = （r + S * （d / q - Sin（2 * pi * d / q） / （2 * pi） * Cos（pi / 180 * F） Y = （r + S * （d / q - Sin（2 * pi * d / q） / （2 * pi） * Sin（pi

9、/ 180 * F）Rem Else X = （r + S / 2 * （1 - Cos（pi * d / n） * Cos（pi / 180 * d） Y = （r + S / 2 * （1 - Cos（pi * d / n） * Sin（pi / 180 * d） X = （r + S / 2 * （1 - Cos（pi * d / q） * Cos（pi / 180 * F） Y = （r + S / 2 * （1 - Cos（pi * d / q） * Sin（pi / 180 * F） End IfEnd SubPrivate Sub cmmCreate_Click（） Frame1

10、.Caption = NC Text3.Text = Dim X0 As Single, Y0 As Single, X1 As Single, Y1 As Single, ag1 As Single, ag2 As Single, ag3 As Single, ag4 As Single Dim S As Single, F As Single, r As Single, h As Single, L As Single, q As Single, w As Single, p As Single Dim i As Integer Dim n As Single Dim e As Singl

11、e, k As Single, a As Single ag1 = Text2（0）.Text: ag2 = Text2（3）.Text: ag3 = Text2（4）.Text: ag4 = 360 - ag1 - ag2 - ag3 r = Abs（Text2（2）.Text）: h = Text2（1）.Text: S = Text2（6）.Text: F = Text2（7）.Text: p = Abs（Text1.Text） X0 = r: Y0 = 0If S = 0 Or F = 0 ThenMsgBox , vbCritical, Else L = 2 * Sqr（r * p）

12、 q = Format（Val（X0）, 0.000） w = Format（Val（Y0）, If ag1 = 0 Or ag3 = 0 Then0 Exit SubIf mnudengsu.Checked Then Text3.SelText = N00 & G91G00x （q） &y （w） &M03LFDo For e = a To ag1 Step 0.0001 X1 = （r + h * e / ag1） * Cos（pi / 180 * e） Y1 = （r + h * e / ag1） * Sin（pi / 180 * e） k = Abs（X1 - X0） 2 + （Y1

13、- Y0） 2 - L 2） a = e If （k 0） Then Exit For Picture1.Line （X0, Y0）-（X1, Y1）, vbBlue q = Format（Val（X1 - X0）, w = Format（Val（Y1 - Y0）, i = i + 1 If i = 1 Then Text3.SelText = vbNewLine&N0 （i） &G01F （F） &S （S） &ElseIf i 9 ThenN X0 = X1 Y0 = Y1 Loop While e ag1 If ag2 0 Then Picture1.Circle （0, 0）, （r

14、+ h）, vbBlue, （pi / 180 * ag1）, （pi / 180 * （ag1 + ag2） X0 = （r + h） * Cos（pi / 180 * （ag1 + ag2） Y0 = （r + h） * Sin（pi / 180 * （ag1 + ag2） If i G03R （r + h） &End If a = 0 Do For e = a To ag3 Step 0.0001 X1 = （r + h - h * e / ag3） * Cos（pi / 180 * （ag1 + ag2 + e） Y1 = （r + h - h * e / ag3） * Sin（pi / 180 * （ag1 + ag2 + e） ag3 If ag4 Picture1.Circle （0, 0）, r, vbBlue, （pi / 180 * （ag1 + ag2 + ag3）, （2 * pi） （r） &Rem For e = a To ag1 / 2 Step 0.001 X1 = （r + 2 * h * e 2 / ag1 2） * Cos（pi / 180 * e） Y1 = （r + 2 * h * e 2 / ag1 2） * Sin（pi / 180 * e） Lo