Bonjour à tous,
Je cherche à développer une macro qui permettrait de modifier la mise en forme des flèches issues des vues en coupe lors d'une mise en plan CATIA.
Lors de mes recherches je suis tombé sur des morceaux de codes pour changer les flèches de toute les dimensions, mais je ne cherche à appliquer cela qu'aux vue en coupe ou bien à une sélection active d'objets.
Voici mes pistes de code ci-dessous.
Merci d'avance du support !
Bonne soirée,
'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