资源描述：
《cadcam螺栓二次开发》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。
1、MechanicalCAD/CAM螺钉的参数化设计（基于VBA的AutoCAD螺钉二次开发）ParametricDesignofscrewName:StudentNo:StudentID:Expectingscore:1.TheObjectofDesignProgrammingfordrawingascrew,screwboltorothergraphicsbyusingVLISP,VBA,etc.illustratedinthefigure1-1.Figure1-1Thedesignisbased
2、onVBAasatoolforscrewparameterdesign.Reference"mechanicaldrawing"textbooks,slottedcheeseheadscrewsofthepartialtableasshownbelow.本次设计是以VBA为工具进行螺钉的参数化设计。参考《机械制图》课本，开槽圆柱头螺钉的部分表格如下所示。Table1Slottedcheeseheadscrews(fromGB/T65-2000)mm螺纹规格M4M5M6M8M10b3838383838
3、dk78.5101316k2.63.33.956n1.21.21.622.5t1.11.31.622.4公称长度l5~406~508~6010~8012~80l系列5，6，8，10，12，（14），16，20，25，30，35，40，45，50，（55），60，（65），70，（75），80Method:Takep0forpositioningpoint,accordingtothetable,selectthescrewdiameterDandnominallengthofLdata,determ
4、inethescrewsofthedk,k，n，tparameters.Thescrewpointsidentified,wiredgenerationscrewCADdiagram,asillustratedinthefigure1-2.思路：取p0点为定位点，根据上表，选择螺钉规格和公称长度l，确定螺钉的dk，k，n，t参数。从而将螺钉的各点确定，连线生成螺钉CAD图。如图1-2所示。Figure1-21.processofprogramming1)OpenMicrosoftVisualBasi
5、ceditorwindowshownasfigured2-1,figure2-2.Figure2-1Figure2-21)EdittheVBinterface,asillustratedfigure2-3tofigure2-4.Figure2-3Figure2-41)Program,asillustratedfigure2-5toasillustratedfigured2-7.Figure2-5Figure2-6Figure2-71)ClickRun,asillustratedfigure2-8.F
6、igure2-82)Inputthedata,asillustratedfigure2-9tofigure2-10.Figure2-9Figure2-101)Press“确定”，thenwewillgetascrewthatweexpect,asillustratedfigure2-11tofigure2-13.Figure2-11Figure2-12Figure2-131.SpecialattentionWhenyouruntheprogram,whenselectingscrewnominall
7、engthofLdataislessthanthelengthofthreadBnumericalvalue,thenscrewnominallengthLdataisequaltothelengthofthreadbvalues(intheprocessofb=38),fault-tolerantproceduresareasfollows:DimsAsDoubleIfL-b<0Thens=0Else:s=L-bEndIfHeretoenterL=35,runtheprogram,theAutoC
8、AD,drawingthescrewsforthefullthreadscrew.Asshowninthefigure.运行程序时，当选择螺钉公称长度L的数据小于螺纹长度b的数值时，此时螺钉公称长度L的数据等于螺纹长度b的数值（在本程序中b=38），容错程序如下：DimsAsDoubleIfL-b<0Thens=0Else:s=L-bEndIf此处输入L=35，运行程序，可知，AutoCAD绘制的螺钉为全螺纹螺钉。如图所示：Figure3-14.ProgramOpti
