用CATScript 做的CATIA标题栏和工程图框

(Rowwidth*3) ) CATFormatTBText \\

Set Text = DrwTexts.Add(\(Rowwidth*2) ) CATFormatTBText \\

Set Text = DrwTexts.Add(Text_05 , OH + Col(5) + 1. , OV+ (Rowwidth*3) ) CATFormatTBText \\

Set Text = DrwTexts.Add(\(Rowwidth*2) ) CATFormatTBText \\

Set Text = DrwTexts.Add(Text_06 , OH + Col(7) + 1. , OV + (Rowwidth*3) ) CATFormatTBText

\

Set Text = DrwTexts.Add(\(Rowwidth*2) ) CATFormatTBText \\

Set Text = DrwTexts.Add(\(Rowwidth*1) ) CATFormatTBText \\

Set Text = DrwTexts.Add(Text_07 , OH + Col(8) + 1. , OV+ (Rowwidth*3) ) CATFormatTBText \\

Set Text = DrwTexts.Add(\(Rowwidth*2) ) CATFormatTBText \\

Set Text = DrwTexts.Add(\(Rowwidth*1) ) CATFormatTBText \\

Set Text = DrwTexts.Add(Text_08 , OH + Col(9) + 1. , OV+ (Rowwidth*3) ) CATFormatTBText \\

Set Text = DrwTexts.Add(\

(Rowwidth*2) ) CATFormatTBText \\

Set Text = DrwTexts.Add(\(Rowwidth*1) ) CATFormatTBText \\

Set Text = DrwTexts.Add(Text_09 , OH + Col(7) + 3. , OV ) CATFormatTBText

\

Set Text = DrwTexts.Add(\ \OH + Col(8) + 1. OV ) CATFormatTBText

\

Set Text = DrwTexts.Add(\ \OH + Col(9) + 1. OV ) CATFormatTBText

\ 'The Left-up subBlockText.

Set Text = DrwTexts.Add(Text_10 , OH + Col(1) + 1. , OV+ (Rowwidth*4) ) CATFormatTBText

\

Set Text = DrwTexts.Add(\(Rowwidth*5) ) CATFormatTBText

\

Set Text = DrwTexts.Add(\(Rowwidth*6) ) CATFormatTBText

\

Set Text = DrwTexts.Add(\(Rowwidth*7) ) CATFormatTBText

\

Set Text = DrwTexts.Add(Text_11 , OH + Col(2) + 1. , OV+ (Rowwidth*4) ) CATFormatTBText

\

Set Text = DrwTexts.Add(\(Rowwidth*5) ) CATFormatTBText

\

, , Set Text = DrwTexts.Add(\(Rowwidth*6) ) CATFormatTBText

\

Set Text = DrwTexts.Add(\(Rowwidth*7) ) CATFormatTBText

\

Set Text = DrwTexts.Add(Text_12 , OH + Col(4) +3. , OV+ (Rowwidth*4) ) CATFormatTBText

\

Set Text = DrwTexts.Add(\(Rowwidth*5) ) CATFormatTBText

\

Set Text = DrwTexts.Add(\(Rowwidth*6) ) CATFormatTBText

\

Set Text = DrwTexts.Add(\(Rowwidth*7) ) CATFormatTBText

\

Set Text = DrwTexts.Add(Text_13 , OH + Col(6) + 1. , OV+ (Rowwidth*4) ) CATFormatTBText

\

Set Text = DrwTexts.Add(\(Rowwidth*5) ) CATFormatTBText

\

Set Text = DrwTexts.Add(\(Rowwidth*6) ) CATFormatTBText

\

Set Text = DrwTexts.Add(\(Rowwidth*7) ) CATFormatTBText

\

Set Text = DrwTexts.Add(Text_14 , OH + Col(8) + 1. , OV+ (Rowwidth*4) ) CATFormatTBText

\

Set Text = DrwTexts.Add(\(Rowwidth*5) ) CATFormatTBText

\

Set Text = DrwTexts.Add(\(Rowwidth*6) ) CATFormatTBText

\

Set Text = DrwTexts.Add(\(Rowwidth*7) ) CATFormatTBText

\

Set Text = DrwTexts.Add(Text_15 , OH + Col(9) + 1. , OV+ (Rowwidth*4) ) CATFormatTBText

\

Set Text = DrwTexts.Add(\(Rowwidth*5) ) CATFormatTBText

\

Set Text = DrwTexts.Add(\(Rowwidth*6) ) CATFormatTBText

\

Set Text = DrwTexts.Add(\(Rowwidth*7) ) CATFormatTBText

\ 'The Middle subblockText.

Set Text = DrwTexts.Add(Text_16 , OH + Col(10) + 1. , OV ) CATFormatTBText

\

Set Text = DrwTexts.Add(\ \, OH + Col(12) -5. OV ) CATFormatTBText

\

Set Text = DrwTexts.Add(\, OH + Col(15) + 1. , OV ) CATFormatTBText

\

Set Text = DrwTexts.Add(Text_17 , OH + Col(15) + 2. , OV +(Row(2)+3) ) CATFormatTBText

,