VBA- Hide bend lines on a drawing view - for lasercut - what I tried without success. bret is true but segment not selected? I also tried to get the feature name - to male ID select. But i can not get the feature via the SketchSegment.

Can anybody help me to hide the bend lines?

Do not reference another forum on the web, please. 

Option Explicit
Dim swApp As SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
Dim swDrawing As SldWorks.DrawingDoc
Dim swView As SldWorks.View
Dim nbrBendlines As Long
Dim BendlinesArr As Variant
Dim i As Long
Dim swSketchSegment As SldWorks.SketchSegment
Dim bRet As Boolean

Sub main()
   Set swApp = Application.SldWorks
   Set swModel = swApp.ActiveDoc
   Set swDrawing = swModel

   ' Get first drawing view (skip the sheet)
   Set swView = swDrawing.GetFirstView
   Set swView = swView.GetNextView

   If swView Is Nothing Then Exit Sub
   If swView.IsFlatPatternView Then
       nbrBendlines = swView.GetBendLineCount
       Debug.Print "Number of bendlines in this view: " & nbrBendlines

       If nbrBendlines > 0 Then
           BendlinesArr = swView.GetBendLines
           For i = 0 To UBound(BendlinesArr)
               Set swSketchSegment = BendlinesArr(i)
               Debug.Print i & " Is bend line " & i & " really a bend line? " & swSketchSegment.IsBendLine

               ' Select bend line (works in drawing views)
               bRet = swSketchSegment.Select(True)
               If bRet Then
                   Debug.Print "  Bend line " & i & " selected successfully."
               Else
                   Debug.Print "  Bend line " & i & " failed to select."
               End If
           Next i
       End If
   End If
End Sub