【正文】 bjectDim objrefplane As ObjectDim objRefplanes As ObjectDim objprofilecollection As ObjectDim objprofiles(1 To 3) As ObjectDim objprofile As ObjectDim objdao_zhu As 39。Dim objProfArr(1 To 2) As Dim dblx As Double Dim dbly As DoublePrivate Sub Command1_Click()Set objrefplane = (parentplane:=(3), Distance:=0, normalside:=igRight)Set objProfArr(1) = (objrefplane)Set objlines = objProfArr(1).Lines2dCall (X1:= / 100, Y1:= / 100 / 2, X2:= / 100, Y2:= / 100 / 2)Call (X1:= / 100, Y1:= / 100 / 2, X2:=, Y2:=)Call (X1:=, Y1:=, X2:=, Y2:=)Call (X1:=, Y1:=, X2:= / 100, Y2:= / 100 / 2)Call (X1:= / 100, Y1:= / 100 / 2, X2:= / 100, Y2:= / 100 / 2)Call (X1:= / 100, Y1:= / 100 / 2, X2:= / 100, Y2:= / 100 / 2)Set objrelns = objProfArr(1).Relations2dCall (Object1:=objlines(1), Index1:=igLineEnd, Object2:=objlines(2), Index2:=igLineStart)Call (Object1:=objlines(2), Index1:=igLineEnd, Object2:=objlines(3), Index2:=igLineStart)Call (Object1:=objlines(3), Index1:=igLineEnd, Object2:=objlines(4), Index2:=igLineStart)Call (Object1:=objlines(4), Index1:=igLineEnd, Object2:=objlines(5), Index2:=igLineStart)Call (Object1:=objlines(5), Index1:=igLineEnd, Object2:=objlines(6), Index2:=igLineStart)Call (Object1:=objlines(6), Index1:=igLineEnd, Object2:=objlines(1), Index2:=igLineStart)lngStatus = objProfArr(1).End(ValidationCriteria:=igProfileClosed) If lngStatus 0 Then MsgBox (Profile not closed) End IfSet objmodel = (NumberOfProfiles:=1, profileArray:=objProfArr, ProfilePlaneSide:=igRight, ExtrusionDistance:=) objProfArr(1).Visible = False 39。aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaDim objApp As Dim objRPProfile As Dim objRPRAxis As Dim objRPCSection As Dim objRPProfArray(1 To 3) As Dim objRPProfArray1(1 To 3) As Dim objEdgArr(1 To 4) As ObjectDim objEdgeArray(1 To 4) As ObjectDim dblRadiusArray(1 To 1) As DoubleConst pi = 39。報(bào)告錯(cuò)誤On Error Resume Next39。*******************************************************************Set objApp = GetObject(, )If Err ThenSet objApp = CreateObject()Set objDoc = () = TrueElseSet objDoc = End If39。aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaSet objRefPln1 = ( _parentplane:=(3), _Distance:=0, _normalside:=igRight)39。設(shè)置參考面Set objProf1 = ( _prefplanedisp:=objRefPln1)39。繪制輪廓線圓Call ( _x:=, y:=0, Radius:=)39。檢查輪廓線是否封閉lngStatus = (ValidationCriteria:=igProfileClosed)If lngStatus 0 ThenMsgBox (Profile not closed)End IfSet objRPProfArray1(1) = objProf139。創(chuàng)建拉伸特征，Set objmodel1 = ( _NumberOfProfiles:=1, _profileArray:=objRPProfArray1, _ProfilePlaneSide:=igRight, _ExtrusionDistance:=)39。顯示草圖輪廓線 = False 39。aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa39。dadong 39。設(shè)置參考面Set objProf = ( _prefplanedisp:=(3))39。繪制輪廓線Call (x:=0, y:=0, Radius:=)Call (x:=, y:=0, Radius:=)39。檢查輪廓線是否封閉lngStatus = (ValidationCriteria:=igProfileClosed)If lngStatus 0 ThenMsgBox (Profile not closed)End If39。使用拉伸除料方法Set objExtCut = ( _Profile:=objProf, _ProfileSide:=igLeft, _ProfilePlaneSide:=igRight, _Depth:=)39。顯示草圖輪廓線(一般設(shè)為隱藏) = False39。aaaaaaaaaaaaaaaaaaaaaaaaaaaaa39。qiecaoDim objEPProfile As Dim objEPProfArray(1 To 3) As Dim objRPParallel As Dim objRefplanes As Dim objprofile As Dim objcircle As Dim objRadius As Double39。報(bào)告錯(cuò)誤On Error Resume NextSet objApp = GetObject(, )If Err ThenSet objApp = CreateObject()Set objDoc = () = TrueElseSet objDoc = End If39。 拉伸除料，切出槽39。*******************************************************************39。建立參考面Set objrefplane = (1)Set objRPParallel = ( _parentplane:=objrefplane, _Distance:=, _normalside:=igRight)39。畫槽的輪廓線Set objEPProfile = ( _prefplanedisp:=objRPParallel)Call ( _OriginX:=, OriginY:=, _Width:=, Height:=, _Angle:=0, OffsetType:=sePatternFillOffset, _XCount:=6, YCount:=4, _XSpace:=, YSpace:=0)39。檢查輪廓線是否封閉lngStatus = (ValidationCriteria:=igProfileClosed)If lngStatus 0 ThenMsgBox (Profile not closed)End If39。創(chuàng)建槽的拉伸除料Set objExtCut = ( _Profile:=objEPProfile, _ProfileSide:=igLeft, _ProfilePlaneSide:=igLeft, _Depth:=) = FalseEnd SubPrivate Sub Command2_Click() End SubPrivate Sub Form_Load() = 0 = 0 = 6000 = 6000 On Error Resume Next Set objApp = CreateObject() Set objDoc = () = TrueEnd Sub 部分沒有講到的軟件界面 圖67 V形塊界面 圖68 壓塊界面 圖69 角鐵界面 圖610 壓板界面 圖611 螺釘界面 圖611 雙頭螺柱在Solid Edge軟件中，直接生成二維圖，下面就是夾具總的裝配圖：圖612 裝配圖致 謝大學(xué)4年很快的過去了。后的午餐便是畢業(yè)設(shè)計(jì)，它是我在這4年里所學(xué)的知識(shí)的總和。在這次畢業(yè)設(shè)計(jì)中，在張鎖榮老師的指導(dǎo)下我從中學(xué)到了很多東西。剛開始的茫然道最后的豁然開朗， 在這里面除了我自己的學(xué)習(xí)外，張老師對(duì)我的指導(dǎo)才是我能完成畢業(yè)設(shè)計(jì)的最大動(dòng)力。在這期間張老師無時(shí)無刻不在關(guān)心著我的進(jìn)度，對(duì)我在這過程的錯(cuò)誤進(jìn)行指導(dǎo)糾正。4年如此之短，何況最后這幾個(gè)月的畢業(yè)設(shè)計(jì)，但是在這很短的時(shí)間里我學(xué)到了很多很多的東西，這都離不開同學(xué)和老師的幫助，在這里我表示對(duì)你們的最忠誠(chéng)的感謝！ 我相信畢業(yè)設(shè)計(jì)對(duì)我以后的職業(yè)會(huì)有著很重要的影響，對(duì)即將離開校園的我說句：“你一定能