用CATScript 做的CATIA标题栏和工程图框（转贴）

MVH

使用方法：drafting--〉edit--〉background--〉tools--〉macro--〉macros中select本文件，run即可。

环境变量设置（很实用）

CATLM_ODTS=1 - Disable license error messages at startup
L_WILSON_LAN=1 - Access to Wilson's spline curves
CGM_ROLLINGOFFSET=1 - Access to the Rolling Offset option in GSD
TAILLE_MEMOIRE_CHOISIE=1 - Optimize IGES export memory
CATNoStartDocument=no - Disable product at startup
CNEXTBACKGROUND = no - Disable sky background at startup
CNEXTSPLASHSCREEN = no - Disable display of planet at startup
SHOW_CST_CHILDREN = 1 - Display stresses in the parents specification tree in sketcher
CNEXTOUTPUT = console - Display Catia's logs in command windows
MM_NO_REPLACE = 1 - Associativty about replacement of components cloned with different

MVH

标题栏.CATScript

1. 'COPYRIGHT DASSAULT SYSTEMES 2001
   
2. 
   
3. ' ****************************************************************************
   
4. ' Purpose:       To draw a Frame and TitleBlock
   
5. ' Assumptions:   A Drafting document should be active
   
6. ' Author:        庞军杰，王晓军
   
7. ' Languages:     VBScript
   
8. ' Version:       V5R7
   
9. ' ****************************************************************************
   
10. 
    
11. Public DrwDocument   As DrawingDocument
    
12. Public DrwSheets     As DrawingSheets
    
13. Public DrwSheet      As DrawingSheet
    
14. Public DrwView       As DrawingView
    
15. Public DrwTexts      As DrawingTexts
    
16. Public Text          As DrawingText
    
17. Public Fact          As Factory2D
    
18. Public Point         As Point2D
    
19. Public Line          As Line2D
    
20. Public Cicle         As Circle2D
    
21. Public Selection     As Selection
    
22. Public GeomElems     As GeometricElements
    
23. Public Height        As Double            'Sheet height
    
24. Public Width         As Double            'Sheet width
    
25. Public Offset        As Double            'Distance between the sheet edges and the frame borders
    
26. Public OH            As Double            'Horizontal origin for drawing the titleblock
    
27. Public OV            As Double            'Vertical   origin for drawing the titleblock
    
28. Public Col(16)        As Double            'Columns coordinates
    
29. Public Row(6)        As Double            'Rows    coordinates
    
30. Public colRev(4)     As double            'Columns coordinates of revision block
    
31. Public TranslationX  As Double            'Horizontal translation to operate when changing standard
    
32. Public TranslationY  As Double            'Vertical   translation to operate when changing standard
    
33. Public displayFormat As String            'Sheet format according to standard
    
34. Public sheetFormat   As catPaperSize      'Sheet format as integer value
    
35. 
    
36. 'new variable
    
37. Public RowWidth         As Double             'Sheet width
    
38. Public  ObjAmount  As Double
    
39. Public Coll(8)           As Double            'Collumns coordinates
    
40. Public Rowl(53)          As Double            'Rowls    coordinates  ObjAmount=i+3
    
41. 'end  
    
42. 
    
43. 
    
44. Const mm           = 1
    
45. Const Inch         = 254
    
46. Const RulerLength  = 200
    
47. Const MacroID      = "Drawing_Titleblock_JUNJIE"
    
48. Const RevRowHeight = 10
    
49. 
    
50. 
    
51. 
    
52. Sub CATMain()
    
53.   CATInit
    
54.   On Error Resume Next
    
55.     name = DrwTexts.GetItem("Reference_" + MacroID).Name
    
56.   If Err.Number <> 0 Then
    
57.     Err.Clear
    
58.     name = "none"
    
59.   End If
    
60.   On Error Goto 0
    
61.   If (name = "none") Then
    
62.     CATDrw_Creation
    
63.    End If
    
64. End Sub
    
65. 
    
66. Sub CATDrw_Creation()
    
67.   '-------------------------------------------------------------------------------
    
68.   'How to create the FTB
    
69.   '-------------------------------------------------------------------------------
    
70.   CATInit       'To init public variables & work in the background view
    
71.   If CATCheckRef(1) Then Exit Sub 'To check whether a FTB exists already in the sheet
    
72.   CATStandard   'To compute standard sizes
    
73.   CATReference  'To place on the drawing a reference point
    
74.   CATFrame      'To draw the frame
    
75.   CATTitleBlock 'To draw the TitleBlock and fill in it
    
76. 
    
77. 
    
78. '******************************  
    
79. 'If ObjAmount>0  Then
    
80. '   CATTitleObjBlock  'To draw the TitleBlock and fill in it
    
81. '   Else  Exit Sub
    
82. '   End If
    
83. '******************************
    
84. 
    
85. 
    
86. End Sub
    
87. 
    
88. Sub CATInit()
    
89.   '-------------------------------------------------------------------------------
    
90.   'How to init the dialog and create main objects
    
91.   '-------------------------------------------------------------------------------
    
92.   Set DrwDocument = CATIA.ActiveDocument
    
93.   Set DrwSheets   = DrwDocument.Sheets
    
94.   Set Selection   = DrwDocument.Selection
    
95.   Set DrwSheet    = DrwSheets.ActiveSheet
    
96.   Set DrwView     = DrwSheet.Views.ActiveView
    
97.   Set DrwTexts    = DrwView.Texts
    
98.   Set Fact        = DrwView.Factory2D
    
99.   Set GeomElems   = DrwView.GeometricElements
    
100. 
     
101. End Sub
     
102. 
     
103. 
     
104. 
     
105. Sub CATStandard()
     
106.   '-------------------------------------------------------------------------------
     
107.   'How to compute standard values
     
108.   '-------------------------------------------------------------------------------
     
109.   Height      = DrwSheet.GetPaperHeight
     
110.   Width       = DrwSheet.GetPaperWidth
     
111.   sheetFormat = DrwSheet.PaperSize
     
112. 
     
113.   Offset = 10.*mm 'Offset default value = 10.
     
114.   If (sheetFormat = CatPaperA0 Or sheetFormat = CatPaperA1 Or sheetFormat = CatPaperUser And _
     
115.       (DrwSheet.GetPaperWidth > 594.*mm Or DrwSheet.GetPaperHeight > 594.*mm)) Then
     
116.     Offset = 20.*mm
     
117.   End If
     
118. 
     
119.   OH = Width - Offset
     
120.   OV = Offset
     
121. 
     
