Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations MintJulep on being selected by the Eng-Tips community for having the most helpful posts in the forums last week. Way to Go!

adding line to script

Status
Not open for further replies.

harlowmatt

Aerospace
Joined
Nov 11, 2014
Messages
71
Location
US
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.
 
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
 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top