position between any drawingtext

[hehe1990]

hi freind,

if it's possible can you help me?

I was creat one drawing when i put lot of drawingtext. I give a position in X for all drawingtext, but in Y i went put the same space between a drawing text.



Set drawingDocument1 = CATIA.ActiveDocument

Set drawingSheets1 = drawingDocument1.Sheets

Set drawingSheet1 = drawingSheets1.Item("plan...")

Set drawingViews1 = drawingSheet1.Views

Set layout2DView1 = drawingViews1.Item("Composant 2D.2")

Set drawingPictures1 = layout2DView1.Pictures

Set drawingDocument1 = CATIA.ActiveDocument

Set parameters1 = drawingDocument1.Parameters

Set strParam1 = parameters1.Item("Chaîne.31")

Set drawingPicture1 = drawingPictures1.Item("Image.7")
Set drawingPicture2 = drawingPictures1.Item("Image.5")



set octextinit=layout2DView1.Texts
set octextinit1=layout2DView1.Texts


for k=1 to octextinit.count
for k=2 to octextinit1.count +1

Set oTextinit = octextinit1.item(k)
Set oTextinit = octextinit.item(k)

oTextinit.X = 945

oTextinit.Y = oTextinit.Y +5


next



Set ocText2 = layout2DView1.Texts

For j = 1 To ocText2.Count

Set oText2 = ocText2.item(j)

If oText2.Text = "THREADS AND AREA NOT PAINTED" Then

oText2.X=966

drawingPicture2.X = oText2.X-20

drawingPicture2.Y = oText2.Y-12


End If
next

 

[ferdo]

Hi,

Your macro is very specific, I see in your code a mix of French and English words and this can be a problem. Can you upload a sample to see how your macro can be done "universal"?

Regards
Fernando

https://picasaweb.google.com/102257836106335725208

- Romania

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

- EU