程序代碼及解釋

1、程序代碼及解釋1、option explicit 設(shè)置顯示變量聲明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按鈕時執(zhí)行程序14、Set swapp = createobject(“sldworks.application” 創(chuàng)建sldworks對象15、Swapp .visible = ture 設(shè)置顯示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(上視基準(zhǔn)面,plane,0,0,0 fales ,0,nothing,0 選擇上視基準(zhǔn)面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(“上視基準(zhǔn)面”,“PLANE”,0,0, 0.FALSE,0,NOTHING,0選擇上視基準(zhǔn)面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(“前視基準(zhǔn)面”,“plane”,0,0,0,false, 0,nothing,0 選擇前視基準(zhǔn)面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、繪制六條直線,形成旋轉(zhuǎn)切除草圖37、Part.clearselection2 true38、Boolstatus = swapp.setuserpreferencetbggle(swinputdimvaloncreate,flase 為不影響程序自動運行,設(shè)置關(guān)閉輸入尺寸值對話框39、Boolstatus=part.extension.selectbyid2

9、(“l(fā)ine7”,”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,”默認”標(biāo)注尺寸值為3mm42、Longstatus=part.extension.selectbyis2(“point1原點”,”extsketchpoint”,0,0,0,false,0,

10、nothing,043、Bpplstatus = part.extension.selectbyid2(“l(fā)ine2”,”sketchsegment”,0,-0.003044190031938,5.000000 000001e-05,true,0,nothing,0 選擇點和直線以進行標(biāo)注44、Setmydisplaydim= part.adddimsion2(0.0228593983463,-0.001573055107682,045、Longataus = =part.parameter(“d2草圖4”.setsystemvalue3(0.0005,1,”默認”標(biāo)注尺寸值為0.5mm46、

11、Boolstatus = swapp.setuserpreferencetoggle(swinputdimvaloncreate,true 設(shè)置恢復(fù)輸入尺寸對話框47、Boolstatus=part.extension.selectbyid2(“l(fā)ine1”,”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 旋轉(zhuǎn)切除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(“前視基準(zhǔn)面”,“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 旋轉(zhuǎn)并縮放模型到下視方向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