Solid Edge Part Type Library > ExtrudedCutouts Collection : AddFinite Method |
Visual Basic |
---|
Public Function AddFinite( _ ByVal Profile As Profile, _ ByVal ProfileSide As FeaturePropertyConstants, _ ByVal ProfilePlaneSide As FeaturePropertyConstants, _ ByVal Depth As Double _ ) As ExtrudedCutout |
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 | |
igCurvatureContinuousInterior | |
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 |
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 | |
igCurvatureContinuousInterior | |
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 objProf As SolidEdgePart.Profile Dim objProfile(1 To 2) As SolidEdgePart.Profile Dim objExtCut As SolidEdgePart.ExtrudedCutout Dim objModel As SolidEdgePart.Model 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 objProfile(1) = objDoc.ProfileSets.Add.Profiles.Add(pRefPlaneDisp:=objDoc.RefPlanes(3)) Set objLines = objProfile(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 = objProfile(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 Profile validity lngStatus = objProfile(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:=objProfile, ProfilePlaneSide:= _ igRight, ExtrusionDistance:=0.05) objProfile(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 Cutout object with a closed profile '***** ProfileSide set to igLeft and ProfilePlaneSide set to igRight ' Create a Circular Profile Set objRefPln = objDoc.RefPlanes.AddParallelByDistance(ParentPlane:=objDoc.RefPlanes(2), _ Distance:=0.01, NormalSide:=igRight) Set objProf = objDoc.ProfileSets.Add.Profiles.Add(pRefPlaneDisp:=objRefPln) Call objProf.Circles2d.AddByCenterRadius(x:=-0.025, y:=0.035, Radius:=0.005) ' Check if the Profile is closed lngStatus = objProf.End(ValidationCriteria:=igProfileClosed) If lngStatus <> 0 Then MsgBox ("Profile not closed") End If 'Create the ExtrudedCutout feature Set objExtCut = objModel.ExtrudedCutouts.AddFinite(Profile:=objProf, _ ProfileSide:=igLeft, ProfilePlaneSide:= _ igRight, Depth:=0.1) 'Turn off the profile objProf.Visible = False ' USER DISPLAY ' Release objects Set objApp = Nothing Set objDoc = Nothing Set objProfile(1) = Nothing Set objProfile(2) = Nothing Set objProf = Nothing Set objExtCut = Nothing Set objLines = Nothing Set objModel = Nothing Set objRelns = Nothing Set objRefPln = Nothing End Sub