adding line to script

[harlowmatt]

Hi everyone,
CATIA user here. You'll have to excuse my lack of knowledge for script writing. the person who wrote the script for our drawing title block included lines that would create a text box that says "Notes:". I would like to add a line to this that would skip a line after "Notes:" and add in the text from "Description" box for the linked part/product properties. Can anyone help? Any and all help is appreciated.

 

[drewmumaw]

Please post the original script code.

Drew Mumaw

http://www.textsketcher.com

http://www.drewmumaw.com

 

[harlowmatt]

here is the script for the portion of the title block I am asking about

nbTexts = Texts.Count
i = 0
notFound = 0
While (notFound = 0 And i<nbTexts)
i = i + 1
Set Text = Texts.Item(i)
WholeName = Text.Name
leftText = Left(WholeName, 9)
If (leftText = "STD_Notes") Then
notFound = 1
End If
Wend
If (notFound = 0) Then
Note_01 = "Notes: " & CHRW(&H000D) & CHRW(&H000A) & " "
CreateTextAF Note_01, GetOH() + Col(3)+27,GetOV() + Row(9), "STD_Notes", catBottomLeft, 3
Texts.GetItem("STD_Notes").WrappingWidth = 91