122.   documentStd = DrwDocument.Standard
     
123.   If (documentStd = catISO) Then
     
124.     If sheetFormat = 13 Then
     
125.       displayFormat = "USER"
     
126.     Else
     
127.       displayFormat = "A" + CStr(sheetFormat - 2)
     
128.     End IF
     
129.   Else
     
130.     Select Case sheetFormat
     
131.       Case 0
     
132.         displayFormat = "Letter"
     
133.       Case 1
     
134.         displayFormat = "Legal"
     
135.       Case 7
     
136.         displayFormat = "A"
     
137.       Case 8
     
138.         displayFormat = "B"
     
139.       Case 9
     
140.         displayFormat = "C"
     
141.       Case 10
     
142.         displayFormat = "D"
     
143.       Case 11
     
144.         displayFormat = "E"
     
145.       Case 12
     
146.         displayFormat = "F"
     
147.       Case 13
     
148.         displayFormat = "J"
     
149.     End Select
     
150.   End If
     
151. 
     
152. End Sub
     
153. 
     
154. Sub CATReference()
     
155.   '-------------------------------------------------------------------------------
     
156.   'How to create a reference text
     
157.   '-------------------------------------------------------------------------------
     
158.   Set Text = DrwTexts.Add("", Width - Offset, Offset)
     
159.   Text.Name = "Reference_" + MacroID
     
160. End Sub
     
161. 
     
162. Function CATCheckRef(Mode As Integer) As Integer
     
163.   '-------------------------------------------------------------------------------
     
164.   'How to check that the called macro is the right one
     
165.   '-------------------------------------------------------------------------------
     
166.   nbTexts = DrwTexts.Count
     
167.   i = 0
     
168.   notFound = 0
     
169.   While (notFound = 0 And i<nbTexts)
     
170.     i = i + 1   
     
171.     Set Text = DrwTexts.Item(i)
     
172.     WholeName = Text.Name
     
173.     leftText = Left(WholeName, 10)
     
174.     If (leftText = "Reference_") Then
     
175.     notFound = 1
     
176.     refText = "Reference_" + MacroID
     
177.     If (Mode = 1) Then
     
178.       MsgBox "Frame and Titleblock already created!"
     
179.       CATCheckRef = 1
     
180.       Exit Function
     
181.     ElseIf (Text.Name <> refText) Then
     
182.       MsgBox "Frame and Titleblock created using another style:" + Chr(10) + "        " + MacroID
     
183.       CATCheckRef = 1
     
184.       Exit Function
     
185.     End If
     
186.     End If
     
187.   Wend
     
188.   CATCheckRef = 0
     
189. 
     
190. End Function
     
191. 
     
192. 
     
193. Sub CATFrame()
     
194.   '-------------------------------------------------------------------------------
     
195.   'How to create the Frame
     
196.   '-------------------------------------------------------------------------------
     
197.   Dim Cst_1   As Double  'Length (in cm) between 2 horinzontal marks
     
198.   Dim Cst_2   As Double  'Length (in cm) between 2 vertical marks
     
199.   Dim Nb_CM_H As Integer 'Number/2 of horizontal centring marks
     
200.   Dim Nb_CM_V As Integer 'Number/2 of vertical centring marks
     
201.   Dim Ruler   As Integer 'Ruler length (in cm)
     
202. 
     
203.   CATFrameStandard     Nb_CM_H, Nb_CM_V, Ruler, Cst_1, Cst_2
     
204.   CATFrameBorder
     
205. End Sub
     
206. 
     
207. Sub CATFrameStandard(Nb_CM_H As Integer, Nb_CM_V As Integer, Ruler As Integer, Cst_1 As Double, Cst_2 As Double)
     
208.   '-------------------------------------------------------------------------------
     
209.   'How to compute standard values
     
210.   '-------------------------------------------------------------------------------
     
211. 
     
212.   Cst_1 = 74.2*mm '297, 594, 1189 are multiples of 74.2
     
213.   Cst_2 = 52.5*mm '210, 420, 841  are multiples of 52.2
     
214.   If DrwSheet.Orientation = CatPaperPortrait And _
     
215.      (sheetFormat = CatPaperA0 Or _
     
216.       sheetFormat = CatPaperA2 Or _
     
217.       sheetFormat = CatPaperA4) Or _
     
218.       DrwSheet.Orientation = CatPaperLandscape And _
     
219.      (sheetFormat = CatPaperA1 Or _
     
220.       sheetFormat = CatPaperA3) Then
     
221.     Cst_1 = 52.5*mm
     
222.     Cst_2 = 74.2*mm
     
223.   End If
     
224. 
     
225.   Nb_CM_H = CInt(.5 * Width / Cst_1)
     
226.   Nb_CM_V = CInt(.5 * Height / Cst_2)
     
227. 
     
228.   Ruler   = CInt((Nb_CM_H - 1) * Cst_1 / 50) * 100 'here is computed the maximum ruler length
     
229.   If RulerLength < Ruler Then
     
230.     Ruler = RulerLength
     
231.   End If
     
232. End Sub
     
233. 
     
234. Sub CATFrameBorder()
     
235.   '-------------------------------------------------------------------------------
     
236.   'How to draw the frame border
     
237.   '-------------------------------------------------------------------------------
     
238.   On Error Resume Next
     
239.     Set Line = Fact.CreateLine(OV, OV             , OH, OV             )
     
240.     Line.Name = "Frame_Border_Bottom"
     
241.     Set Line = Fact.CreateLine(OH, OV             , OH, Height - Offset)
     
242.     Line.Name = "Frame_Border_Left"
     
243.     Set Line = Fact.CreateLine(OH, Height - Offset, OV, Height - Offset)
     
244.     Line.Name = "Frame_Border_Top"
     
245.     Set Line = Fact.CreateLine(OV, Height - Offset, OV, OV             )
     
246.     Line.Name = "Frame_Border_Right"
     
247.   If Err.Number <> 0 Then
     
248.     Err.Clear
     
249.   End If
     
250.   On Error Goto 0
     
251. End Sub
     
252. 
     
253. Sub CATTitleBlock()
     
254.   '-------------------------------------------------------------------------------
     
255.   'How to create the TitleBlock
     
256.   '-------------------------------------------------------------------------------
     
257.   CATTitleBlockFrame    'To draw the geometry
     
258.   CATTitleBlockText     'To fill in the title block
     
259. If ObjAmount>0  Then
     
260.    CATTitleObjBlock  'To draw the TitleObjBlock and fill in it
     
261.    Else  Exit Sub
     
262.    End If
     
