---

Hello Community!

After some time of struggling, I finally was able to move forward with my code for applying brackets (parenthesis) for selected FTA dimensions. Here's the code:

Code:

---

Sub CATMain()
Dim oAnnotation As Annotation
Dim oText As DrawingText
Dim oDim As Dimension3D
Dim sName As String
Dim sNewName As String
Dim odSel As Selection
Dim oSel
Dim InputObjectType(0) As Variant

Set odSel = CATIA.ActiveDocument.Selection
Set oSel = odSel
InputObjectType(0) = "AnyObject"
Result = oSel.SelectElement3(InputObjectType, "Wybierz teksty", True, CATMultiSelTriggWhenUserValidatesSelection, True)
sNewName = ""
For j = 1 To oSel.Count
    Set oAnnotation = oSel.Item(j).Value
    If oAnnotation.Type = "FTA_NonSemanticDimension" Then
        Set oDim = oAnnotation.Dimension3D
        oDim.Get2dAnnot.GetValue.SetBaultText 1, "(", ")", "", ""
        Set oDim = oDim
    ElseIf oAnnotation.Type = "FTA_Text" Then
        Set oText = oAnnotation.Text.Get2dAnnot
        oText.Text = "(" & oText.Text & ")"
    End If
Next
CATIA.RefreshDisplay = False
CATIA.ActiveDocument.Selection.Add oAnnotation.Parent.Parent
CATIA.StartCommand "CATTPSSetVisuHdr" ' "Annotation set switch on/switch off" command

' turn on
CATIA.ActiveDocument.Selection.Add oAnnotation.Parent.Parent
CATIA.StartCommand "CATTPSSetVisuHdr"
CATIA.RefreshDisplay = True
End Sub

---

The problem which now occurs is, that after macro, the dimsion is not updated: the brackets appear in dimension text property tab, but appears on FTA only when I manually click that little red triangle by dimenion and hit enter, or when I ope properties tab and hit enter 

Is there a way to force update those dimensions?

Thanks in advance for any advice

Best regards
Lucas

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP