---

Hello

I'm working on simple macro, which will add brackets to the selected dimensions, like on the screenshot below:

How can I get to the correct properties?

Regards

Lucas

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

---

Hi
Here you can find a solution.

Regards,
Bernd

------------------
Warum einfach, wenn es auch kompliziert geht.

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

---

Thank you Bernd

Handy as usual 

One more tricky thing (well, tricky for me at least  ). Is there a chance to automatically put max horizontal and max vertical diimension of the part on its frontview (main view)? I know those values from

Code:

---

view.size

---

matrix, by simple maths.
But how to generate those two dimensions?
Thanks in advance for help

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

---

Hi Sylas,

take a look at the views xAxisData-property (to get your points)

And a thread on the subject on how to use them:

http://ww3.cad.de/foren/ubb/Forum137/HTML/003016.shtml#000002

Hope it helps,
Joe

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

---

Sub CATMain()

Dim oDoc As DrawingDocument
Dim oDimension As DrawingDimension
Dim oValue As DrawingDimValue
Dim oSel As Object
Dim ObjType(0)

'Start
If (Right(CATIA.ActiveDocument.Name, 10) <> "CATDrawing") Then
    Exit Sub
End If

    Set oDoc = CATIA.ActiveDocument
    Set oSel = oDoc.Selection
    oSel.Clear
               
      ObjType(0) = "DrawingDimension"
      sStatus = oSel.SelectElement2(ObjType, "Selection Object...", False)
            If (sStatus = "Cancel") Then                                    ' End procedur  Esc
                Exit Sub
            End If

      Set oDimension = oSel.Item(1).Value
    'MsgBox (oDimension.Parameters.Item(1).ValueAsString)

        Set oValue = oDimension.GetValue
        oValue.SetBaultText 1, "(", ")", "", ""
End Sub

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