263. End Sub
     
264. 
     
265. Sub CATTitleObjBlock()
     
266.   '-------------------------------------------------------------------------------
     
267.   'How to create the TitleObjBlock
     
268.   '-------------------------------------------------------------------------------
     
269.   CATTitleObjBlockFrame    'To draw the geometry
     
270.   CATTitleObjBlockText     'To fill in the title Objblock
     
271. End Sub

复制代码

MVH

1. Sub CATTitleBlockFrame()
   
2.   '-------------------------------------------------------------------------------
   
3.   'How to draw the title block geometry
   
4.   '-------------------------------------------------------------------------------
   
5. ObjAmount=   InputBox("1.输入“0”或单击“取消”                          →零件图标题栏；                                                   2.输入零件个数“≥1”                              →带有明细栏的装配图标题栏" )
   
6.   If( ObjAmount<2  and ObjAmount>101 )then
   
7.    ObjAmount=   InputBox("请输入零件的数目(不大于101不小于2。)：" )
   
8.   End If
   
9.   RowWidth        = + 7*mm   'Define rows  Rowwidth.
   
10.   const Rows      =   7      'Define how many rows .  
    
11.   Col(1)  = -180*mm
    
12.   Col(2)  = -170*mm
    
13.   Col(3)  = -168*mm
    
14.   Col(4)  = -160*mm
    
15.   Col(5)  = -156*mm
    
16.   Col(6)  = -146*mm
    
17.   Col(7)  = -140*mm
    
18.   Col(8)  = -128*mm
    
19.   Col(9)  = -116*mm
    
20.   Col(10) = -100*mm
    
21.   Col(11) = -93.5*mm
    
22.   Col(12) = -  87*mm
    
23.   Col(13) = -80.5*mm
    
24.   Col(14) = -  74*mm
    
25.   Col(15) = -  62*mm
    
26.   Col(16) = -  50*mm
    
27.   Row(1) = +  9*mm
    
28.   Row(2) = + 18*mm
    
29.   Row(3) = + 28*mm
    
30.   Row(4) = + 42*mm
    
31.   Row(5) = + 56*mm
    
32.   Row(6) = + 38*mm    'revised
    
33.   
    
34. 
    
35.   On Error Resume Next
    
36.      'Rows
    
37.     Set Line      = Fact.CreateLine(OH + Col(1), OV         , OH         , OV         )
    
38.     Line.Name     = "TitleBlock_Line_Bottom"
    
39.     Set Line      = Fact.CreateLine(OH + Col(1), OV + Row(5), OH         , OV + Row(5))
    
40.     Line.Name     = "TitleBlock_Line_Top"
    
41.     Set Line      = Fact.CreateLine(OH +Col(10),OV + Row(1) , OH +Col(16) , OV + Row(1))
    
42.     Line.Name     = "TitleBlock_Line_Row_1"
    
43.     Set Line      = Fact.CreateLine(OH +Col(10), OV + Row(2), OH         , OV + Row(2))
    
44.     Line.Name     = "TitleBlock_Line_Row_2"
    
45.     Set Line      = Fact.CreateLine(OH +Col(10), OV + Row(3), OH+Col(16) , OV + Row(3))
    
46.     Line.Name     = "TitleBlock_Line_Row_3"
    
47.     Set Line      = Fact.CreateLine(OH + Col(16), OV + Row(6), OH        , OV + Row(6))
    
48.     Line.Name     = "TitleBlock_Line_Row_4"
    
49.     For i=1 to  Rows
    
50.     Set Line      = Fact.CreateLine(OH + Col(1), OV + (7*i), OH+ Col(10)  , OV + (7*i))
    
51.     Line.Name     = "TitleBlock_Line_LeftRow_"&i
    
52.     Next
    
53.      'Cols
    
54.     Set Line      = Fact.CreateLine(OH + Col(1), OV         , OH + Col(1), OV + Row(5))
    
55.     Line.Name     = "TitleBlock_Line_Left"
    
56.     Set Line      = Fact.CreateLine(OH         , OV         , OH         , OV + Row(5))
    
57.     Line.Name     = "TitleBlock_Line_Right"
    
58.    
    
59.     Set Line      = Fact.CreateLine(OH + Col(2), OV+ Row(3) , OH + Col(2), OV + Row(5))
    
60.     Line.Name     = "TitleBlock_Line_Column_1"
    
61.     Set Line      = Fact.CreateLine(OH + Col(3), OV         , OH + Col(3), OV + Row(3))
    
62.     Line.Name     = "TitleBlock_Line_Column_2"
    
63.     Set Line      = Fact.CreateLine(OH + Col(4), OV+ Row(3) , OH + Col(4), OV + Row(5))
    
64.     Line.Name     = "TitleBlock_Line_Column_3"
    
65.     Set Line      = Fact.CreateLine(OH + Col(5), OV         , OH + Col(5), OV + Row(3))
    
66.     Line.Name     = "TitleBlock_Line_Column_4"
    
67.     Set Line      = Fact.CreateLine(OH + Col(6), OV+ Row(3) , OH + Col(6), OV + Row(5))
    
68.     Line.Name     = "TitleBlock_Line_Column_5"
    
69.     Set Line      = Fact.CreateLine(OH + Col(7), OV         , OH + Col(7), OV + Row(3))
    
70.     Line.Name     = "TitleBlock_Line_Column_6"
    
71.     Set Line      = Fact.CreateLine(OH + Col(8), OV         , OH + Col(8), OV + Row(5))
    
72.     Line.Name     = "TitleBlock_Line_Column_7"
    
73.     Set Line      = Fact.CreateLine(OH + Col(9), OV         , OH + Col(9), OV + Row(5))
    
74.     Line.Name     = "TitleBlock_Line_Column_8"
    
75.     Set Line      = Fact.CreateLine(OH +Col(10), OV         , OH +Col(10), OV + Row(5))
    
76.     Line.Name     = "TitleBlock_Line_Column_9"
    
77.     Set Line      = Fact.CreateLine(OH + Col(11), OV+ Row(1), OH + Col(11), OV + Row(2))
    
78.     Line.Name     = "TitleBlock_Line_Column_10"
    
79.     Set Line      = Fact.CreateLine(OH + Col(12), OV+ Row(1), OH + Col(12), OV + Row(2))
    
80.     Line.Name     = "TitleBlock_Line_Column_11"
    
81.     Set Line      = Fact.CreateLine(OH + Col(13), OV+ Row(1), OH + Col(13), OV + Row(2))
    
82.     Line.Name     = "TitleBlock_Line_Column_12"
    
