Code:
Dim swApp As SldWorks.SldWorks
Dim Part As ModelDoc2
Dim boolstatus As Boolean
Sub main()
radiiArray5 = radiis5
dist2Array5 = dists25
conicRhosArray5 = coniRhos5
setBackArray5 = setBacks5
pointArray5 = points5
pointDist2Array5 = pointsDist25
pointRhoArray5 = pointsRhos5
Set swApp = Application.SldWorks
Set Part = swApp.ActiveDoc
'boolstatus = Part.Extension.SelectByID2("Schnitt-Linear austragen14", "BODYFEATURE", 0, 0, 0, False, 0, Nothing, 0) 'Replace with your Cut extrude
boolstatus = Part.Extension.SelectByID2("Schnitt-Linear austragen15", "BODYFEATURE", 0, 0, 0, False, 0, Nothing, 0) 'Replace with your Cut extrude
Set swSelMgr = Part.SelectionManager
Set swFeat = swSelMgr.GetSelectedObject6(1, -1)
Set swSelData = swSelMgr.CreateSelectData
Dim feat As Feature
Set feat = Part.SelectionManager.GetSelectedObject6(1, -1)
Dim vFaces As Variant
vFaces = feat.GetFaces
Part.ClearSelection2 True
Dim FCnt As Integer
Dim ECnt As Integer
Dim swFace As Face2
Dim vEdges As Variant
Dim swEdge As Edge
Dim swCurve As Curve
Dim Param As Variant
Dim swEnt As Entity
Dim EdgeLen As Double
Dim vEdgeFaces As Variant
Dim Cnt As Integer
Dim EdgeFace As Face2
Dim FaceFeat As Feature
Dim FeatName(1) As String
Dim bRet As Boolean
For FCnt = 0 To UBound(vFaces)
Set swFace = vFaces(FCnt)
vEdges = swFace.GetEdges
For ECnt = 0 To UBound(vEdges)
Set swEdge = vEdges(ECnt)
vEdgeFaces = swEdge.GetTwoAdjacentFaces2
For Cnt = 0 To UBound(vEdgeFaces)
Set EdgeFace = vEdgeFaces(Cnt)
Set FaceFeat = EdgeFace.GetFeature
FeatName(Cnt) = FaceFeat.Name
Next Cnt
If FeatName(0) = FeatName(1) Then
Set swEnt = swEdge
swEnt.Select True
End If
Next ECnt
Next FCnt
Dim myFeature As Object
Set myFeature = Part.FeatureManager.FeatureFillet3(195, 0.006, 0, 0, 0, 0, 0, (radiiArray5), (dist2Array5), (conicRhosArray5), (setBackArray5), (pointArray5), (pointDist2Array5), (pointRhoArray5))
End Sub