Drawing Text - Set Anchor mode to Global

[Maddy02]

Hi,

Could somebody let me know how can we set the Anchor mode of a drawing text to Global.

Not getting any API reference for this but seen a macro (catvbs) which does the same.(attached for reference)

Regards,
Maddy

 

[ferdo]

Try to add a watch to Text and see what is happening when you are playing with different values for Text.AnchorPosition . You have a test file ( r18 ) also attached.

Sub CATMain()


Set drawingDocument1 = CATIA.ActiveDocument
Set Sheets = drawingDocument1.Sheets
Set ActiveSheet = Sheets.ActiveSheet
Set Views = ActiveSheet.Views

For i = 3 To Views.Count
If i <> 2 Then
Set View = Views.Item(i)
Set Texts = View.Texts
For j = 1 To Texts.Count
Set Text = Texts.Item(j)

        Text.AnchorPosition = 28

Next
End If
Next


End Sub

Regards
Fernando

https://picasaweb.google.com/102257836106335725208

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

 

[Maddy02]

Hi,

Thanks ferdo, Infact i almost forgot it to try out.

Regards,
Maddy