83.     Set Line      = Fact.CreateLine(OH + Col(14), OV+ Row(1), OH + Col(14), OV + Row(3))
    
84.     Line.Name     = "TitleBlock_Line_Column_13"
    
85.     Set Line      = Fact.CreateLine(OH + Col(15), OV+ Row(1), OH + Col(15), OV + Row(3))
    
86.     Line.Name     = "TitleBlock_Line_Column_14"
    
87.     Set Line      = Fact.CreateLine(OH + Col(16), OV        , OH + Col(16), OV + Row(5))
    
88.     Line.Name     = "TitleBlock_Line_Column_15"
    
89.    
    
90.   If Err.Number <> 0 Then
    
91.     Err.Clear
    
92.   End If
    
93.   On Error Goto 0
    
94. End Sub
    
95. Sub CATTitleBlockText()
    
96.   '-------------------------------------------------------------------------------
    
97.   'How to fill in the title block
    
98.   '-------------------------------------------------------------------------------
    
99.   CATLinks
    
100.   'The Left-down subBlock.
     
101.   Text_01  = "指导教师"
     
102.   Text_02  = "审核"
     
103.   Text_03  = "设计"
     
104.   Text_04  = "张国建"
     
105.   Text_05  = "03.09.25"
     
106.   Text_06  = "标准化"
     
107.   Text_07  = "(签名)"
     
108.   Text_08  = "(年月日)"
     
109.   Text_09  = "批准"
     
110.   Text_001  = " "
     
111. 
     
112.   
     
113.   'The Left-up subBlock.
     
114.   Text_10  = "标记"
     
115.   Text_11  = "处数"
     
116.   Text_12  = "分区"
     
117.   Text_13  = "更改文件号"
     
118.   Text_14  = "(签名)"
     
119.   Text_15  = "(年月日)"
     
120.   
     
121.   'The Middle subblock
     
122.   Text_16 = "   共  张      第  张   "
     
123.   Text_17 = "比例"
     
124.   Text_18 = "重量"
     
125.   Text_19= " 阶 段 标 记"
     
126.   Text_20 = "(材料标记)"
     
127.   'The right subblock
     
128.   Text_21 = "上海方宇工业设计"
     
129.   Text_22 ="(图样名称)"
     
130.   Text_23 = "课程设计专用图纸"
     
131.     'The Left-down subBlockText.
     
132.   Set Text     = DrwTexts.Add(Text_01 , OH + Col(1)            , OV+1                     )
     
133.   CATFormatTBText "TitleBlock_Text_Techer"      ,catBottomLeft  ,   4
     
134.   Set Text     = DrwTexts.Add("   ", OH + Col(3)            , OV+1                     )
     
135.   CATFormatTBText "TitleBlock_Text_Tec_1"       ,catBottomLeft  ,   5
     
136.   Set Text     = DrwTexts.Add("   ", OH + Col(5) + 3.       , OV+1                     )
     
137.   CATFormatTBText "TitleBlock_Text_Tec_2"       ,catBottomLeft  ,   5
     
138.   Set Text     = DrwTexts.Add(Text_02 ,  OH + Col(1)+2             , OV + Rowwidth         )
     
139.   CATFormatTBText "TitleBlock_Text_checker"      ,catBottomLeft  ,   5
     
140.   Set Text     = DrwTexts.Add("   ", OH + Col(3) + 1.       , OV + Rowwidth          )
     
141.   CATFormatTBText "TitleBlock_Text_chec_1"       ,catBottomLeft  ,   5
     
142.   Set Text     = DrwTexts.Add("   ", OH + Col(5) + 1.       , OV + Rowwidth          )
     
143.   CATFormatTBText "TitleBlock_Text_chec_2"       ,catBottomLeft  ,   5
     
144.   Set Text     = DrwTexts.Add(Text_03 , OH + Col(1) + 2.       , OV + (Rowwidth*3)      )
     
145.   CATFormatTBText "TitleBlock_Text_design"       ,catBottomLeft  ,   5
     
146.   Set Text     = DrwTexts.Add("    " , OH + Col(1) + 1.       , OV + (Rowwidth*2)      )
     
147.   CATFormatTBText "TitleBlock_Text_des_1 "       ,catBottomLeft  ,   5
     
148.   Set Text     = DrwTexts.Add(Text_04 , OH + Col(3) + 1.       , OV+ (Rowwidth*3)       )
     
149.   CATFormatTBText "TitleBlock_Text_Sign "       ,catBottomLeft  ,   5
     
150.   Set Text     = DrwTexts.Add("   ", OH + Col(3) + 1.       , OV+ (Rowwidth*2)       )
     
151.   CATFormatTBText "TitleBlock_Text_Sign_1 "     ,catBottomLeft  ,   5
     
152.   Set Text     = DrwTexts.Add(Text_05 , OH + Col(5) + 1.       , OV+ (Rowwidth*3)       )
     
153.   CATFormatTBText "TitleBlock_Text_Date "       ,catBottomLeft  ,   4
     
154.   Set Text     = DrwTexts.Add("   ", OH + Col(5) + 1.       , OV+ (Rowwidth*2)       )
     
155.   CATFormatTBText "TitleBlock_Text_Date_1 "     ,catBottomLeft  ,   5
     
156.   Set Text     = DrwTexts.Add(Text_06 , OH + Col(7) + 1.       , OV + (Rowwidth*3)      )
     
157.   CATFormatTBText "TitleBlock_Text_Standard"       ,catBottomLeft  ,   5
     
158.   Set Text     = DrwTexts.Add("   ", OH + Col(7) + 1.       , OV + (Rowwidth*2)      )
     
159.   CATFormatTBText "TitleBlock_Text_Std_1 "       ,catBottomLeft  ,   5
     
160.   Set Text     = DrwTexts.Add("   ", OH + Col(7) + 1.       , OV+ (Rowwidth*1)       )
     
161.   CATFormatTBText "TitleBlock_Text_Std_1 "       ,catBottomLeft  ,   5
     
162.   Set Text     = DrwTexts.Add(Text_07 , OH + Col(8) + 1.       , OV+ (Rowwidth*3)       )
     
163.   CATFormatTBText "TitleBlock_Text_Sign2 "       ,catBottomLeft  ,   5
     
164.   Set Text     = DrwTexts.Add("   ", OH + Col(8) + 1.       , OV+ (Rowwidth*2)      )
     
165.   CATFormatTBText "TitleBlock_Text_Sign2_1 "     ,catBottomLeft  ,   5
     
