程序代码及解释.docxVIP

程序代码及解释 option explicit 设置显示变量声明 Dim swapp as object 定义各变量 Dim part as object Dim sksegment as object Dim vsklines as variant Dim myfeature as object Dim boolstatus as boolean Dim longstatus as long,longwarnings as long Dim mydisplaydim as object Private sub command2_click() 单击command2按钮时退出程序 End End sub Private sub command1_click() 单击command1按钮时执行程序 Set swapp = createobject(“sldworks.application”) 创建sldworks对象 Swapp .visible = ture 设置显示SolidWorks程序界面 Set part = swapp. Newdocument (c;\documents and settings\All users \application data\solidworks 2009\templates \零件I) Set part = swapp activedoc 激活文件 Boolstatus = part extension selectbyID2(上视基准面，plane，0,0,0 fales ,0,nothing,0) 选择上视基准面 Part sketchmanager insertsketch ture 开始草图绘制 Set sksegment = part.sketchmanager.creatcirclebyradius (0#，0#，0#，0.033) 绘制半径为33的圆 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) 对圆进行单向拉伸，形成头部圆柱体 Boolstatus = part.extension.selectbyID2（“上视基准面”，“PLANE”,0，0，0.FALSE,0，NOTHING,0） 选择上视基准面 Part.sketchmanager.insertsketch true Set sksegment = part.sketchmanager.createcirclebyradius(0#,0#,0#,0.03) 绘制半径为30的圆 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) 对圆进行单向拉伸，形成头部圆柱体 Boolstatus=part.extension.selectbyid2(“”,”face”,-5.673938468647e-04.-9.999999999764e-04,0.01782047016349,false,0,nothing,0) 选择拉伸2形成的短柱体底面 Part .sketchmanager.insertsketch true Set sksegment = part.sketchmanager.createcirclebyradius(0#,0#,0#,0.024) 绘制半径为24的圆 Set myfeature = part.featuremanager.featureextrusion(true,false,false,0,0,0.03,0.001,false,false,false,false,true,true,true) 对圆进行单向拉伸，形成长柱体 Boolstatus = part.extension.selectbyid2(“前视