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

CATFormatTBText

\

Set Text = DrwTexts.Add(Text_06, OH + Coll(4) + 4. , OV + (Rowl(1)+3) ) CATFormatTBText

\

Set Text = DrwTexts.Add(Text_07, OH + Coll(5) + 1. , OV + (Rowl(1)+3) ) CATFormatTBText \ catBottomLeft , 5

Set Text = DrwTexts.Add(Text_08, OH + Coll(6) + 2 , OV + (Rowl(2)+1) ) CATFormatTBText \catBottomLeft , 5

Set Text = DrwTexts.Add(Text_09, OH + Coll(7) + 2. , OV + (Rowl(2)+1) ) CATFormatTBText \catBottomLeft , 5

Set Text = DrwTexts.Add(Text_10, OH + Coll(6) + 3. , OV + (Rowl(1)+1) ) CATFormatTBText \ catBottomLeft , 5

Set Text = DrwTexts.Add(Text_11, OH + Coll(8) + 1. , OV + (Rowl(1)+3) ) CATFormatTBText \catBottomLeft , 5

For i=1 to (ObjAmount)

Set Text = DrwTexts.Add(TextO_01, OH + Coll(1) + 2. , OV + (Rowl(i+2)+1) ) CATFormatTBText \ catBottomLeft , 5

Set Text = DrwTexts.Add(TextO_02, OH + Coll(2) + 2. , + (Rowl(i+2)+1) ) CATFormatTBText \ catBottomLeft , 5

Set Text = DrwTexts.Add(TextO_03, OH + Coll(3) + 2. , + (Rowl(i+2)+1) ) CATFormatTBText \ catBottomLeft , 5

Set Text = DrwTexts.Add(TextO_04, OH + Coll(4) + 1. , + (Rowl(i+2)+1) ) CATFormatTBText \ catBottomLeft , 5

Set Text = DrwTexts.Add(TextO_05, OH + Coll(5) + 2. , , , , , OV , OV , OV , OV

, , + (Rowl(i+2)+1) ) CATFormatTBText \ , catBottomLeft , 5

Set Text = DrwTexts.Add(TextO_06, OH + Coll(6) + 2. , OV + (Rowl(i+2)+1) ) CATFormatTBText \ , catBottomLeft , 5 Set Text = DrwTexts.Add(TextO_07, OH + Coll(7) + 2. , OV + (Rowl(i+2)+1) ) CATFormatTBText \ , catBottomLeft , 5

Set Text = DrwTexts.Add(TextO_08, OH + Coll(8) + 2. , OV + (Rowl(i+2)+1) ) CATFormatTBText \ , catBottomLeft , 5 Next

CATLinks

End Sub

Sub CATFormatFText(textName As String, angle As Double)

'-------------------------------------------------------------------------------

'How to format the texts belonging to the frame

'-------------------------------------------------------------------------------

Text.Name = textName

Text.AnchorPosition = CATMiddleCenter Text.Angle = angle End Sub

Sub CATFormatTBText(textName As String, anchorPosition As String, fontSize)

'-------------------------------------------------------------------------------

'How to format the texts belonging to the titleblock

'-------------------------------------------------------------------------------

Text.Name = textName

Text.SetFontName 0, 0, \ Text.AnchorPosition = anchorPosition Text.SetFontSize 0, 0, fontSize End Sub

Sub CATLinks()

'-------------------------------------------------------------------------------

'How to fill in texts with data of the part/product linked with current sheet

'-------------------------------------------------------------------------------

On Error Resume Next

Dim ProductDrawn As ProductDocument Set ProductDrawn = DrwSheet.Views.Item(\view\ If Err.Number = 0 Then DrwTexts.GetItem(\= ProductDrawn.PartNumber DrwTexts.GetItem(\ProductDrawn.Definition

Dim ProductAnalysis As Analyze

Set ProductAnalysis = ProductDrawn.Analyze DrwTexts.GetItem(\= FormatNumber(ProductAnalysis.Mass,2) End If

'-------------------------------------------------------------------------------

'Display sheet format

'-------------------------------------------------------------------------------

Dim textFormat As DrawingText

Set textFormat = DrwTexts.GetItem(\ textFormat.Text = displayFormat If (Len(displayFormat) > 4 ) Then textFormat.SetFontSize 0, 0, 2.5 Else

textFormat.SetFontSize 0, 0, 4. End If

'-------------------------------------------------------------------------------

'Display sheet numbering

'-------------------------------------------------------------------------------

Dim nbSheet As Integer Dim curSheet As Integer nbSheet = 0 curSheet = 0

If (not DrwSheet.IsDetail) Then For i = 1 To DrwSheets.Count

If (not DrwSheets.Item(i).IsDetail) Then nbSheet = nbSheet + 1 End If Next

For i = 1 To DrwSheets.Count

If (not DrwSheets.Item(i).IsDetail) Then On Error Resume Next curSheet = curSheet + 1

DrwSheets.Item(i).Views.Item(2).Texts.GetItem(\Text_Sheet_1\ End If Next End If

On Error Goto 0 End Sub