166.   Set Text     = DrwTexts.Add("   ", OH + Col(8) + 1.       , OV+ (Rowwidth*1)      )
     
167.   CATFormatTBText "TitleBlock_Text_Sign2_2 "     ,catBottomLeft  ,   5
     
168.   Set Text     = DrwTexts.Add(Text_08 , OH + Col(9) + 1.       , OV+ (Rowwidth*3)      )
     
169.   CATFormatTBText "TitleBlock_Text_Date2 "       ,catBottomLeft  ,   5
     
170.   Set Text     = DrwTexts.Add("   ", OH + Col(9) + 1.       , OV+ (Rowwidth*2)      )
     
171.   CATFormatTBText "TitleBlock_Text_Date2_1 "     ,catBottomLeft  ,   5
     
172.   Set Text     = DrwTexts.Add("   ", OH + Col(9) + 1.       , OV+ (Rowwidth*1)      )
     
173.   CATFormatTBText "TitleBlock_Text_Date2_2 "     ,catBottomLeft  ,   5
     
174.   Set Text     = DrwTexts.Add(Text_09 , OH + Col(7) + 3.       , OV                     )
     
175.   CATFormatTBText "TitleBlock_Text_Allow"        ,catBottomLeft  ,   5
     
176.   Set Text     = DrwTexts.Add("   ", OH + Col(8) + 1.       , OV                     )
     
177.   CATFormatTBText "TitleBlock_Text_Allow_1"       ,catBottomLeft  ,   5
     
178.   Set Text     = DrwTexts.Add("   ", OH + Col(9) + 1.       , OV                     )
     
179.   CATFormatTBText "TitleBlock_Text_Allow_2"       ,catBottomLeft  ,   5
     
180.   'The Left-up subBlockText.
     
181.   Set Text     = DrwTexts.Add(Text_10 , OH + Col(1) + 1.       , OV+ (Rowwidth*4)       )
     
182.   CATFormatTBText "TitleBlock_Text_Mark"         ,catBottomLeft  ,   5
     
183.   Set Text     = DrwTexts.Add("   ", OH + Col(1) + 1.       , OV+ (Rowwidth*5)       )
     
184.   CATFormatTBText "TitleBlock_Text_Mark_1"       ,catBottomLeft  ,   5
     
185.   Set Text     = DrwTexts.Add("   ", OH + Col(1) + 1.       , OV+ (Rowwidth*6)       )
     
186.   CATFormatTBText "TitleBlock_Text_Mark_2"       ,catBottomLeft  ,   5
     
187.   Set Text     = DrwTexts.Add("   ", OH + Col(1) + 1.       , OV+ (Rowwidth*7)       )
     
188.   CATFormatTBText "TitleBlock_Text_Mark_3"       ,catBottomLeft  ,   5
     
189.   Set Text     = DrwTexts.Add(Text_11 , OH + Col(2) + 1.       , OV+ (Rowwidth*4)       )
     
190.   CATFormatTBText "TitleBlock_Text_Amout"         ,catBottomLeft  ,   5
     
191.   Set Text     = DrwTexts.Add("   ", OH + Col(2) + 1.       , OV+ (Rowwidth*5)       )
     
192.   CATFormatTBText "TitleBlock_Text_Amout_1"       ,catBottomLeft  ,   5
     
193.   Set Text     = DrwTexts.Add("   ", OH + Col(2) + 1.       , OV+ (Rowwidth*6)       )
     
194.   CATFormatTBText "TitleBlock_Text_Amout_2"       ,catBottomLeft  ,   5
     
195.   Set Text     = DrwTexts.Add("   ", OH + Col(2) + 1.       , OV+ (Rowwidth*7)       )
     
196.   CATFormatTBText "TitleBlock_Text_Amout_3"       ,catBottomLeft  ,   5
     
197.   Set Text     = DrwTexts.Add(Text_12 , OH + Col(4) +3.       , OV+ (Rowwidth*4)       )
     
198.   CATFormatTBText "TitleBlock_Text_District"      ,catBottomLeft  ,   5
     
199.   Set Text     = DrwTexts.Add("   ", OH + Col(4) + 1.       , OV+ (Rowwidth*5)       )
     
200.   CATFormatTBText "TitleBlock_Text_Dis_1"         ,catBottomLeft  ,   5
     
201.   Set Text     = DrwTexts.Add("   ", OH + Col(4) + 1.       , OV+ (Rowwidth*6)       )
     
202.   CATFormatTBText "TitleBlock_Text_Dis_2"         ,catBottomLeft  ,   5
     
203.   Set Text     = DrwTexts.Add("   ", OH + Col(4) + 1.       , OV+ (Rowwidth*7)       )
     
204.   CATFormatTBText "TitleBlock_Text_Dis_3"         ,catBottomLeft  ,   5
     
205.   Set Text     = DrwTexts.Add(Text_13 , OH + Col(6) + 1.       , OV+ (Rowwidth*4)       )
     
206.   CATFormatTBText "TitleBlock_Text_ReviseList"    ,catBottomLeft  ,  5
     
207.   Set Text     = DrwTexts.Add("   ", OH + Col(6) + 1.       , OV+ (Rowwidth*5)       )
     
208.   CATFormatTBText "TitleBlock_Text_RevL_1"        ,catBottomLeft  ,   5
     
209.   Set Text     = DrwTexts.Add("   ", OH + Col(6) + 1.       , OV+ (Rowwidth*6)       )
     
210.   CATFormatTBText "TitleBlock_Text_RevL_2"        ,catBottomLeft  ,   5
     
211.   Set Text     = DrwTexts.Add("   ", OH + Col(6) + 1.       , OV+ (Rowwidth*7)       )
     
212.   CATFormatTBText "TitleBlock_Text_RevL_3"        ,catBottomLeft  ,   5
     
213.   Set Text     = DrwTexts.Add(Text_14 , OH + Col(8) + 1.       , OV+ (Rowwidth*4)       )
     
214.   CATFormatTBText "TitleBlock_Text_SignL"         ,catBottomLeft  ,   5
     
215.   Set Text     = DrwTexts.Add("   ", OH + Col(8) + 1.       , OV+ (Rowwidth*5)       )
     
216.   CATFormatTBText "TitleBlock_Text_SignL_1"       ,catBottomLeft  ,   5
     
217.   Set Text     = DrwTexts.Add("   ", OH + Col(8) + 1.       , OV+ (Rowwidth*6)       )
     
218.   CATFormatTBText "TitleBlock_Text_SignL_2"       ,catBottomLeft  ,   5
     
219.   Set Text     = DrwTexts.Add("   ", OH + Col(8) + 1.       , OV+ (Rowwidth*7)       )
     
220.   CATFormatTBText "TitleBlock_Text_SignL_3"       ,catBottomLeft  ,   5
     
221.   Set Text     = DrwTexts.Add(Text_15 , OH + Col(9) + 1.       , OV+ (Rowwidth*4)       )
     
222.   CATFormatTBText "TitleBlock_Text_DateL"         ,catBottomLeft  ,   5
     
223.   Set Text     = DrwTexts.Add("   ", OH + Col(9) + 1.       , OV+ (Rowwidth*5)       )
     
224.   CATFormatTBText "TitleBlock_Text_DateL_1"       ,catBottomLeft  ,   5
     
225.   Set Text     = DrwTexts.Add("   ", OH + Col(9) + 1.       , OV+ (Rowwidth*6)       )
     
226.   CATFormatTBText "TitleBlock_Text_DateL_2"       ,catBottomLeft  ,   5
     
227.   Set Text     = DrwTexts.Add("   ", OH + Col(9) + 1.       , OV+ (Rowwidth*7)       )
     
228.   CATFormatTBText "TitleBlock_Text_DateL_3"       ,catBottomLeft  ,   5
     
229.   'The Middle subblockText.
     
230.   Set Text     = DrwTexts.Add(Text_16  , OH + Col(10) + 1.        , OV                   )
     
231.   CATFormatTBText "TitleBlock_Text_Acount  "      ,catBottomLeft  ,   5
     
232.   Set Text     = DrwTexts.Add("   " , OH + Col(12) -5.       , OV                     )
     
233.   CATFormatTBText "TitleBlock_Text_Acount_1"      ,catBottomLeft  ,   5
     
234.   Set Text     = DrwTexts.Add("   " , OH + Col(15) + 1.       , OV                     )
     
235.   CATFormatTBText "TitleBlock_Text_Acount_2"      ,catBottomLeft  ,   5
     
236.   Set Text     = DrwTexts.Add(Text_17  ,  OH + Col(15) + 2.       , OV +(Row(2)+3)         )
     
237.   CATFormatTBText "TitleBlock_Text_Scale"         ,catBottomLeft  ,   5
     
238.   Set Text     = DrwTexts.Add("   " ,  OH + Col(15)         , OV+(Row(1)+3)           )
     
239.   CATFormatTBText "TitleBlock_Text_Scale_1"       ,catBottomLeft  ,   5
     
240.   Set Text     = DrwTexts.Add(Text_18   , OH + Col(14) + 2.      , OV +(Row(2)+3)          )
     
241.   CATFormatTBText "TitleBlock_Text_Weight"         ,catBottomLeft  ,   5
     
242.   Set Text     = DrwTexts.Add("   " , OH + Col(14) + 2.      , OV+(Row(1)+3)           )
     
243.   CATFormatTBText "TitleBlock_Text_Weight_1"       ,catBottomLeft  ,   5
     
244.   Set Text     = DrwTexts.Add(Text_19   ,  OH + Col(10) + 1.     , OV +(Row(2)+3)          )
     
245.   CATFormatTBText "TitleBlock_Text_PhaseSign"         ,catBottomLeft  ,   5
     
246.   Set Text     = DrwTexts.Add("   " , OH + Col(10) + 1.      , OV+(Row(1)+2)           )
     
247.   CATFormatTBText "TitleBlock_Text_Phs_1"             ,catBottomLeft  ,   5
     
248.   Set Text     = DrwTexts.Add("   "  , OH + Col(11) + 1.      , OV+(Row(1)+2)           )
     
249.   CATFormatTBText "TitleBlock_Text_Phs_1"             ,catBottomLeft  ,   5
     
250.   Set Text     = DrwTexts.Add("   "  , OH + Col(12) + 1.      , OV+(Row(1)+2)           )
     
251.   CATFormatTBText "TitleBlock_Text_Phs_1"             ,catBottomLeft  ,   5
     
252.   Set Text     = DrwTexts.Add("   "  , OH + Col(13) + 1.      , OV+(Row(1)+2)           )
     
253.   CATFormatTBText "TitleBlock_Text_Phs_1"             ,catBottomLeft  ,   5
     
254.   Set Text     = DrwTexts.Add(Text_20   , OH + Col(10) + 25.     , OV +(Row(3)+5)          )
     
255.   CATFormatTBText "TitleBlock_Text_MaterialSign"      ,catBottomCenter,   10
     
256.    'The right subblockText.
     
257.   Set Text     = DrwTexts.Add(Text_21  , OH + Col(16) +25.       , OV +Row(4)        )
     
258.   CATFormatTBText "TitleBlock_Text_School"            ,catBottomCenter,      7
     
259.   Set Text     = DrwTexts.Add(Text_22  , OH + Col(16) +25.       , OV +(Row(2)+5)         )
     
260.   CATFormatTBText "TitleBlock_Text_DrawingName"       ,catBottomCenter,      7
     
261.   Set Text     = DrwTexts.Add(Text_23  , OH + Col(16) +25.       , OV +5                 )
     
262.   CATFormatTBText "TitleBlock_Text_Use  "             ,catBottomCenter,      7
     
263.   
     
264. End Sub

复制代码

MVH

1. Sub CATTitleObjBlockFrame()
   
2.    '-------------------------------------------------------------------------------
   
3.   'How to draw the title Objblock geometry
   
4.   '-------------------------------------------------------------------------------
   
5.   Coll(1) = -180*mm
   
6.   Coll(2) = -172*mm
   
7.   Coll(3) = -134*mm
   
8.   Coll(4) = -90*mm
   
9.   Coll(5) = - 82*mm
   
10.   Coll(6) = - 44*mm
    
11.   Coll(7) = - 34*mm
    
12.   Coll(8) = - 24*mm
    
13.    
    
14.   Rowl(1) = + 56*mm
    
15.   Rowl(2) = + 63*mm
    
16.   Rowl(3) = + 70*mm
    
17. 
    
18.   For   i=1 to  ObjAmount
    
19.    Rowl(i+3)= + (70+7*i)*mm
    
20.   Next
    
21.    
    
22. 
    
23.   'MsgBox "Frame and Titleblock already created!"
    
24.   On Error Resume Next
    
25.     'creat TitleObjBlock RowlLines .
    
26.     Set Line      = Fact.CreateLine(OH + Coll(6), OV +Rowl(2)        , OH+ Coll(8)         , OV + Rowl(2)  )
    
