Cze wszystkim
Chcę opracować makro, które pozwoliłoby na modyfikację formatowania strzałek z widoków przekroju podczas rysunku CATIA.
Podczas moich badań natknąłem się na fragmenty kodu do zmiany strzałek wszystkich wymiarów, ale staram się to zastosować tylko do widoków przekrojów lub do aktywnego wyboru obiektów.
Oto moje ścieżki kodu poniżej.
Z góry dziękuję za wsparcie!
Dobranoc
'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