Hide Value for Text with Leader 2

[ferdo]

Hi,

I would like to Hide Value from a Text with Leader as is shown in picture attached. I didn't find in docs something useful, is it possible or not to do it with a macro ?

Thanks in advance for any help.





Regards
Fernando

https://picasaweb.google.com/102257836106335725208

https://picasaweb.google.com/103462806772634246699/

 

[GELFS]

Hi Ferdo,

you may use Windows APIs to set the value of the [Combobox] field to 'Hide' in the [Text] tab of the |Properties| dialog box

Alternatively, a workaround is to set the color of the Drawing Text object as in the following sample code.

Function ChangeDrawingTextColor(ByVal Color As Integer)
    Dim DwgText As DrawingText
    
    Set DwgText = CATIA.ActiveDocument.Selection.Item(1).Value
    DwgText.TextProperties.Color = Color
    DwgText.TextProperties.Update
End Function

Sub TestOfChangeDrawingTextColorFunction()
    ChangeDrawingTextColor (-1)
End Sub

I hope it helps.


-GEL
Imposible is nothing.

 

[ferdo]

Hi,

This is a very good idea, thank you.

Regards
Fernando

https://picasaweb.google.com/102257836106335725208

https://picasaweb.google.com/103462806772634246699/

 

[GELFS]

Hi Fernando,
You are always welcome.
Note: Thanks for the star.


-GEL
Imposible is nothing.

 

[ferdo]

Hi GEL

Excellent idea once again, I would give a second star but is not possible

To do what I wanted I used (in vb.net)

DrawText1.ActivateFrame(catNone)
DrawLeader1 = DrawText1.Leaders.Add(PointLocation1(0), PointLocation1(1))
DrawLeader1.HeadSymbol = catFilledArrow
DrawText1.AnchorPosition = catBottomCenter
Const catColor As DRAFTINGITF.CatTextProperty = -1
DrawText1.TextProperties.Color = catColor
DrawText1.TextProperties.Update()


Regards
Fernando

https://picasaweb.google.com/102257836106335725208

https://picasaweb.google.com/103462806772634246699/

 

[AlexLozoya]

one star for me.. i try to hide value from a Text with Leader but i can't... just with the dimensions.

 

[AlexLozoya]

one star from me** (Correction)