轴承的CAD绘图.pdfVIP

编写程序，使用命令组文件实现轴承的CAD 绘图。 要求：在作业二基础上，根据计算出的尺寸数据自动产生SCR 命令组文件，在AutoCAD 软件中完成该轴承的自动绘制。 Step1 ：步骤与作业二中一样，唯一 不同的是能输出scr 文件，窗体布局如下： Step2 ：当点击“输出SCR 文件”按钮时，在 C 盘中存在 ，然后打 开CAD 绘图软件，将它拖入绘图工作区，则结果如下图所示： 运行时的界面： 程序源代码： Option Base 1 Dim p(1 To 11, 1 To 3) As Single Dim A, b, D As Single Private Sub Combo1_Click() i = Combo1.ListIndex + 1 D = p(i, 1): b = p(i, 2): A = p(i, 3) Text1(0).Text = D Text1(1).Text = b Text1(2).Text = A Command1.Enabled = True End Sub Private Sub Command1_Click() Picture1.Cls Picture1.AutoRedraw = True Picture1.Height = Picture1.Width * 5 / 6 Picture1.Scale (-60, 50)-(60, -50) 设置PICURE1 的刻度，并将其定义为5:6，从 而保证长/宽每刻度相等 Picture1.BackColor = RGB(255, 255, 255) Picture1.ForeColor = RGB(0, 0, 0) Picture1.DrawStyle = 0 Picture1.DrawWidth = 3 Picture1.FillStyle = 4 Picture1.FillColor = RGB(0, 0, 0) Picture1.Line (-b / 2, D / 2 - A)-(b / 2, D / 2 - A / 2), , B Picture1.FillStyle = 5 Picture1.Line (-b / 2, D / 2 - A / 2)-(b / 2, D / 2), , B Picture1.FillStyle = 0 Picture1.FillColor = RGB(255, 255, 255) Picture1.Line (-b / 2, D / 2 - A / 2 - A / 4 / 2)-(b / 2, D / 2 - A / 2 + A / 4 / 2), , B Picture1.Circle (0, D / 2 - A / 2), A / 4 Picture1.Line (-b / 2, -D / 2 + A)-(b / 2, D / 2 - A), , B Picture1.Line (-b / 2, -D / 2)-(b / 2, -D / 2 + A), , B Picture1.DrawWidth = 1 细实线 Picture1.Line (-b / 2, -D / 2)-(b / 2, -D / 2 + A) Picture1.Line (-b / 2, -D / 2 + A)-(b / 2, -D / 2) Picture1.DrawWidth = 1 Picture1.DrawStyle = 3 细虚线 Picture1.Line (-b / 2 - 5, 0)-(b / 2 + 5, 0) Picture1.Line (0, -D / 2 - 5)-(0, D / 2 + 5) End Sub Private Sub Command2_Click() If MsgBox(确定要退出吗？, 1 + 32 + 0, 确认退出) = 1 Then End End If End Sub Private Sub Command3_Click() FileName$ = c:\ Text2.Text Open FileName$ For Output As #1 输出SCR 文件 Print #1, -osnap off