Hoi allemaal
Ik ben op zoek naar een macro waarmee u de opmaak van de pijlen uit de sectieweergaven tijdens een CATIA-tekening kunt wijzigen.
Tijdens mijn onderzoek kwam ik stukjes code tegen om pijlen van alle dimensies te veranderen, maar ik probeer dit alleen toe te passen op sectieweergaven of op een actieve selectie van objecten.
Hier zijn mijn codetracks hieronder.
Alvast bedankt voor de steun!
Goedenacht
'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