Need to change the Line type and thickness in a drawing view

[GajendraHG]

Hi Team,

I have a number of drawing sheet which contains views in that, for each view im using overload properties to change the line type and thickness.
Can we automate this without using overload properties?
Scenario_1:-
Product window
Vxxxxxxxxx
1.Vzzzzzzzz
2.Vyyyyyyy

Drawing window
With respect to the 2.Vyyyyyyy(SubProduct) applying overload properties.

Please suggest me solution

 

[GajendraHG]

i got the below code, which is changing properties for all the elements present in the drawing sheet.

How to make it specific part number? or except specified product it should change the properties?

"Sub CATMain()

Dim drawingDocument1 As Document
Set drawingDocument1 = CATIA.ActiveDocument


'-------------- select generated items

Dim selection4 As Selection
Set selection4 = drawingDocument1.Selection

selection4.Search "CATDrwSearch.CATEarlyGenItem,all"

Set visProperties1 = CATIA.ActiveDocument.Selection.VisProperties
visProperties1.SetRealLineType 1,0.2 '-----------change line type

Set visProperties1 = CATIA.ActiveDocument.Selection.VisProperties
visProperties1.SetRealWidth 1,0.2 '-----------change width


End Sub"

Please help me out