Standardize section arrows on CATIA

2D plans
1

Hi all

I am looking to develop a macro that would allow you to modify the formatting of the arrows from the section views during a CATIA drawing.

During my research I came across pieces of code to change arrows of all dimensions, but I only try to apply this to section views or to an active selection of objects.

Here are my code tracks below.

Thanks in advance for the support!

Good night

'Liste des symboles
  catDimSymbNone
  catDimSymbOpenArrow
  catDimSymbClosedArrow
  catDimSymbFilledArrow
  catDimSymbSymArrow
  catDimSymbSlash
  catDimSymbCircle
  catDimSymbFilledCircle
  catDimSymbScoredCircle
  catDimSymbCircledCross
  catDimSymbTriangle
  catDimSymbFilledTriangle
  catDimSymbCross
  catDimSymbXCross

Dim oDrwDoc As DrawingDocument
Set oDrwDoc = CATIA.ActiveDocument

Dim oSel As Selection
Set oSel = oDrwDoc.Selection
        
Dim iSymbType As CatDimSymbols
iSymbType = catDimSymbNone ' Set the symbol type here

Dim iThickSymb As double
iThickSymb = 0.13


'Je n'arrive pas à relier les lignes suivantes pour modifier les flèches désignées par i et j            
oDrwDoc.Sheets.Item(i).Views.item(j).Dimensions... 
GetDimLine.SetSymbType Z, iSymbType
GetDimLine.SetSymbThickness Z, iThickSymb

               
             

End Sub