A small code to change line type and width.


Language="VBSCRIPT"

Sub CATMain()

Dim drawingDocument1 As DocumentSet drawingDocument1 = CATIA.ActiveDocument

'-------------- select generated items
Dim selection4 As SelectionSet selection4 = drawingDocument1.Selection
selection4.Search "CATDrwSearch.CATEarlyGenItem,all"

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

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

End Sub


Regards

Fernando