Select lines by Layer Ilogic

[jvalenzuela]

Hi, is there any method to select lines by layer using ilogic? 

Thanks in advance

[bradeneuropeArthur]

What lines?

sketches in the model.
Sketches in the drawing.
Sketches in the drawing view.
Model lines the drawing view.
Model sketche lines the drawing view.

Please let me know

[jvalenzuela]

Sorry for the lack of information, the idea is to select only the lines of a certain layer of the model in the drawing view, I searched the forum and the internet but nothing.

Thanks for the quick response

[bradeneuropeArthur]

Hi,

What would you like to do with these lines of that specific layer?

[jvalenzuela]

The idea is selecting all the lines in a certain layer to change it to another, but by means of ilogic

[bradeneuropeArthur]

Hi.

I am writing something thst seems to work.

You will see this Soon.
Ok?

[jvalenzuela]

Thanks for Your reply

[bradeneuropeArthur · Accepted solution]

Hi,

Check This for VBA:

Public Sub l()

Dim a As Application
Set a = ThisApplication

Dim b As DrawingDocument
Set b = a.ActiveDocument

Dim s As Sheet
Set s = b.Sheets.Item(1)

Dim v As DrawingView
Set v = s.DrawingViews.Item(1)

Dim sl As DrawingCurve
Dim sg As DrawingCurveSegment

For Each sl In v.DrawingCurves

For Each sg In sl.Segments

Dim lay As Layer
Set lay = b.StylesManager.Layers.Item("YOUR LAYER NAME TO BE REPLACE WITH")

If sg.Layer.Name = "YOUR LAYER NAME TO BE REPLACE" Then

sg.Layer = lay

End If

Next
Next


End Sub

this For I-logic:

Public Sub Main()

Dim a As Application
a = ThisApplication

Dim b As DrawingDocument
b = a.ActiveDocument

Dim s As Sheet
s = b.Sheets.Item(1)

Dim v As DrawingView
v = s.DrawingViews.Item(1)

Dim sl As DrawingCurve
Dim sg As DrawingCurveSegment

For Each sl In v.DrawingCurves

For Each sg In sl.Segments

Dim lay As Layer
lay = b.StylesManager.Layers.Item("YOUR LAYER NAME TO BE REPLACE WITH")

If sg.Layer.Name = "YOUR LAYER NAME TO BE REPLACE" Then

sg.Layer = lay

End If

Next
Next


End Sub

Regards, 

[jvalenzuela]

Thanks, I only have add an error handling between two next at the end, but works really fine.

[bradeneuropeArthur]

That was a good idea to implement that. I do that normally too, but to provide some solutions I never do that to keep it quick and easy to understand.

Thst is also why the declarations are simple dim a as...

Good to hear that it is solved.

[dseelbach]

Anyone know why this doesn't work on section views?

"Unspecified error (Exception from HRESULT: 0x80004005 (E_FAIL))"