Solid Edge Part Type Library > Holes Collection : AddThroughNext Method |
Visual Basic |
---|
Public Function AddThroughNext( _ ByVal Profile As Profile, _ ByVal ProfilePlaneSide As FeaturePropertyConstants, _ ByVal Data As HoleData _ ) As Hole |
Value | Description |
---|---|
igAddRound | |
igAll | |
igAlongAnAxis | |
igAngularDummy | |
igAsConstruction | |
igBend | |
igBendAndFaceCornerRelief | |
igBendOnlyCornerRelief | |
igBoth | Feature Properties - Both |
igChainedCornerRelief | |
igChamfer2Setbacks | |
igChamfer45degSetback | |
igChamferAngleSetback | |
igCircular | |
igCloseCornerCircleCutout | |
igCloseCornerClosed | |
igCloseCornerNone | |
igCloseCornerOpen | |
igClosed | |
igCloseFaces | |
igConcave | |
igConstantRadiusArc | |
igConstRadiusRound | |
igContinuous | |
igConvex | |
igCopy | |
igCornerRound | |
igCounterboreHole | |
igCounterboreProfileIsAtBottom | |
igCounterboreProfileIsAtTop | |
igCounterdrillHole | |
igCountersinkHole | |
igCurvatureContinuous | |
igCurveSetSeperator | |
igDeleteFaceHeal | |
igDelSMFaceBoth | |
igDelSMFaceNone | |
igDelSystemRelief | |
igDelZeroBendRadius | |
igDevelopableSurface | |
igEdgeBasedCrossSection | |
igEdgesByLoop | |
igEdgesByVertex | |
igEnd | |
igEndCaps | |
igEqualOffset | |
igEquationType | |
igExtend | Feature Properties - Extend |
igExtendBendRelief | |
igFacesTouchingCurvesOnly | |
igFilletBendRelief | |
igFinite | |
igFlangeCenterOfEdge | |
igFlangeEndFromEndEdge | |
igFlangeEndOnEndEdge | |
igFlangeFromBothEndsOfEdge | |
igFlangeFromDefinedStartPoint | |
igFlangeFullEdge | |
igFlangeMatchFace | |
igFlangeOffset | |
igFlangeStartFromEndEdge | |
igFlangeStartOnEndEdge | |
igFlatten | |
igFormedEnd | |
igFromNonReferenceEnd | |
igFromReferenceEnd | |
igFromTo | |
igFull | |
igGroove | |
igHemTypeCenteredLoop | |
igHemTypeClosed | |
igHemTypeClosedLoop | |
igHemTypeCurl | |
igHemTypeOpen | |
igHemTypeOpenLoop | |
igHemTypeSFlange | |
igIgnoreBlends | |
igInside | Feature Properties - Remove/Add Material Inside |
igInsideDimension | |
igIntersect | |
igLancedEnd | |
igLeft | Feature Properties - Project to Left |
igLinear | |
igLinearCurvatureContinuousExtension | |
igLinearTangentExtension | |
igLip | |
igLouverFormedEndType | |
igLouverLancedEndType | |
igLouverRound | |
igLouverRoundNone | |
igMitreByAngle | |
igMitreByDist | |
igMitreManufacturingCut | |
igMitreNormalToThickness | |
igMitreParallelToThickness | |
igMitreRegularCut | |
igMove | |
igMultipleEdges | |
igNatural | |
igNeutralFactorFromExcel | |
igNFType | |
igNoCornerRound | |
igNoExtend | Feature Properties - Do Not Extend |
igNone | |
igNonSymmetric | |
igNormal | |
igNormalSideDummy | Feature Properties - Normal Side |
igNoRound | |
igNullConstant | |
igOffset | |
igOutside | Feature Properties - Remove/Add Material Outside |
igOutsideDimension | |
igOverlapFaces | |
igParallelDummy | |
igParallelToPlane | |
igPartingFromCurve | |
igPartingFromEdge | |
igPartingFromPlane | |
igPartingFromSurface | |
igPatternAlongCurve | |
igPatternCircular | |
igPatternFillRegion | |
igPatternMirror | |
igPatternMountingBoss | |
igPatternRectangular | |
igPatternUserDefined | |
igPeriodic | |
igProfileBasedCrossSection | |
igProjectOptionProject | |
igProjectOptionWrap | |
igPunchedEnd | |
igRadial | |
igRaisedCounterboreSlot | |
igRecessedCounterboreSlot | |
igRecreateBlends | |
igRectangularBendRelief | |
igReflective | |
igRegularHole | |
igRegularSlot | |
igRegularThread | |
igRemoveBoundaries | |
igRemoveExternalBoundaries | |
igRemoveInternalBoundaries | |
igReverseNormal | |
igReverseNormalSideDummy | Feature Properties - Reverse Normal Side |
igRight | Feature Properties - Project to Right |
igRipBendRelief | |
igRipCornerRelief | |
igRndCapAcrossSharpEdges | |
igRndMiterAtCorner | |
igRndPreserveTopologyOff | |
igRndPreserveTopologyOn | |
igRndRollAcrossSharpEdges | |
igRndRollAcrossTangentEdgesOff | |
igRndRollAcrossTangentEdgesOn | |
igRndRollAlongBlendEdgesOff | |
igRndRollAlongBlendEdgesOn | |
igRndRollAroundCorner | |
igRoundAllVertexSetback | |
igRoundEndVertexEdgeSetback | |
igRoundSetbackIsAbsolute | |
igRoundSetbackIsRelative | |
igRoundSingleVertexSetback | |
igRoundStartVertexEdgeSetback | |
igRoundVertexEdgeSetback | |
igShowBoundaries | |
igSideInfoSetSeperator | |
igSingleEdge | |
igSMClearanceCutout | |
igSMFaceCutout | |
igSMMidPlaneCutout | |
igSplit | |
igSplitAngle1Left | |
igSplitAngle1Right | |
igSplitDraft | |
igStart | |
igStepDraft | |
igStepDraftPerpendicular | |
igStraightPipeThread | |
igSubtract | |
igSweepAlignArcLength | |
igSweepAlignNormal | |
igSweepAlignParallel | |
igSweepAlignParametrically | |
igSweepC1Continuity | |
igSweepC2Continuity | |
igSweepMergeAll | |
igSweepMergeAlongPath | |
igSweepMergeNone | |
igSweepScaleNone | |
igSweepScaleStartAndEnd | |
igSweepTwistNone | |
igSweepTwistStartAndEnd | |
igSweepTwistTurns | |
igSweepTwistTurnsPerUnitLength | |
igSymmetric | Feature Properties - Symmetric Extent |
igTangent | |
igTangentInterior | |
igTaperByAngle | |
igTaperByRatio | |
igTaperByRLRatio | |
igTaperDimAtBottom | |
igTaperDimAtTop | |
igTaperedEnd | |
igTaperedHole | |
igTaperedPipeThread | |
igTaperedToPlane | |
igTappedHole | |
igThickness | |
igThkInProfilePlane | |
igThkNormalToProfilePlane | |
igThreeHundredAndSixty | |
igThroughAll | |
igThroughAxis | |
igToEndOfEdge | |
igToggleToConstruction | Toggle from Design to Construction |
igToggleToDesign | Toggle from Construction to Design |
igToKeyPoint | |
igToNext | |
igTreatmentCircleCutout | |
igTreatmentCrown | |
igTreatmentDraft | |
igTreatmentFormedFeatureDisplayAsCenterMark | |
igTreatmentFormedFeatureDisplayAsModeled | |
igTreatmentFormedFeatureDisplayAsSketch | |
igTreatmentFormedFeatureDisplayAsSketchAndCenterMark | |
igTreatmentIntersect | |
igTreatmentMiterRelief | |
igTreatmentOff | |
igTreatmentRectangularCutout | |
igTreatmentUCutout | |
igTreatmentVCutout | |
igUnequalOffset | |
igUnite | |
igUShaped | |
igVarRadiusRound | |
igVBottomDimToFlat | |
igVBottomDimToV | |
igVShaped | |
igWeldGrooveCapProject | |
igWeldGrooveCapSameAsTop | |
igWeldGrooveCapSurface |
Private Sub Form_Load() Dim objApp As SolidEdgeFramework.Application Dim objDoc As SolidEdgePart.PartDocument Dim objModel As SolidEdgePart.Model Dim objProfArr(1 To 2) As SolidEdgePart.Profile Dim objHoleProf As SolidEdgePart.Profile Dim objHol As SolidEdgePart.Hole Dim objHolData As SolidEdgePart.HoleData Dim objLines As SolidEdgeFrameworkSupport.Lines2d Dim objRelns As SolidEdgeFrameworkSupport.Relations2d Dim objRefPln As SolidEdgePart.RefPlane Dim lngStatus As Long ' Report errors Const PI = 3.14159265358979 ' Create/get the application with specific settings On Error Resume Next Set objApp = GetObject(, "SolidEdge.Application") If Err Then Err.Clear Set objApp = CreateObject("SolidEdge.Application") Set objDoc = objApp.Documents.Add("SolidEdge.PartDocument") objApp.Visible = True Else Set objDoc = objApp.ActiveDocument End If 'Draw the Base Profile Set objProfArr(1) = objDoc.ProfileSets.Add.Profiles.Add(pRefPlaneDisp:= _ objDoc.RefPlanes(3)) Set objLines = objProfArr(1).Lines2d Call objLines.AddBy2Points(x1:=0, y1:=0, x2:=0.08, y2:=0) Call objLines.AddBy2Points(x1:=0.08, y1:=0, x2:=0.08, y2:=0.06) Call objLines.AddBy2Points(x1:=0.08, y1:=0.06, x2:=0.064, y2:=0.06) Call objLines.AddBy2Points(x1:=0.064, y1:=0.06, x2:=0.064, y2:=0.02) Call objLines.AddBy2Points(x1:=0.064, y1:=0.02, x2:=0.048, y2:=0.02) Call objLines.AddBy2Points(x1:=0.048, y1:=0.02, x2:=0.048, y2:=0.06) Call objLines.AddBy2Points(x1:=0.048, y1:=0.06, x2:=0.032, y2:=0.06) Call objLines.AddBy2Points(x1:=0.032, y1:=0.06, x2:=0.032, y2:=0.02) Call objLines.AddBy2Points(x1:=0.032, y1:=0.02, x2:=0.016, y2:=0.02) Call objLines.AddBy2Points(x1:=0.016, y1:=0.02, x2:=0.016, y2:=0.06) Call objLines.AddBy2Points(x1:=0.016, y1:=0.06, x2:=0, y2:=0.06) Call objLines.AddBy2Points(x1:=0, y1:=0.06, x2:=0, y2:=0) ' Define Relations among the Line objects to make the Profile closed Set objRelns = objProfArr(1).Relations2d Call objRelns.AddKeypoint(Object1:=objLines(1), Index1:=igLineEnd, Object2:=objLines(2), Index2:=igLineStart) Call objRelns.AddKeypoint(Object1:=objLines(2), Index1:=igLineEnd, Object2:=objLines(3), Index2:=igLineStart) Call objRelns.AddKeypoint(Object1:=objLines(3), Index1:=igLineEnd, Object2:=objLines(4), Index2:=igLineStart) Call objRelns.AddKeypoint(Object1:=objLines(4), Index1:=igLineEnd, Object2:=objLines(5), Index2:=igLineStart) Call objRelns.AddKeypoint(Object1:=objLines(5), Index1:=igLineEnd, Object2:=objLines(6), Index2:=igLineStart) Call objRelns.AddKeypoint(Object1:=objLines(6), Index1:=igLineEnd, Object2:=objLines(7), Index2:=igLineStart) Call objRelns.AddKeypoint(Object1:=objLines(7), Index1:=igLineEnd, Object2:=objLines(8), Index2:=igLineStart) Call objRelns.AddKeypoint(Object1:=objLines(8), Index1:=igLineEnd, Object2:=objLines(9), Index2:=igLineStart) Call objRelns.AddKeypoint(Object1:=objLines(9), Index1:=igLineEnd, Object2:=objLines(10), Index2:=igLineStart) Call objRelns.AddKeypoint(Object1:=objLines(10), Index1:=igLineEnd, Object2:=objLines(11), Index2:=igLineStart) Call objRelns.AddKeypoint(Object1:=objLines(11), Index1:=igLineEnd, Object2:=objLines(12), Index2:=igLineStart) Call objRelns.AddKeypoint(Object1:=objLines(12), Index1:=igLineEnd, Object2:=objLines(1), Index2:=igLineStart) ' Check for the Profile Validity lngStatus = objProfArr(1).End(ValidationCriteria:=igProfileClosed) If lngStatus <> 0 Then MsgBox ("Profile not closed") End If 'Create the Base Extruded Protrusion Feature Set objModel = objDoc.Models.AddFiniteExtrudedProtrusion(NumberOfProfiles:=1, _ profileArray:=objProfArr, Profileplaneside:= _ igRight, ExtrusionDistance:=0.05) objProfArr(1).Visible = False ' Check the status of Base Feature If objModel.ExtrudedProtrusions(1).Status <> igFeatureOK Then MsgBox ("Error in the Creation of Base Protrusion Feature object") End If ' Create a Holes2d Profile for the Hole object Set objRefPln = objDoc.RefPlanes.AddParallelByDistance(ParentPlane:=objDoc.RefPlanes(2), _ Distance:=0.04, NormalSide:=igRight) Set objHoleProf = objDoc.ProfileSets.Add.Profiles.Add(pRefPlaneDisp:=objRefPln) Call objHoleProf.Holes2d.Add(xCenter:=-0.025, yCenter:=0.04) ' Check for the Profile Validity lngStatus = objHoleProf.End(ValidationCriteria:=igProfileClosed) If lngStatus <> 0 Then MsgBox ("Profile not closed") End If ' Create the HoleData object Set objHolData = objDoc.HoleDataCollection.Add(HoleType:=igRegularHole, _ HoleDiameter:=0.005) ' Create a Hole object Set objHol = objModel.Holes.AddThroughNext(Profile:=objHoleProf, Profileplaneside:= _ igRight, Data:=objHolData) 'Turn off the profile objHoleProf.Visible = False ' USER DISPLAY ' Release objects Set objApp = Nothing Set objDoc = Nothing Set objHoleProf = Nothing Set objProfArr(1) = Nothing Set objProfArr(2) = Nothing Set objModel = Nothing Set objHol = Nothing Set objHolData = Nothing Set objRelns = Nothing Set objLines = Nothing Set objRefPln = Nothing End Sub