Hallo ihr alle
Ich möchte ein Makro entwickeln, mit dem Sie die Formatierung der Pfeile aus den Schnittansichten während einer CATIA-Zeichnung ändern können.
Bei meiner Recherche bin ich auf Codestücke gestoßen, um Pfeile aller Dimensionen zu ändern, aber ich versuche nur, dies auf Schnittansichten oder auf eine aktive Auswahl von Objekten anzuwenden.
Hier sind meine Code-Tracks unten.
Vielen Dank im Voraus für die Unterstützung!
Gute Nacht
'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