Macro or iLogic to Select Drawing edges

[Anonymous]

Hello,

I am looking for a Macro or ilogic to select and turn off the visibility of the edges in the particular layer or all the visible edges in the drawing file. (Without Turn off the Layer).

Thanks Beforehand.

[JamieVJohnson2 · Accepted solution]

For Each dc As DrawingCurve In vEnd.DrawingCurves(skProfile)

       Dim modObj As Object = dc.ModelGeometry
                If TypeOf modObj Is SketchLine Then
                    Dim skLine As SketchLine = modObj

'do tests to verify line is what you want, if you want to turn off then:

                        For Each dcs As DrawingCurveSegment In dc.Segments
                            dcs.Visible = False
                        Next

                end if

next

[dgreatice · Accepted solution]

Hi,

try this:

Dim oApp As Application
Dim oDD As DrawingDocument
Dim oSht As Sheet
Dim oDV As DrawingView
Dim oDC As DrawingCurve
Dim oDCS As DrawingCurveSegment
Dim oLayer As String

oApp = ThisApplication
oDD = oApp.ActiveDocument
oSht = oDD.ActiveSheet
oLayer = "Hidden (ISO-2)" 'Change this

For Each oDV In oSht.DrawingViews
    For Each oDC In oDV.DrawingCurves
        For Each oDCS In oDC.Segments
            If oDCS.Layer.Name = oLayer Then
                oDCS.Visible = False
            End If
        Next
    Next
    
Next