资源描述:
《轴承的CAD绘图》由会员上传分享,免费在线阅读,更多相关内容在行业资料-天天文库。
1、编写程序,使用命令组文件实现轴承的CAD绘图。要求:在作业二基础上,根据计算出的尺寸数据自动产生SCR命令组文件,在AutoCAD软件中完成该轴承的自动绘制。Step1:步骤与作业二中一样,唯一不同的是能输出scr文件,窗体布局如下:Step2:当点击“输出SCR文件”按钮时,在C盘中存在,然后打开CAD绘图软件,将它拖入绘图工作区,则结果如下图所示:运行时的界面:程序源代码:OptionBase1Dimp(1To11,1To3)AsSingleDimA,b,DAsSinglePrivateSubCombo1_C
2、lick()i=Combo1.ListIndex+1D=p(i,1):b=p(i,2):A=p(i,3)Text1(0).Text=DText1(1).Text=bText1(2).Text=ACommand1.Enabled=TrueEndSubPrivateSubCommand1_Click()Picture1.ClsPicture1.AutoRedraw=TruePicture1.Height=Picture1.Width*5/6Picture1.Scale(-60,50)-(60,-50)'设置PICUR
3、E1的刻度,并将其定义为5:6,从而保证长/宽每刻度相等Picture1.BackColor=RGB(255,255,255)Picture1.ForeColor=RGB(0,0,0)Picture1.DrawStyle=0Picture1.DrawWidth=3Picture1.FillStyle=4Picture1.FillColor=RGB(0,0,0)Picture1.Line(-b/2,D/2-A)-(b/2,D/2-A/2),,BPicture1.FillStyle=5Picture1.Line(-b
4、/2,D/2-A/2)-(b/2,D/2),,BPicture1.FillStyle=0Picture1.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),,BPicture1.Circle(0,D/2-A/2),A/4Picture1.Line(-b/2,-D/2+A)-(b/2,D/2-A),,BPicture1.Line(-b/2,-D/2)-(b/2,-D/2+A),,BPicture1.Draw
5、Width=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=1Picture1.DrawStyle=3'细虚线Picture1.Line(-b/2-5,0)-(b/2+5,0)Picture1.Line(0,-D/2-5)-(0,D/2+5)EndSubPrivateSubCommand2_Click()IfMsgBox("确定要退出吗?",1+32+0,"确认退出"
6、)=1ThenEndEndIfEndSubPrivateSubCommand3_Click()FileName$="c:"&Text2.TextOpenFileName$ForOutputAs#1'输出SCR文件Print#1,"-osnapoff"'关闭图形的目标捕捉状态,避免影响后面图形的绘制Print#1,"lwdisplayon"'打开线宽显示状态Print#1,"ucsiconoff"'关闭坐标系的图标Print#1,"-layers0"'将图层“0”作为当前图层Print#1,"-layerLW0.
7、4"'将当前图层的线宽修改为0.4mmPrint#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
8、/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,"circle0,"+LTrim(D/2-A/2)+""+LTrim(A/4)Print#1,"zoome"'图形的视觉缩放(AutoCAD在当前可视范围内选