程序代码及解释

1、r- r* I r I l i i l z* nr i r. i及解释1、optionexplicit设置显示变量声明2、Dimswappasobject 定义各变量3 Dimpartasobject4、 Dimsksegmentasobject5> Dimvsklinesasvariant6、Dimmyfeatureasobject7、Dimboolstatusasboolean8、Dimlongstatusaslong, longwarningsaslong9、Dimmydisplaydimasobject10、Privatesubcommand2_click ()单击 comman

2、d2 按钮时退出程序11、End12、Endsub13、Privatesubcommandl_click()单击 commandl 按钮时执行程序14、Setswapp=createob ject ( u sldworks .application”)创建 sldworks 对象13、Swapp. visible二ture 设置显尔 SolidWorks 程序界面16、Set part 二 swapp Newdocument (c; document sandset tingsAllusersa pplicationdatasolidworks2009templates9,f I) 17、Se

3、tpart二swappactivedoc 激活文件18、Bools tat us=par textensionselec tbyID2（视基准面，plane, 0, 0, Ofales, 0, nothing, 0)选择上视基准面19、Part sketchmanager insert sketchture 开始草图绘制20、Setsksegment=(0tt, 0#, 0#, 0. 033)绘制半径为 33 的圆21、对圆进行单向拉伸，形成头部圆柱体22、Boolstatus二选择上视基准面23、true24、Setsksegment=绘制半径为30的圆23、对圆进行单向拉伸，形成头部圆柱体

4、26、“ ”，” face”选择拉伸2形成的短柱体底面27、Part, sketchmanager, insertsketchtrue28、Setsksegment=绘制半径为24的圆29、Setmyfeature=对圆进行单向拉伸，形成长柱体30、Boolstatus="前视基准面” ,"plane" , 0, 0, 0, false, 0,nothing, 0)选择前视基准面31、Part, sketchmanager, insersketchtrue32、Setsksegment=绘制中心线33、34、35、36、绘制六条直线，形成旋转切除草图37、Part

5、, clearselection2true38、Boolstatus二swapp setuserpreferencetbggle(swinputdimvaloncreate, flase)为不影响程序自动运行，设置关闭输入尺寸值对话框39、“line7”，” ”选择直线40、Boolstatus二确定尺寸文本位置41、Longstatus二标注尺寸值为3mm42、"pointl原点",extsketchpoint v , 0, 0, 0, false, 0, nothing, 0)43、Bpplstatus二 Tine2" , sketchsegment n 选择

6、点和直线以进行标注44、Setmydisplaydim二45 Longataus=标注尺寸值为0. 5mm46、Boolstatus二swapp setuserpreferencetoggle(swinputdimvaloncreate, true)设置恢复输入尺寸对话框47、Tinel" , sketchsegment, 0, 0, 0, false, 4, nothing, 0)选择中心 线48、"草图 4” , "sketch” 0, 0, 0, true, 0, nothing, 0)选择草图 449、Set旋转切除50、“ ”选择头部长柱体的上表面31、

7、 true52、Set绘制半径为15的圆53> Part clearselection2true54、uarcl M , ” sketchsegment" , 0, 0, 0, false, 0, nothing, 0)55、拉伸切除成直径30的通孔56、"前视基准面","pline” , 0,0,0, false, 0, nothing, 0)57、 58> Part, clearselection2true59、Vsklines绘制矩形60、双向拉伸切除61、“” , ” edge”选择直径30孔的上边线62、倒角63、Part, shownamedview2"下视",6旋转并缩放模型到下视方向64、选择长柱体的边线63、66、67、68PartClearSelection2Ture69、Part. ShowNamedView2 ”