程序代码及解释

1、程序代码及解释1、option explicit 设置显示变量声明2、Dim swapp as object 定义各变量3、Dim part as object4、Dim sksegment as object5、Dim vsklines as variant6、Dim myfeature as object7、Dim boolstatus as boolean8、Dim longstatus as long,longwarnings as long9、Dim mydisplaydim as object10、Private sub command2_click( 单击command2按钮时退

2、出程序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 零件I17、Set part = s

3、wapp 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,f

4、alse,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

5、.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.67

6、3938468647e-04.-9.99999 9999764e-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

7、,false,false,f alse,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.createli

8、ne(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

9、(“line7”,”sketchsegment,0.023* 02,”-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,

10、nothing,043、Bpplstatus = part.extension.selectbyid2(“line2”,”sketchsegment”,0,-0.003044190031938,5.000000 000001e-05,true,0,nothing,0 选择点和直线以进行标注44、Setmydisplaydim= part.adddimsion2(0.0228593983463,-0.001573055107682,045、Longataus = =part.parameter(“d2草图4”.setsystemvalue3(0.0005,1,”默认”标注尺寸值为0.5mm46、

11、Boolstatus = swapp.setuserpreferencetoggle(swinputdimvaloncreate,true 设置恢复输入尺寸对话框47、Boolstatus=part.extension.selectbyid2(“line1”,”sketchsegment”,0,0,0,false,4,not hing,0 选择中心线48、Boolstatus=part.extension.selectbyid2(“草图4”,“sketch”0,0,0,true,0,nothing,0 选择草图449、Setmyfeature=part.featuremanager.featu

12、rerevoluscut(6.28318530718,false,0,0,0,true,tr ue 旋转切除50、Boolstatus=part.extension.selectbyid2(“”,face,-0.00838705350435,0.015000000 000004,0.001073882413209,false,0,nothing,0 选择头部长柱体的上表面51、Part.sketchmanager.insersketch true52、Set sksegment=part.sksetchmanager.creatcriclebyradius(0#,0#,0#,0.015 绘制半

13、径为15的圆53、Part .clearselection2true54、Boolstatus=part.extension.selectbyid2(“arcl”,”sketchsegment”,0,0,0,false,0,nothi ng,055、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,tr ue 拉伸切除成直径

14、30的通孔56、Boolstatus=part.extension.selectbyid2(“前视基准面”,“pline”,0,0,0, false,0,nothing,057、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

15、,false,false,false,f alse,0.01745329251994,0.01745329251994,false,false,false,false,false,true,true,true 双向拉伸切除61、Boolstatus=part.extension.selectbyid2(“”,”edge”,-0.01085144506379,0.0148427 4857859,-0.01012672113711,false,0,nothing,0 选择直径30孔的上边线62、Setmyfeature=part.featuremanager,insertfeaturechamfe

16、r(4,1,0.003,1.04719755 1197,0,0,0,0 倒角63、Part .shownamedview2”下视”,6 旋转并缩放模型到下视方向64、boolstatus=Part.Extension.SelectByID2(,EDGE,-0.00965714285714,-0.0310 0000000001,0.02159,True,0,Nothing,0 选择长柱体的边线65、SetmyFeature=Part.FeatureManger.InserFeatureChamfer(4,1,0.003,0.52359877 55983,0,0,0,066、boolstatus=Pare.Extension.SelectByID2(,EDGE,-0.00127,-0.0310000000000 1,0.01542142857143,Ture,0,Nothin