轴承的CAD绘图.pdf

编写程序 使用命令组文件实现轴承的 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 关闭图形的目标捕捉状态 避免 影响后面图形的绘制 Print 1 lwdisplay on 打开线宽显示状态 Print 1 ucsicon off 关闭坐标系的图标 Print 1 layer s 0 将图层 0 作为当前图层 Print 1 layer LW 0 4 将当前图层的线宽修改为 0 4mm Print 1 rectang LTrim b 2 LTrim D 2 LTrim b 2 LTrim D 2 Print 1 line LTrim b 2 LTrim D 2 A LTrim b 0 Print 1 line LTrim b 2 LTrim D 2 A LTrim b 0 绘制图形 Print 1 line LTrim b 2 LTrim D 2 A 2 A 4 2 LTrim b 0 Print 1 line LTrim b 2 LTrim D 2 A 2 A 4 2 LTrim b 0 Print 1 circle 0 LTrim D 2 A 2 LTrim A 4 Print 1 zoom e 图形的视觉缩放 AutoCAD 在当前可视范围内选点 Print 1 trim 0 LTrim D 2 A 2 A 4 2 修剪多余线段 Print 1 trim 0 LTrim D 2 A 2 A 4 2 Print 1 layer M 1 建立新图层 1 并将其作为当前图层 Print 1 bhatch P ANSI31 0 5 0 0 LTrim D 2 2 Print 1 bhatch P ANSI31 0 5 90 0 LTrim D 2 A 2 填充 设置填充属性 P 图案 ANSI31 比例 5 角度 0 90 Print 1 line LTrim b 2 LTrim D 2 LTrim b 2 LTrim D 2 A Print 1 line LTrim b 2 LTrim D 2 A LTrim b 2 LTrim D 2 Print 1 layer M 2 建立新图层 2 并将其作为当前图层 Print 1 layer L dashdot 2 将图层 2 的线型修改为中心线 dashdot Print 1 layer C blue 2 将当前图层 2 的颜色修改为 blue Print 1 ltscale 5 修改线型比例为 5 Print 1 line LTrim b 2 2 0 LTrim b 2 2 0 Print 1 line 0 LTrim D 2 2 0 LTrim D 2 2 绘制中心线 Print 1 line LTrim A 4 2 LTrim D 2 A 2 LTrim A 2 4 0 Print 1 layer s 1 Print 1 dimlinear LTrim b 2 1 7 0 尺寸标注 Print 1 dimlinear 1 LTrim D 2 0 7 Print 1 dimlinear LTrim b 2 LTrim D 2 0 LTrim A 2 7 0 Print 1 zoom e Close 1 End Sub Private Sub Form Load 按 D b A 的顺序存放 p 1 1 32 p 1 2 9 p 1 3 8 5 p 2 1 35 p 2 2 10 p 2 3 9 p 3 1 42 p 3 2 12 p 3 3 11 p 4 1 47 p 4 2 12 p 4 3 11 p 5 1 55 p 5 2 13 p 5 3 12 5 p 6 1 62 p 6 2 14 p 6 3 13 5 p 7 1 68 p 7 2 15 p 7 3 14 p 8 1 75 p 8 2 16 p 8 3 15 p 9 1 80 p 9 2 16 p 9 3 1