【正文】 refplane 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。報告錯誤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。設置參考面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。設置參考面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。顯示草圖輪廓線(一般設為隱藏) = 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。報告錯誤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 裝配圖致 謝大學4年很快的過去了。后的午餐便是畢業(yè)設計，它是我在這4年里所學的知識的總和。在這次畢業(yè)設計中，在張鎖榮老師的指導下我從中學到了很多東西。剛開始的茫然道最后的豁然開朗， 在這里面除了我自己的學習外，張老師對我的指導才是我能完成畢業(yè)設計的最大動力。在這期間張老師無時無刻不在關心著我的進度，對我在這過程的錯誤進行指導糾正。4年如此之短，何況最后這幾個月的畢業(yè)設計，但是在這很短的時間里我學到了很多很多的東西，這都離不開同學和老師的幫助，在這里我表示對你們的最忠誠的感謝！ 我相信畢業(yè)設計對我以后的職業(yè)會有著很重要的影響，對即將離開校園的我說句：“你一定能行!第 46 頁 共 46 頁