程序代码及解释.doc

程序代码及解释1、 option explicit 设置显示变量声明2、 Dim swapp as object 定义各变量3、 Dim part as object4、 Dim sksegment as object5、 Dim vsklines as variant6、 Dim myfeature as object 7、 Dim boolstatus as boolean8、 Dim longstatus as long,longwarnings as long9、 Dim mydisplaydim as object10、 Private sub command2_click() 单击command2按钮时退出程序11、 End12、 End sub13、 Private sub command1_click() 单击command1按钮时执行程序14、 Set swapp = createobject(“sldworks.application”) 创建sldworks对象15、 Swapp .visible = ture 设置显示SolidWorks程序界面16、 Set part = swapp. Newdocument (c;documents and settingsAll users application datasolidworks 2009templates 零件I)17、 Set part = swapp activedoc 激活文件 18、 Boolstatus = part extension selectbyID2(上视基准面，plane，0,0,0 fales ,0,nothing,0) 选择上视基准面19、 Part sketchmanager insertsketch ture 开始草图绘制20、 Set sksegment = part.sketchmanager.creatcirclebyradius (0#，0#，0#，0.033) 绘制半径为33的圆21、 Setmyfeature=part.featuremanager.featureextrusion(true,false,false,0,0,0.015,0.01,false,falsefalse,false,0.01745329251994,0.01745329251994,false,false,false,false,true,true,true) 对圆进行单向拉伸，形成头部圆柱体 22、 Boolstatus = part.extension.selectbyID2（“上视基准面”，“PLANE”,0，0，0.FALSE,0，NOTHING,0） 选择上视基准面23、 Part.sketchmanager.insertsketch true24、 Set sksegment = part.sketchmanager.createcirclebyradius(0#,0#,0#,0.03) 绘制半径为30的圆 25、 Setmyfeature=part.featuremanager.featureextrusion(true,false,true,0,0,0.001,0.015,false,false,false,false0.01745329251994,0.01745329251994,false,false,false,false,true,true,true) 对圆进行单向拉伸，形成头部圆柱体 26、 Boolstatus=part.extension.selectbyid2(“”,”face”,-5.673938468647e-04.-9.999999999764e-04,0.01782047016349,false,0,nothing,0) 选择拉伸2形成的短柱体底面27、 Part .sketchmanager.insertsketch true28、 Set sksegment = part.sketchmanager.createcirclebyradius(0#,0#,0#,0.024) 绘制半径为24的圆29、 Set myfeature = part.featuremanager.featureextrusion(true,false,false,0,0,0.03,0.001,false,false,false,false,true,true,true) 对圆进行单向拉伸，形成长柱体30、 Boolstatus = part.extension.selectbyid2(“前视基准面”，“plane”，0,0,0，false，0，nothing,0) 选择前视基准面31、 Part.sketchmanager,insersketchtrue32、 Set sksegment = part.sketchmanager.createcenterline(0#,0#,0#,0#,0.02,0#) 绘制中心线33、 Setsksegment=part.sketchmanager.createline(0.0235,-0.003,0#,0.024,-0.003,0#)34、 Setsksegment=part.sketchmanager.createline(0.024,-0.03,0#,0.0245,-0.0035,0#)35、 .36、 绘制六条直线，形成旋转切除草图37、 Part.clearselection2 true38、 Boolstatus = swapp.setuserpreferencetbggle(swinputdimvaloncreate,flase) 为不影响程序自动运行，设置关闭输入尺寸值对话框39、 Boolstatus=part.extension.selectbyid2(“line7”,”sketchsegment,0.02362224734202,”-0.01732235457933,0,false,0,nothing,0) 选择直线40、 Boolstatus = part.adddimension2(0.02084812914891,0,0) 确定尺寸文本位置41、 Longstatus = part.parameter(“D1草图4”),setsystemvalue3(0.003,1,”默认”) 标注尺寸值为3mm42、 Longstatus=part.extension.selectbyis2(“point1原点”,”extsketchpoint”,0,0,0,false,0,nothing,0)43、 Bpplstatus = part.extension.selectbyid2(“line2”,”sketchsegment”,0,-0.003044190031938,5.000000000001e-05,true,0,nothing,0) 选择点和直线以进行标注44、 Setmydisplaydim= part.adddimsion2(0.0228593983463,-0.001573055107682,0)45、 Longataus = =part.parameter(“d2草图4”).setsystemvalue3(0.0005,1,”默认”) 标注尺寸值为0.5mm46、 Boolstatus = swapp.setuserpreferencetoggle(swinputdimvaloncreate,true) 设置恢复输入尺寸对话框47、 Boolstatus=part.extension.selectbyid2(“line1”,”sketchsegment”,0,0,0,false,4,nothing,0) 选择中心线48、 Boolstatus=part.extension.selectbyid2(“草图4”，“sketch”0,0,0,true,0,nothing,0) 选择草图449、 Set myfeature=part.featuremanager.featurerevoluscut(6.28318530718,false,0,0,0,true,true) 旋转切除50、 Boolstatus=part.extension.selectbyid2(“”,face,-0.00838705350435,0.015000000000004,0.001073882413209,false,0,nothing,0) 选择头部长柱体的上表面51、 Part.sketchmanager.insersketch true52、 Set sksegment=part.sksetchmanager.creatcriclebyradius(0#,0#,0#,0.015) 绘制半径为15的圆53、 Part .clearselection2true54、 Boolstatus=part.extension.selectbyid2(“arcl”,”sketchsegment”,0,0,0,false,0,nothing,0)55、 Setmyfeature=part.featuremanager.featurecut(true,false,1,0,0.01,0.01,false,false,false,false,0.01745329251994,0.01745329251994,false,false,false,false,false,true,true) 拉伸切除成直径30的通孔56、 Boolstatus=part.extension.selectbyid2(“前视基准面”，“pline”，0,0,0，false,0,nothing,0)57、 Part.sketchmanager.insertsketchtrue58、 Part .clearselection2true59、 Vsklines =part.sketchmanager.creatcornerrectangle(0.027,0.016,0.036,0.005,0) 绘制矩形 60、 Setmyfezturemanager.featurecut(false,false,false,1,1,0.01,0.01,false,false,false,false,0.01745329251994,0.01745329251994,false,false,false,false,false,true,true,true) 双向拉伸切除61、 Boolstatus=part.extension.selectbyid2(“”,”edge”,-0.01085144506379,0.01484274857859,-0.01012672113711,false,0,nothing,0) 选择直径30孔的上边线62、 Setmyfeature=part.featuremanager,insertfeaturechamfer(4,1,0.003,1.047197551197,0,0,0,0) 倒角63、 Part .shownamedview2”下视”，6 旋转并缩放模型到下视方向64、 boolstatus=Part.Extension.SelectByID2(,EDGE,-0.00965714285714,-0.03100000000001,0.02159,True,0,Nothing,0) 选择长柱体的边线65、 SetmyFeature=Part.FeatureManger.InserFeatureChamfer(4,1,0.003,0.5235987755983,0,0,0,0)66、 boolstatus=Pare.Extension.SelectByID2(,EDGE,-0.00127,-0.03100000000001,0.01542142857143,Ture,0,Nothing,