27.     Line.Name     = "TitleObjBlock_Shotest_Bottom"
    
28.     Set Line      = Fact.CreateLine(OH + Coll(1), OV +Rowl(3)        , OH                 , OV + Rowl(3)  )
    
29.     Line.Name     = "TitleObjBlock_RowlLine_Bottom"
    
30.      
    
31.    For i=1 to ObjAmount
    
32.     Set Line      = Fact.CreateLine(OH + Coll(1), OV +Rowl(i+3)      , OH                 , OV + Rowl(i+3))
    
33.     Line.Name     = "TitleObjBlock_RowlLine_No." & i
    
34.     DrawingDimLine.thickness=1
    
35. Next
    
36.      'creat TitleObjBlock CollLines .
    
37. 
    
38.     Set Line      = Fact.CreateLine(OH + Coll(8), OV +Rowl(1)        , OH+ Coll(8)         , OV + Rowl( ObjAmount+3)  )
    
39.     Line.Name     = "TitleObjBlock_Collline_No.8"
    
40.     Set Line      = Fact.CreateLine(OH + Coll(7), OV +Rowl(2)        , OH+ Coll(7)         , OV + Rowl( ObjAmount+3)  )
    
41.     Line.Name     = "TitleObjBlock_Collline_No.7"
    
42.     Set Line      = Fact.CreateLine(OH + Coll(6), OV +Rowl(1)        , OH+ Coll(6)         , OV + Rowl( ObjAmount+3)  )
    
43.     Line.Name     = "TitleObjBlock_Collline_No.6"
    
44.     Set Line      = Fact.CreateLine(OH + Coll(5), OV +Rowl(1)        , OH+ Coll(5)         , OV + Rowl( ObjAmount+3)  )
    
45.     Line.Name     = "TitleObjBlock_Collline_No.5"
    
46.     Set Line      = Fact.CreateLine(OH + Coll(4), OV +Rowl(1)        , OH+ Coll(4)         , OV + Rowl( ObjAmount+3)  )
    
47.     Line.Name     = "TitleObjBlock_Collline_No.4"
    
48.     Set Line      = Fact.CreateLine(OH + Coll(3), OV +Rowl(1)        , OH+ Coll(3)         , OV + Rowl( ObjAmount+3)  )
    
49.     Line.Name     = "TitleObjBlock_Collline_No.3"
    
50.     Set Line      = Fact.CreateLine(OH + Coll(2), OV +Rowl(1)        , OH+ Coll(2)         , OV + Rowl( ObjAmount+3)  )
    
51.     Line.Name     = "TitleObjBlock_Collline_No.2"
    
52.     Set Line      = Fact.CreateLine(OH + Coll(1), OV +Rowl(1)        , OH+ Coll(1)         , OV + Rowl( ObjAmount+3)  )
    
53.     Line.Name     = "TitleObjBlock_Collline_No.1"
    
54. 
    
55. 
    
56.    If Err.Number <> 0 Then
    
57.     Err.Clear
    
58.    End If
    
59.   On Error Goto 0
    
60. 
    
61. End Sub
    
62. 
    
63. 
    
64. 
    
65. 
    
66. 
    
67. Sub CATTitleObjBlockText()
    
68.     '-------------------------------------------------------------------------------
    
69.     'How to fill in the title Objblock.
    
70.     '----------------------------------------------------------------------------
    
71.     Text_01 = "序"
    
72.     Text_02 = "号"
    
73.     Text_03 = Chr(15) +"代       号"
    
74.     Text_04 = Chr(15) +"  名         称"
    
75.     Text_05 = "数"
    
76.     Text_06 = "量"
    
77.     Text_07 = Chr(20) +"  材       料"
    
78.     Text_08 = "单件"
    
79.     Text_09 = "总计"
    
80.     Text_10 = Chr(10) +"重量(Kg)"
    
81.     Text_11 = Chr(15) +"备     注"
    
82.     TextO_01 = "  "
    
83.     TextO_02 = "   "
    
84.     TextO_03 = "   "
    
85.     TextO_04 = "   "
    
86.     TextO_05 = "   "
    
87.     TextO_06 = "   "
    
88.     TextO_07 = "   "
    
89.     TextO_08 = "   "   
    
90.   
    
91.   Set Text     = DrwTexts.Add(Text_01, OH + Coll(1) + 4.       , OV + (Rowl(2)+3)        )
    
92.   CATFormatTBText "ObjTitleBlock_Text_xu"         ,catMiddleCenter,    5
    
93.   Set Text     = DrwTexts.Add(Text_02, OH + Coll(1) + 4.       , OV + (Rowl(1)+3)        )
    
94.   CATFormatTBText "ObjTitleBlock_Text_hao"        ,catMiddleCenter,    5   
    
95.   Set Text     = DrwTexts.Add(Text_03, OH + Coll(2) + 4.       , OV + (Rowl(1)+3)        )
    
96.   CATFormatTBText "ObjTitleBlock_Text_Cname"      , catBottomLeft ,    5   
    
97.   Set Text     = DrwTexts.Add(Text_04, OH + Coll(3) + 4.       , OV + (Rowl(1)+3)        )
    
98.   CATFormatTBText "ObjTitleBlock_Text_Name"       , catBottomLeft ,    5  
    
99.   Set Text     = DrwTexts.Add(Text_05, OH + Coll(4) + 4.       , OV + (Rowl(2)+3)        )
    
100.   CATFormatTBText "ObjTitleBlock_Text_shu"        ,catMiddleCenter,    5   
     
101.   Set Text     = DrwTexts.Add(Text_06, OH + Coll(4) + 4.       , OV + (Rowl(1)+3)        )
     
102.   CATFormatTBText "ObjTitleBlock_Text_liang"      ,catMiddleCenter,    5   
     
103.   Set Text     = DrwTexts.Add(Text_07, OH + Coll(5) + 1.       , OV + (Rowl(1)+3)        )
     
104.   CATFormatTBText "ObjTitleBlock_Text_Materia"    , catBottomLeft ,    5
     
105.   Set Text     = DrwTexts.Add(Text_08, OH + Coll(6) + 2        , OV + (Rowl(2)+1)        )
     
106.   CATFormatTBText "ObjTitleBlock_Text_Single"     , catBottomLeft ,    5   
     
107.   Set Text     = DrwTexts.Add(Text_09, OH + Coll(7) + 2.       , OV + (Rowl(2)+1)        )
     
108.   CATFormatTBText "ObjTitleBlock_Text_Amount"     , catBottomLeft ,    5   
     
