1 Reply Latest reply on Feb 21, 2014 11:30 AM by Mohammed Elkalakhi

    Checking option MergeFace doesn't work on flat pattern feature

    Mohammed Elkalakhi

      Hello eveybody,


      I have a metal sheet part, I test if the the option MergeFace is checked, if not I try to chek it but it doesn't work, I dont know why ?


      Here is my code :


      Sub Main()
              Dim swApp As SldWorks
              Dim swDoc As ModelDoc2
              Dim swFlatPatt As FlatPatternFeatureData
                  swApp = CreateObject("SldWorks.Application")
                  swDoc = swApp.ActiveDoc
                  Dim swSelectedFeature As Feature = GetFeatureByName("Etat déplié1", swDoc)
                  swFlatPatt = swSelectedFeature.GetDefinition()
                  If Not swFlatPatt.MergeFace Then swFlatPatt.MergeFace = True
              Catch ex As Exception
              End Try
          End Sub
          Function GetFeatureByName(ByVal _Name As String, swDoc As ModelDoc2) As Feature
                  For i As Integer = 0 To swDoc.GetFeatureCount - 5
                      Dim swFeature As Feature = swDoc.FeatureByPositionReverse(i)
                      If swFeature.Name.ToUpper = _Name.ToUpper Then
                          Return swFeature
                      End If
                      Dim swSubFeature As Feature = swFeature.GetFirstSubFeature()
                      If swSubFeature Is Nothing Then Continue For
                          If swSubFeature.Name.ToUpper = _Name.ToUpper Then
                              Return swSubFeature
                          End If
                          swSubFeature = swSubFeature.GetNextSubFeature
                      Loop Until swSubFeature Is Nothing
                  Return Nothing
              Catch ex As Exception
                  Throw ex
              End Try
          End Function


      Thanks in advance.