109.   Set Text     = DrwTexts.Add(Text_10, OH + Coll(6) + 3.       , OV + (Rowl(1)+1)        )
     
110.   CATFormatTBText "ObjTitleBlock_Text_weigt"      , catBottomLeft ,    5     
     
111.   Set Text     = DrwTexts.Add(Text_11, OH + Coll(8) + 1.       , OV + (Rowl(1)+3)        )
     
112.   CATFormatTBText "ObjTitleBlock_Text_Backface"   , catBottomLeft ,    5   
     
113.   For   i=1 to  (ObjAmount)
     
114.   Set Text     = DrwTexts.Add(TextO_01, OH + Coll(1) + 2.       , OV + (Rowl(i+2)+1)         )
     
115.   CATFormatTBText "ObjTitleBlock_TextO_coll_"&i       , catBottomLeft  ,   5
     
116.    Set Text     = DrwTexts.Add(TextO_02, OH + Coll(2) + 2.       , OV + (Rowl(i+2)+1)        )
     
117.   CATFormatTBText "ObjTitleBlock_TextO_coll_"&i       , catBottomLeft  ,   5
     
118.    Set Text     = DrwTexts.Add(TextO_03, OH + Coll(3) + 2.       , OV + (Rowl(i+2)+1)        )
     
119.   CATFormatTBText "ObjTitleBlock_TextO_coll_"&i       , catBottomLeft  ,   5
     
120.    Set Text     = DrwTexts.Add(TextO_04, OH + Coll(4) + 1.       , OV + (Rowl(i+2)+1)        )
     
121.   CATFormatTBText "ObjTitleBlock_TextO_coll_"&i       , catBottomLeft  ,   5
     
122.    Set Text     = DrwTexts.Add(TextO_05, OH + Coll(5) + 2.       , OV + (Rowl(i+2)+1)        )
     
123.   CATFormatTBText "ObjTitleBlock_TextO_coll_"&i       , catBottomLeft  ,   5
     
124.    Set Text     = DrwTexts.Add(TextO_06, OH + Coll(6) + 2.       , OV + (Rowl(i+2)+1)        )
     
125.   CATFormatTBText "ObjTitleBlock_TextO_coll_"&i       , catBottomLeft  ,   5
     
126.   Set Text     =  DrwTexts.Add(TextO_07, OH + Coll(7) + 2.       , OV + (Rowl(i+2)+1)        )
     
127.   CATFormatTBText "ObjTitleBlock_TextO_coll_"&i       , catBottomLeft  ,   5
     
128.    Set Text     = DrwTexts.Add(TextO_08, OH + Coll(8) + 2.       , OV + (Rowl(i+2)+1)        )
     
129.   CATFormatTBText "ObjTitleBlock_TextO_coll_"&i       , catBottomLeft  ,   5
     
130. Next
     
131.   CATLinks  
     
132. 
     
133. End Sub
     
134. 
     
135. Sub CATFormatFText(textName As String, angle As Double)
     
136.   '-------------------------------------------------------------------------------
     
137.   'How to format the texts belonging to the frame
     
138.   '-------------------------------------------------------------------------------
     
139.   Text.Name           = textName
     
140.   Text.AnchorPosition = CATMiddleCenter
     
141.   Text.Angle          = angle
     
142. End Sub
     
143. 
     
144. Sub CATFormatTBText(textName As String, anchorPosition As String, fontSize)
     
145.   '-------------------------------------------------------------------------------
     
146.   'How to format the texts belonging to the titleblock
     
147.   '-------------------------------------------------------------------------------
     
148.   Text.Name           = textName
     
149.   Text.SetFontName      0, 0, "FangSong_GB2312"
     
150.   Text.AnchorPosition = anchorPosition
     
151.   Text.SetFontSize      0, 0, fontSize
     
152. End Sub
     
153. 
     
154. Sub CATLinks()
     
155.   '-------------------------------------------------------------------------------
     
156.   'How to fill in texts with data of the part/product linked with current sheet
     
157.   '-------------------------------------------------------------------------------
     
158.   On Error Resume Next
     
159.     Dim ProductDrawn As ProductDocument
     
160.     Set ProductDrawn = DrwSheet.Views.Item("Front view").GenerativeBehavior.Document
     
161.   If Err.Number = 0 Then
     
162.     DrwTexts.GetItem("TitleBlock_Text_Number_1").Text = ProductDrawn.PartNumber
     
163.     DrwTexts.GetItem("TitleBlock_Text_Title_1").Text  = ProductDrawn.Definition
     
164.     Dim ProductAnalysis As Analyze
     
165.     Set ProductAnalysis = ProductDrawn.Analyze
     
166.     DrwTexts.GetItem("TitleBlock_Text_Weight_1").Text = FormatNumber(ProductAnalysis.Mass,2)
     
167.   End If
     
168. 
     
169. '-------------------------------------------------------------------------------
     
170.   'Display sheet format
     
171.   '-------------------------------------------------------------------------------
     
172.   Dim textFormat As DrawingText
     
173.   Set textFormat = DrwTexts.GetItem("Text_23")
     
174.   textFormat.Text = displayFormat
     
175.   If (Len(displayFormat) > 4 ) Then
     
176.     textFormat.SetFontSize 0, 0, 2.5
     
177.   Else
     
178.     textFormat.SetFontSize 0, 0, 4.
     
179.   End If
     
180.   '-------------------------------------------------------------------------------
     
181.   'Display sheet numbering
     
182.   '-------------------------------------------------------------------------------
     
183.   Dim nbSheet  As Integer
     
184.   Dim curSheet As Integer
     
185.   nbSheet  = 0
     
186.   curSheet = 0
     
187. If (not DrwSheet.IsDetail) Then
     
188.     For i = 1 To DrwSheets.Count
     
189.       If (not DrwSheets.Item(i).IsDetail) Then
     
190.         nbSheet = nbSheet + 1
     
191.       End If
     
192.     Next
     
193.     For i = 1 To DrwSheets.Count
     
194.       If (not DrwSheets.Item(i).IsDetail) Then
     
195.         On Error Resume Next
     
196.         curSheet = curSheet + 1
     
197.         DrwSheets.Item(i).Views.Item(2).Texts.GetItem("TitleBlock_Text_Sheet_1").Text = CStr(curSheet) & "/" & CStr(nbSheet)
     
198.       End If
     
199.     Next
     
200.   End If
     
201.   On Error Goto 0
     
202. End Sub

复制代码

duzw

楼主：

您好！
按你提供的方法创建的标题栏的所有线型均是粗实线
有没有办法选择性生成“细实线”呀