Language="CATScript"

Sub CATMain()

Dim drawingDocument1 As Document
Set drawingDocument1 = CATIA.ActiveDocument

Dim selection1 As Selection
Set selection1 = drawingDocument1.Selection

selection1.Search "CATDrwSearch.DrwView,all"

Dim printArea1 As PrintArea
' No resolution found for the object printArea1...

Dim sketch1 As CATBaseDispatch
Set sketch1 = printArea1.GetItem("Front view")

Dim factory2D1 As Factory2D
Set factory2D1 = sketch1.OpenEdition()

Dim line2D1 As Line2D
Set line2D1 = factory2D1.CreateLine(-2.289386, 99.075231, -1.290155, 99.075231)

line2D1.ReportName = 28

Dim circle2D1 As Circle2D
Set circle2D1 = factory2D1.CreateCircle(-3.790023, 99.103306, 2.500026, 5.114518, 6.271955)

circle2D1.ReportName = 29

Dim circle2D2 As Circle2D
Set circle2D2 = factory2D1.CreateCircle(-85.813453, 292.049776, 212.157415, 5.066345, 5.114355)

circle2D2.ReportName = 30

Dim line2D2 As Line2D
Set line2D2 = factory2D1.CreateLine(-12.277274, 94.275192, -12.277274, 93.044157)

line2D2.ReportName = 31

Dim line2D3 As Line2D
Set line2D3 = factory2D1.CreateLine(-12.277274, 94.275192, -12.470527, 105.275192)

line2D3.ReportName = 32

Dim line2D4 As Line2D
Set line2D4 = factory2D1.CreateLine(-12.470527, 105.275192, -14.073607, 105.275192)

line2D4.ReportName = 33

Dim line2D5 As Line2D
Set line2D5 = factory2D1.CreateLine(-14.266859, 94.275192, -14.073607, 105.275192)

line2D5.ReportName = 34

Dim line2D6 As Line2D
Set line2D6 = factory2D1.CreateLine(-14.266859, 94.275192, -14.266859, 92.319600)

line2D6.ReportName = 35

Dim ellipse2D1 As Ellipse2D
Set ellipse2D1 = factory2D1.CreateEllipse(-163.484088, 300.422511, 247.302307, -125.673590, 277.402744, 205.717106, 5.553090, 5.672755)

ellipse2D1.ReportName = 36

Dim line2D7 As Line2D
Set line2D7 = factory2D1.CreateLine(-41.373475, 94.075191, -41.373475, 84.467846)

line2D7.ReportName = 37

Dim line2D8 As Line2D
Set line2D8 = factory2D1.CreateLine(-41.373475, 94.075191, -43.265402, 94.075191)

line2D8.ReportName = 38

Dim line2D9 As Line2D
Set line2D9 = factory2D1.CreateLine(-43.265402, 94.075191, -43.265403, 98.475191)

line2D9.ReportName = 39

Dim line2D10 As Line2D
Set line2D10 = factory2D1.CreateLine(-43.265403, 98.475191, -44.065403, 98.475191)

line2D10.ReportName = 40

Dim line2D11 As Line2D
Set line2D11 = factory2D1.CreateLine(-44.065403, 99.975191, -44.065403, 98.475191)

line2D11.ReportName = 41

Dim line2D12 As Line2D
Set line2D12 = factory2D1.CreateLine(-44.065403, 99.975191, -44.965457, 99.975191)

line2D12.ReportName = 42

Dim line2D13 As Line2D
Set line2D13 = factory2D1.CreateLine(-44.965457, 99.975191, -44.965457, 92.575191)

line2D13.ReportName = 43

Dim line2D14 As Line2D
Set line2D14 = factory2D1.CreateLine(-43.573477, 92.575191, -44.965457, 92.575191)

line2D14.ReportName = 44

Dim line2D15 As Line2D
Set line2D15 = factory2D1.CreateLine(-43.573477, 92.575191, -43.573476, 81.937240)

line2D15.ReportName = 45

Dim ellipse2D2 As Ellipse2D
Set ellipse2D2 = factory2D1.CreateEllipse(-172.493732, 314.721409, 255.317488, -146.764281, 294.494098, 217.038831, 5.596676, 5.775200)

ellipse2D2.ReportName = 46

Dim circle2D3 As Circle2D
Set circle2D3 = factory2D1.CreateCircle(-3.790008, 99.103332, 4.500046, 5.114520, 6.165551)

circle2D3.ReportName = 47

Dim line2D16 As Line2D
Set line2D16 = factory2D1.CreateLine(0.678947, 98.575180, -0.332839, 100.075193)

line2D16.ReportName = 48

Dim line2D17 As Line2D
Set line2D17 = factory2D1.CreateLine(-0.332839, 100.075193, -1.894607, 100.075193)

line2D17.ReportName = 49

Dim circle2D4 As Circle2D
Set circle2D4 = factory2D1.CreateCircle(-1.894607, 99.675193, 0.400000, 1.570796, 3.150319)

circle2D4.ReportName = 50

Dim line2D18 As Line2D
Set line2D18 = factory2D1.CreateLine(-2.289386, 99.075231, -2.294592, 99.671702)

line2D18.ReportName = 51

Dim circle2D5 As Circle2D
Set circle2D5 = factory2D1.CreateCircle(-63.079196, 94.575191, 2.000000, 3.665191, 4.712389)

circle2D5.ReportName = 52

Dim line2D19 As Line2D
Set line2D19 = factory2D1.CreateLine(-59.065402, 92.575191, -63.079196, 92.575191)

line2D19.ReportName = 53

Dim line2D20 As Line2D
Set line2D20 = factory2D1.CreateLine(-59.065402, 92.575191, -59.065402, 94.075191)

line2D20.ReportName = 54

Dim line2D21 As Line2D
Set line2D21 = factory2D1.CreateLine(-59.065402, 94.075191, -62.790521, 94.075191)

line2D21.ReportName = 55

Dim line2D22 As Line2D
Set line2D22 = factory2D1.CreateLine(-66.254623, 100.075191, -62.790521, 94.075191)

line2D22.ReportName = 56

Dim line2D23 As Line2D
Set line2D23 = factory2D1.CreateLine(-66.254623, 100.075191, -66.686236, 100.075191)

line2D23.ReportName = 57

Dim line2D24 As Line2D
Set line2D24 = factory2D1.CreateLine(-66.686236, 100.075191, -67.697999, 98.575191)

line2D24.ReportName = 58

Dim line2D25 As Line2D
Set line2D25 = factory2D1.CreateLine(-67.697999, 98.575191, -64.811247, 93.575191)

line2D25.ReportName = 59

Dim line2D26 As Line2D
Set line2D26 = factory2D1.CreateLine(-57.065402, 92.575191, -57.065403, 98.075191)

line2D26.ReportName = 60

Dim line2D27 As Line2D
Set line2D27 = factory2D1.CreateLine(-57.665403, 98.075191, -57.065403, 98.075191)

line2D27.ReportName = 61

Dim line2D28 As Line2D
Set line2D28 = factory2D1.CreateLine(-59.065403, 94.075191, -57.065403, 94.075191)

line2D28.ReportName = 62

Dim line2D29 As Line2D
Set line2D29 = factory2D1.CreateLine(-59.065403, 92.575191, -57.065403, 92.575191)

line2D29.ReportName = 63

Dim line2D30 As Line2D
Set line2D30 = factory2D1.CreateLine(-45.102396, 92.575191, -44.965402, 92.575191)

line2D30.ReportName = 64

Dim line2D31 As Line2D
Set line2D31 = factory2D1.CreateLine(-45.102396, 92.575191, -52.665403, 92.575191)

line2D31.ReportName = 65

Dim line2D32 As Line2D
Set line2D32 = factory2D1.CreateLine(-52.665403, 92.575191, -55.665403, 92.575191)

line2D32.ReportName = 66

Dim line2D33 As Line2D
Set line2D33 = factory2D1.CreateLine(-55.665403, 92.575191, -55.803996, 92.575191)

line2D33.ReportName = 67

Dim line2D34 As Line2D
Set line2D34 = factory2D1.CreateLine(-55.803996, 92.575191, -57.065402, 92.575191)

line2D34.ReportName = 68

Dim line2D35 As Line2D
Set line2D35 = factory2D1.CreateLine(-52.665403, 98.475191, -45.102396, 98.475191)

line2D35.ReportName = 69

Dim line2D36 As Line2D
Set line2D36 = factory2D1.CreateLine(-55.165397, 98.475191, -52.665403, 98.475191)

line2D36.ReportName = 70

Dim circle2D6 As Circle2D
Set circle2D6 = factory2D1.CreateCircle(-55.803996, 93.075191, 0.500000, 4.712389, 6.144813)

circle2D6.ReportName = 71

Dim circle2D7 As Circle2D
Set circle2D7 = factory2D1.CreateCircle(-70.165402, 95.075191, 15.000000, 6.144813, 6.283185)

circle2D7.ReportName = 72

Dim line2D37 As Line2D
Set line2D37 = factory2D1.CreateLine(-55.165402, 95.075191, -55.165403, 100.075191)

line2D37.ReportName = 73

Dim line2D38 As Line2D
Set line2D38 = factory2D1.CreateLine(-55.665403, 100.075191, -55.165403, 100.075191)

line2D38.ReportName = 74

Dim line2D39 As Line2D
Set line2D39 = factory2D1.CreateLine(-57.665403, 98.575191, -55.665403, 100.075191)

line2D39.ReportName = 75

Dim line2D40 As Line2D
Set line2D40 = factory2D1.CreateLine(-57.665403, 98.075191, -57.665403, 98.575191)

line2D40.ReportName = 76

Dim line2D41 As Line2D
Set line2D41 = factory2D1.CreateLine(-57.065392, 95.037717, -63.346237, 95.037717)

line2D41.ReportName = 77

Dim line2D42 As Line2D
Set line2D42 = factory2D1.CreateLine(-41.373422, 84.468054, -41.373423, 94.075191)

line2D42.ReportName = 78

Dim line2D43 As Line2D
Set line2D43 = factory2D1.CreateLine(-45.975812, 84.710004, -49.395379, 92.075191)

line2D43.ReportName = 79

Dim drawingSheets1 As DrawingSheets
Set drawingSheets1 = drawingDocument1.Sheets

Dim drawingSheet1 As DrawingSheet
Set drawingSheet1 = drawingSheets1.Item("Sheet.1")

Dim drawingViews1 As DrawingViews
Set drawingViews1 = drawingSheet1.Views

Dim drawingView1 As DrawingView
Set drawingView1 = drawingViews1.Item("Front view")

Dim geometricElements1 As GeometricElements
Set geometricElements1 = drawingView1.GeometricElements

Dim geometry2D1 As GeometricElement
Set geometry2D1 = geometricElements1.Item("Spline.1")

geometry2D1.ReportName = 80

Dim line2D44 As Line2D
Set line2D44 = factory2D1.CreateLine(-44.147196, 82.483191, -44.147196, 92.075191)

line2D44.ReportName = 81

Dim line2D45 As Line2D
Set line2D45 = factory2D1.CreateLine(-44.147196, 92.075191, -44.147196, 92.575191)

line2D45.ReportName = 82

Dim line2D46 As Line2D
Set line2D46 = factory2D1.CreateLine(-49.395379, 92.075191, -49.627523, 92.575191)

line2D46.ReportName = 83

Dim line2D47 As Line2D
Set line2D47 = factory2D1.CreateLine(-44.147196, 82.483191, -43.573422, 81.937189)

line2D47.ReportName = 84

Dim line2D48 As Line2D
Set line2D48 = factory2D1.CreateLine(-45.102396, 98.475191, -45.102396, 92.575191)

line2D48.ReportName = 85

Dim line2D49 As Line2D
Set line2D49 = factory2D1.CreateLine(-45.102396, 98.475191, -45.102396, 99.975191)

line2D49.ReportName = 86

Dim line2D50 As Line2D
Set line2D50 = factory2D1.CreateLine(-44.965403, 99.975191, -45.102396, 99.975191)

line2D50.ReportName = 87

Dim line2D51 As Line2D
Set line2D51 = factory2D1.CreateLine(-52.665403, 98.475191, -52.665403, 92.575191)

line2D51.ReportName = 88

Dim line2D52 As Line2D
Set line2D52 = factory2D1.CreateLine(-65.765403, 100.075191, -66.254623, 100.075191)

line2D52.ReportName = 89

Dim line2D53 As Line2D
Set line2D53 = factory2D1.CreateLine(-65.697999, 100.075191, -65.765396, 100.075191)

line2D53.ReportName = 90

Dim line2D54 As Line2D
Set line2D54 = factory2D1.CreateLine(-18.160717, 100.075192, -26.513461, 100.075192)

line2D54.ReportName = 91

Dim line2D55 As Line2D
Set line2D55 = factory2D1.CreateLine(-31.520323, 100.075192, -65.697999, 100.075191)

line2D55.ReportName = 92

Dim line2D56 As Line2D
Set line2D56 = factory2D1.CreateLine(-18.160717, 100.075192, -14.170829, 100.075192)

line2D56.ReportName = 93

Dim line2D57 As Line2D
Set line2D57 = factory2D1.CreateLine(-12.373308, 100.075192, -1.894610, 100.075192)

line2D57.ReportName = 94

Dim line2D58 As Line2D
Set line2D58 = factory2D1.CreateLine(-65.677273, 99.075191, -65.345853, 99.075191)

line2D58.ReportName = 95

Dim line2D59 As Line2D
Set line2D59 = factory2D1.CreateLine(-65.345853, 99.075191, -65.272999, 99.488367)

line2D59.ReportName = 96

Dim circle2D8 As Circle2D
Set circle2D8 = factory2D1.CreateCircle(-65.765403, 99.575191, 0.500000, 6.108652, 7.853982)

circle2D8.ReportName = 97

Dim circle2D9 As Circle2D
Set circle2D9 = factory2D1.CreateCircle(-91.432570, 305.637625, 223.163609, 4.938630, 4.986455)

circle2D9.ReportName = 98

Dim circle2D10 As Circle2D
Set circle2D10 = factory2D1.CreateCircle(-86.398258, 288.427135, 205.229552, 5.010580, 5.052558)

circle2D10.ReportName = 99

Dim line2D60 As Line2D
Set line2D60 = factory2D1.CreateLine(-17.924192, 94.957669, -18.160717, 100.075192)

line2D60.ReportName = 100

Dim line2D61 As Line2D
Set line2D61 = factory2D1.CreateLine(-65.330863, 98.475191, -57.665393, 98.475191)

line2D61.ReportName = 101

Dim line2D62 As Line2D
Set line2D62 = factory2D1.CreateLine(-55.165393, 98.475191, -51.438246, 98.475191)

line2D62.ReportName = 102

Dim line2D63 As Line2D
Set line2D63 = factory2D1.CreateLine(-51.438246, 98.475191, -51.432992, 98.475184)

line2D63.ReportName = 103

Dim circle2D11 As Circle2D
Set circle2D11 = factory2D1.CreateCircle(-91.474049, 305.854025, 225.757666, 4.936174, 4.984003)

circle2D11.ReportName = 104

Dim circle2D12 As Circle2D
Set circle2D12 = factory2D1.CreateCircle(-86.309547, 288.069513, 207.235957, 5.007804, 5.052880)

circle2D12.ReportName = 105

Dim geometry2D2 As GeometricElement
Set geometry2D2 = geometricElements1.Item("Spline.2")

geometry2D2.ReportName = 106

Dim circle2D13 As Circle2D
Set circle2D13 = factory2D1.CreateCircle(28.281450, -35.201680, 135.744247, 1.889655, 1.911700)

circle2D13.ReportName = 107

Dim geometry2D3 As GeometricElement
Set geometry2D3 = geometricElements1.Item("Spline.3")

geometry2D3.ReportName = 108

Dim circle2D14 As Circle2D
Set circle2D14 = factory2D1.CreateCircle(-90.548202, 304.752918, 225.117279, 4.980689, 5.003487)

circle2D14.ReportName = 109

Dim ellipse2D3 As Ellipse2D
Set ellipse2D3 = factory2D1.CreateEllipse(-172.499213, 314.711588, 255.323723, -146.750921, 294.492846, 217.030585, 5.596645, 5.775172)

ellipse2D3.ReportName = 110

Dim line2D64 As Line2D
Set line2D64 = factory2D1.CreateLine(0.679210, 98.575193, -0.332553, 100.075193)

line2D64.ReportName = 111

Dim circle2D15 As Circle2D
Set circle2D15 = factory2D1.CreateCircle(36.570572, -82.299539, 185.444825, 1.848345, 1.869059)

circle2D15.ReportName = 112

Dim geometry2D4 As GeometricElement
Set geometry2D4 = geometricElements1.Item("Spline.4")

geometry2D4.ReportName = 113

Dim line2D65 As Line2D
Set line2D65 = factory2D1.CreateLine(-14.272067, 94.275192, -14.266859, 94.275192)

line2D65.ReportName = 114

Dim line2D66 As Line2D
Set line2D66 = factory2D1.CreateLine(-12.277274, 94.275192, -12.272067, 94.275192)

line2D66.ReportName = 115

Dim line2D67 As Line2D
Set line2D67 = factory2D1.CreateLine(-31.787762, 105.178138, -31.615053, 101.882660)

line2D67.ReportName = 116

Dim line2D68 As Line2D
Set line2D68 = factory2D1.CreateLine(-31.615053, 101.882660, -31.552250, 100.684305)

line2D68.ReportName = 117

Dim line2D69 As Line2D
Set line2D69 = factory2D1.CreateLine(-31.552250, 100.684305, -30.871229, 87.689667)

line2D69.ReportName = 118

Dim line2D70 As Line2D
Set line2D70 = factory2D1.CreateLine(-26.794614, 105.439818, -26.621905, 102.144340)

line2D70.ReportName = 119

Dim line2D71 As Line2D
Set line2D71 = factory2D1.CreateLine(-26.621905, 102.144340, -26.559102, 100.945985)

line2D71.ReportName = 120

Dim line2D72 As Line2D
Set line2D72 = factory2D1.CreateLine(-26.559102, 100.945985, -25.938620, 89.106482)

line2D72.ReportName = 121

Dim circle2D16 As Circle2D
Set circle2D16 = factory2D1.CreateCircle(-3.789696, 99.103347, 4.500008, 5.114528, 6.165547)

circle2D16.ReportName = 122

Dim line2D73 As Line2D
Set line2D73 = factory2D1.CreateLine(-14.080061, 105.275192, -14.073607, 105.275192)

line2D73.ReportName = 123

Dim line2D74 As Line2D
Set line2D74 = factory2D1.CreateLine(-12.470527, 105.275192, -12.464073, 105.275192)

line2D74.ReportName = 124

Dim line2D75 As Line2D
Set line2D75 = factory2D1.CreateLine(-31.787762, 105.178138, -26.794614, 105.439818)

line2D75.ReportName = 125

Dim line2D76 As Line2D
Set line2D76 = factory2D1.CreateLine(-31.615053, 101.882660, -26.621905, 102.144340)

line2D76.ReportName = 126

Dim line2D77 As Line2D
Set line2D77 = factory2D1.CreateLine(-31.552250, 100.684305, -26.559102, 100.945985)

line2D77.ReportName = 127

Dim line2D78 As Line2D
Set line2D78 = factory2D1.CreateLine(-14.272067, 94.275192, -14.272067, 92.317662)

line2D78.ReportName = 128

Dim line2D79 As Line2D
Set line2D79 = factory2D1.CreateLine(-12.272067, 94.275192, -12.272067, 93.046012)

line2D79.ReportName = 129

Dim line2D80 As Line2D
Set line2D80 = factory2D1.CreateLine(-14.080061, 105.275192, -14.272067, 94.275192)

line2D80.ReportName = 130

Dim line2D81 As Line2D
Set line2D81 = factory2D1.CreateLine(-12.464073, 105.275192, -12.272067, 94.275192)

line2D81.ReportName = 131

Dim point2D1 As Point2D
Set point2D1 = factory2D1.CreatePoint(-13.272067, 106.375242)

point2D1.ReportName = 132

point2D1.Construction = True

Dim point2D2 As Point2D
Set point2D2 = factory2D1.CreatePoint(-13.272067, 93.174642)

point2D2.ReportName = 133

point2D2.Construction = True

Dim point2D3 As Point2D
Set point2D3 = factory2D1.CreatePoint(-29.174180, 103.076344)

point2D3.ReportName = 134

point2D3.Construction = True

Dim point2D4 As Point2D
Set point2D4 = factory2D1.CreatePoint(-28.256151, 85.559308)

point2D4.ReportName = 135

point2D4.Construction = True

sketch1.CloseEdition 

Dim sketch2 As CATBaseDispatch
Set sketch2 = printArea1.GetItem("Top view")

Dim factory2D2 As Factory2D
Set factory2D2 = sketch2.OpenEdition()

Dim circle2D17 As Circle2D
Set circle2D17 = factory2D2.CreateClosedCircle(-13.272067, -478.074631, 0.807994)

circle2D17.ReportName = 4

Dim circle2D18 As Circle2D
Set circle2D18 = factory2D2.CreateClosedCircle(-13.272067, -478.074631, 1.000000)

circle2D18.ReportName = 5

Dim line2D82 As Line2D
Set line2D82 = factory2D2.CreateLine(-57.665403, -475.574633, -57.665403, -480.574633)

line2D82.ReportName = 6

Dim line2D83 As Line2D
Set line2D83 = factory2D2.CreateLine(-55.665403, -475.574633, -55.665403, -480.574633)

line2D83.ReportName = 7

Dim line2D84 As Line2D
Set line2D84 = factory2D2.CreateLine(-57.665403, -475.574633, -55.665403, -475.574633)

line2D84.ReportName = 8

Dim line2D85 As Line2D
Set line2D85 = factory2D2.CreateLine(-57.665403, -480.574633, -55.665403, -480.574633)

line2D85.ReportName = 9

Dim line2D86 As Line2D
Set line2D86 = factory2D2.CreateLine(-55.165403, -475.574633, -55.165403, -480.574633)

line2D86.ReportName = 10

Dim line2D87 As Line2D
Set line2D87 = factory2D2.CreateLine(-55.665403, -475.574633, -55.165403, -475.574633)

line2D87.ReportName = 11

Dim line2D88 As Line2D
Set line2D88 = factory2D2.CreateLine(-55.665403, -480.574633, -55.165403, -480.574633)

line2D88.ReportName = 12

Dim line2D89 As Line2D
Set line2D89 = factory2D2.CreateLine(-57.065402, -487.474633, -57.065402, -480.574633)

line2D89.ReportName = 13

Dim line2D90 As Line2D
Set line2D90 = factory2D2.CreateLine(-57.065403, -475.574633, -57.065403, -468.674633)

line2D90.ReportName = 14

Dim line2D91 As Line2D
Set line2D91 = factory2D2.CreateLine(-55.665402, -486.074633, -55.665402, -480.574633)

line2D91.ReportName = 15

Dim line2D92 As Line2D
Set line2D92 = factory2D2.CreateLine(-57.065402, -487.474633, -55.665402, -487.474633)

line2D92.ReportName = 16

Dim line2D93 As Line2D
Set line2D93 = factory2D2.CreateLine(-57.065403, -468.674633, -55.665403, -468.674633)

line2D93.ReportName = 17

Dim line2D94 As Line2D
Set line2D94 = factory2D2.CreateLine(-55.665403, -475.574633, -55.665403, -470.074633)

line2D94.ReportName = 18

Dim line2D95 As Line2D
Set line2D95 = factory2D2.CreateLine(-52.665403, -470.074633, -52.665403, -472.974633)

line2D95.ReportName = 19

Dim line2D96 As Line2D
Set line2D96 = factory2D2.CreateLine(-52.665402, -483.174633, -52.665402, -486.074633)

line2D96.ReportName = 20

Dim line2D97 As Line2D
Set line2D97 = factory2D2.CreateLine(-45.102396, -483.174632, -52.665402, -483.174633)

line2D97.ReportName = 21

Dim circle2D19 As Circle2D
Set circle2D19 = factory2D2.CreateCircle(-139.965403, -478.074635, 95.000000, 6.229475, 6.336895)

circle2D19.ReportName = 22

Dim line2D98 As Line2D
Set line2D98 = factory2D2.CreateLine(-52.665403, -472.974633, -45.102396, -472.974632)

line2D98.ReportName = 23

Dim line2D99 As Line2D
Set line2D99 = factory2D2.CreateLine(-59.065403, -475.274633, -57.065403, -475.274633)

line2D99.ReportName = 24

Dim line2D100 As Line2D
Set line2D100 = factory2D2.CreateLine(-59.065402, -480.874633, -59.065403, -475.274633)

line2D100.ReportName = 25

Dim line2D101 As Line2D
Set line2D101 = factory2D2.CreateLine(-59.065402, -480.874633, -57.065402, -480.874633)

line2D101.ReportName = 26

Dim line2D102 As Line2D
Set line2D102 = factory2D2.CreateLine(-51.465402, -487.474632, -55.665402, -487.474633)

line2D102.ReportName = 27

Dim line2D103 As Line2D
Set line2D103 = factory2D2.CreateLine(-55.665403, -468.674633, -51.465403, -468.674632)

line2D103.ReportName = 28

Dim line2D104 As Line2D
Set line2D104 = factory2D2.CreateLine(-62.790522, -464.661568, -62.790521, -491.487698)

line2D104.ReportName = 29

Dim line2D105 As Line2D
Set line2D105 = factory2D2.CreateLine(-48.118904, -464.624539, -62.790522, -464.661568)

line2D105.ReportName = 30

Dim line2D106 As Line2D
Set line2D106 = factory2D2.CreateLine(-48.118904, -465.574632, -48.118904, -464.624539)

line2D106.ReportName = 31

Dim line2D107 As Line2D
Set line2D107 = factory2D2.CreateLine(-48.118904, -465.574632, -42.169863, -465.574632)

line2D107.ReportName = 32

Dim circle2D20 As Circle2D
Set circle2D20 = factory2D2.CreateCircle(-139.896087, -478.073730, 98.522624, 6.283176, 6.410394)

circle2D20.ReportName = 33

Dim circle2D21 As Circle2D
Set circle2D21 = factory2D2.CreateCircle(-139.896080, -478.075541, 98.522618, 6.155977, 6.283195)

circle2D21.ReportName = 34

Dim line2D108 As Line2D
Set line2D108 = factory2D2.CreateLine(-48.118903, -490.574632, -42.169862, -490.574632)

line2D108.ReportName = 35

Dim line2D109 As Line2D
Set line2D109 = factory2D2.CreateLine(-48.118903, -490.574632, -48.118903, -491.524726)

line2D109.ReportName = 36

Dim line2D110 As Line2D
Set line2D110 = factory2D2.CreateLine(-62.790521, -491.487698, -48.118903, -491.524726)

line2D110.ReportName = 37

Dim line2D111 As Line2D
Set line2D111 = factory2D2.CreateLine(-55.665402, -487.474633, -55.665402, -486.074633)

line2D111.ReportName = 38

Dim line2D112 As Line2D
Set line2D112 = factory2D2.CreateLine(-55.665403, -470.074633, -55.665403, -468.674633)

line2D112.ReportName = 39

Dim line2D113 As Line2D
Set line2D113 = factory2D2.CreateLine(-67.697998, -496.710164, -67.697999, -459.439102)

line2D113.ReportName = 40

Dim line2D114 As Line2D
Set line2D114 = factory2D2.CreateLine(-67.697998, -496.710164, -66.686235, -495.700951)

line2D114.ReportName = 41

Dim line2D115 As Line2D
Set line2D115 = factory2D2.CreateLine(-66.686235, -495.700951, -66.686236, -460.448315)

line2D115.ReportName = 42

Dim line2D116 As Line2D
Set line2D116 = factory2D2.CreateLine(-67.697999, -459.439102, -66.686236, -460.448315)

line2D116.ReportName = 43

Dim line2D117 As Line2D
Set line2D117 = factory2D2.CreateLine(-55.665403, -470.074633, -52.665403, -470.074633)

line2D117.ReportName = 44

Dim line2D118 As Line2D
Set line2D118 = factory2D2.CreateLine(-51.465403, -468.674632, -51.465403, -471.574632)

line2D118.ReportName = 45

Dim line2D119 As Line2D
Set line2D119 = factory2D2.CreateLine(-51.465403, -471.574632, -43.265403, -471.574632)

line2D119.ReportName = 46

Dim line2D120 As Line2D
Set line2D120 = factory2D2.CreateLine(-43.265402, -484.574632, -43.265403, -471.574632)

line2D120.ReportName = 47

Dim line2D121 As Line2D
Set line2D121 = factory2D2.CreateLine(-43.265402, -484.574632, -51.465402, -484.574632)

line2D121.ReportName = 48

Dim line2D122 As Line2D
Set line2D122 = factory2D2.CreateLine(-51.465402, -484.574632, -51.465402, -487.474632)

line2D122.ReportName = 49

Dim line2D123 As Line2D
Set line2D123 = factory2D2.CreateLine(-52.665402, -486.074633, -55.665402, -486.074633)

line2D123.ReportName = 50

Dim line2D124 As Line2D
Set line2D124 = factory2D2.CreateLine(-45.102396, -472.974632, -44.065403, -472.974632)

line2D124.ReportName = 51

Dim line2D125 As Line2D
Set line2D125 = factory2D2.CreateLine(-44.065402, -483.174632, -45.102396, -483.174632)

line2D125.ReportName = 52

Dim line2D126 As Line2D
Set line2D126 = factory2D2.CreateLine(-44.065403, -472.974632, -44.065402, -483.174632)

line2D126.ReportName = 53

Dim line2D127 As Line2D
Set line2D127 = factory2D2.CreateLine(-66.254623, -472.024633, -66.254623, -484.124633)

line2D127.ReportName = 54

Dim line2D128 As Line2D
Set line2D128 = factory2D2.CreateLine(-66.254624, -461.380621, -66.254623, -469.024633)

line2D128.ReportName = 55

Dim line2D129 As Line2D
Set line2D129 = factory2D2.CreateLine(-66.254624, -461.380621, -65.697999, -461.415370)

line2D129.ReportName = 56

Dim line2D130 As Line2D
Set line2D130 = factory2D2.CreateLine(-65.330863, -461.438290, -65.697999, -461.415370)

line2D130.ReportName = 57

Dim line2D131 As Line2D
Set line2D131 = factory2D2.CreateLine(-65.330863, -463.539773, -65.330863, -461.438290)

line2D131.ReportName = 58

Dim line2D132 As Line2D
Set line2D132 = factory2D2.CreateLine(-65.330863, -463.539773, -63.346237, -463.663670)

line2D132.ReportName = 59

Dim ellipse2D4 As Ellipse2D
Set ellipse2D4 = factory2D2.CreateEllipse(-63.367903, -464.663075, -0.001299, -1.000054, 1.000055, 0.577381, 1.573053, 3.106307)

ellipse2D4.ReportName = 60

Dim ellipse2D5 As Ellipse2D
Set ellipse2D5 = factory2D2.CreateEllipse(-63.367903, -491.486190, 0.001299, -1.000055, 1.000056, 0.577381, 0.035286, 1.568539)

ellipse2D5.ReportName = 61

Dim line2D133 As Line2D
Set line2D133 = factory2D2.CreateLine(-63.346236, -492.485596, -65.330862, -492.609493)

line2D133.ReportName = 62

Dim line2D134 As Line2D
Set line2D134 = factory2D2.CreateLine(-65.330862, -492.609493, -65.330862, -494.710976)

line2D134.ReportName = 63

Dim line2D135 As Line2D
Set line2D135 = factory2D2.CreateLine(-65.330862, -494.710976, -65.697998, -494.733896)

line2D135.ReportName = 64

Dim line2D136 As Line2D
Set line2D136 = factory2D2.CreateLine(-66.254623, -494.768645, -65.697998, -494.733896)

line2D136.ReportName = 65

Dim line2D137 As Line2D
Set line2D137 = factory2D2.CreateLine(-66.254623, -487.124633, -66.254623, -494.768645)

line2D137.ReportName = 66

Dim line2D138 As Line2D
Set line2D138 = factory2D2.CreateLine(-48.565791, -463.626366, -63.346237, -463.663670)

line2D138.ReportName = 67

Dim drawingView2 As DrawingView
Set drawingView2 = drawingViews1.Item("Top view")

Dim geometricElements2 As GeometricElements
Set geometricElements2 = drawingView2.GeometricElements

Dim geometry2D5 As GeometricElement
Set geometry2D5 = geometricElements2.Item("Spline.1")

geometry2D5.ReportName = 68

Dim line2D139 As Line2D
Set line2D139 = factory2D2.CreateLine(-44.189367, -465.574632, -44.189367, -462.753275)

line2D139.ReportName = 69

Dim ellipse2D6 As Ellipse2D
Set ellipse2D6 = factory2D2.CreateEllipse(-45.038886, -464.304175, -0.003899, -2.501653, 2.501656, 1.080178, 2.240148, 3.108485)

ellipse2D6.ReportName = 70

Dim line2D140 As Line2D
Set line2D140 = factory2D2.CreateLine(-49.624230, -461.441580, -44.999234, -461.803950)

line2D140.ReportName = 71

Dim line2D141 As Line2D
Set line2D141 = factory2D2.CreateLine(-49.624230, -463.543148, -49.624230, -461.441580)

line2D141.ReportName = 72

Dim line2D142 As Line2D
Set line2D142 = factory2D2.CreateLine(-49.624230, -463.543148, -48.565791, -463.626247)

line2D142.ReportName = 73

Dim geometry2D6 As GeometricElement
Set geometry2D6 = geometricElements2.Item("Spline.2")

geometry2D6.ReportName = 74

Dim line2D143 As Line2D
Set line2D143 = factory2D2.CreateLine(-44.189366, -493.395990, -44.189366, -490.574632)

line2D143.ReportName = 75

Dim ellipse2D7 As Ellipse2D
Set ellipse2D7 = factory2D2.CreateEllipse(-45.038949, -491.844515, 0.003994, -2.502226, 2.502229, 1.080295, 0.033076, 0.901316)

ellipse2D7.ReportName = 76

Dim line2D144 As Line2D
Set line2D144 = factory2D2.CreateLine(-49.624229, -494.707685, -44.999233, -494.345315)

line2D144.ReportName = 77

Dim line2D145 As Line2D
Set line2D145 = factory2D2.CreateLine(-49.624229, -492.606117, -49.624229, -494.707685)

line2D145.ReportName = 78

Dim line2D146 As Line2D
Set line2D146 = factory2D2.CreateLine(-49.624229, -492.606117, -48.565790, -492.523018)

line2D146.ReportName = 79

Dim line2D147 As Line2D
Set line2D147 = factory2D2.CreateLine(-63.346236, -492.485596, -48.565790, -492.522899)

line2D147.ReportName = 80

Dim circle2D22 As Circle2D
Set circle2D22 = factory2D2.CreateCircle(-18.051269, -478.065804, 18.769492, 4.709798, 5.695134)

circle2D22.ReportName = 81

Dim line2D148 As Line2D
Set line2D148 = factory2D2.CreateLine(-67.697998, -496.710164, -18.099896, -496.835340)

line2D148.ReportName = 82

Dim line2D149 As Line2D
Set line2D149 = factory2D2.CreateLine(-18.099896, -496.835340, -18.097342, -495.823581)

line2D149.ReportName = 83

Dim line2D150 As Line2D
Set line2D150 = factory2D2.CreateLine(-66.686235, -495.700951, -18.097342, -495.823581)

line2D150.ReportName = 84

Dim circle2D23 As Circle2D
Set circle2D23 = factory2D2.CreateCircle(-18.051309, -478.065736, 17.757796, 4.709797, 5.695127)

circle2D23.ReportName = 85

Dim geometry2D7 As GeometricElement
Set geometry2D7 = geometricElements2.Item("Spline.3")

geometry2D7.ReportName = 86

Dim geometry2D8 As GeometricElement
Set geometry2D8 = geometricElements2.Item("Spline.4")

geometry2D8.ReportName = 87

Dim circle2D24 As Circle2D
Set circle2D24 = factory2D2.CreateCircle(-18.051310, -478.083527, 17.757796, 0.588058, 1.573389)

circle2D24.ReportName = 88

Dim line2D151 As Line2D
Set line2D151 = factory2D2.CreateLine(-66.686236, -460.448315, -18.097343, -460.325682)

line2D151.ReportName = 89

Dim line2D152 As Line2D
Set line2D152 = factory2D2.CreateLine(-1.894607, -473.636105, -1.894607, -482.513162)

line2D152.ReportName = 90

Dim circle2D25 As Circle2D
Set circle2D25 = factory2D2.CreateCircle(-18.117478, -478.068327, 16.821690, 4.709819, 5.660295)

circle2D25.ReportName = 91

Dim circle2D26 As Circle2D
Set circle2D26 = factory2D2.CreateCircle(-18.111251, -478.073933, 16.813281, 5.660349, 6.015986)

circle2D26.ReportName = 92

Dim line2D153 As Line2D
Set line2D153 = factory2D2.CreateLine(-18.160716, -494.890025, -65.697998, -494.770049)

line2D153.ReportName = 93

Dim line2D154 As Line2D
Set line2D154 = factory2D2.CreateLine(-65.697998, -494.770049, -66.254623, -494.768645)

line2D154.ReportName = 94

Dim line2D155 As Line2D
Set line2D155 = factory2D2.CreateLine(-65.765402, -487.124633, -66.254623, -487.124633)

line2D155.ReportName = 95

Dim line2D156 As Line2D
Set line2D156 = factory2D2.CreateLine(-65.765402, -484.124633, -65.765402, -487.124633)

line2D156.ReportName = 96

Dim line2D157 As Line2D
Set line2D157 = factory2D2.CreateLine(-65.765402, -484.124633, -66.254623, -484.124633)

line2D157.ReportName = 97

Dim line2D158 As Line2D
Set line2D158 = factory2D2.CreateLine(-65.765403, -472.024633, -66.254623, -472.024633)

line2D158.ReportName = 98

Dim line2D159 As Line2D
Set line2D159 = factory2D2.CreateLine(-65.765403, -469.024633, -65.765403, -472.024633)

line2D159.ReportName = 99

Dim line2D160 As Line2D
Set line2D160 = factory2D2.CreateLine(-65.765403, -469.024633, -66.254623, -469.024633)

line2D160.ReportName = 100

Dim line2D161 As Line2D
Set line2D161 = factory2D2.CreateLine(-65.697999, -461.379216, -66.254624, -461.380621)

line2D161.ReportName = 101

Dim line2D162 As Line2D
Set line2D162 = factory2D2.CreateLine(-18.160717, -461.259238, -65.697999, -461.379216)

line2D162.ReportName = 102

Dim circle2D27 As Circle2D
Set circle2D27 = factory2D2.CreateCircle(-18.117478, -478.080934, 16.821688, 0.622890, 1.573367)

circle2D27.ReportName = 103

Dim circle2D28 As Circle2D
Set circle2D28 = factory2D2.CreateCircle(-18.111168, -478.075286, 16.813188, 0.267199, 0.622836)

circle2D28.ReportName = 104

Dim line2D163 As Line2D
Set line2D163 = factory2D2.CreateLine(-18.097343, -460.325682, -18.099897, -459.313923)

line2D163.ReportName = 105

Dim line2D164 As Line2D
Set line2D164 = factory2D2.CreateLine(-67.697999, -459.439102, -18.099897, -459.313923)

line2D164.ReportName = 106

Dim circle2D29 As Circle2D
Set circle2D29 = factory2D2.CreateCircle(-18.051269, -478.083459, 18.769492, 0.588051, 1.573387)

circle2D29.ReportName = 107

Dim geometry2D9 As GeometricElement
Set geometry2D9 = geometricElements2.Item("Spline.5")

geometry2D9.ReportName = 108

Dim geometry2D10 As GeometricElement
Set geometry2D10 = geometricElements2.Item("Spline.6")

geometry2D10.ReportName = 109

Dim line2D165 As Line2D
Set line2D165 = factory2D2.CreateLine(-65.765403, -472.024633, -65.265403, -472.024633)

line2D165.ReportName = 110

Dim line2D166 As Line2D
Set line2D166 = factory2D2.CreateLine(-65.765403, -469.024633, -65.265403, -469.024633)

line2D166.ReportName = 111

Dim geometry2D11 As GeometricElement
Set geometry2D11 = geometricElements2.Item("Spline.7")

geometry2D11.ReportName = 112

Dim circle2D30 As Circle2D
Set circle2D30 = factory2D2.CreateCircle(-98.659053, 4694.304739, 5156.387639, 4.722796, 4.728047)

circle2D30.ReportName = 113

Dim line2D167 As Line2D
Set line2D167 = factory2D2.CreateLine(-18.160717, -461.259238, -17.924192, -461.450549)

line2D167.ReportName = 114

Dim line2D168 As Line2D
Set line2D168 = factory2D2.CreateLine(-65.330863, -461.438290, -51.438246, -461.403227)

line2D168.ReportName = 115

Dim line2D169 As Line2D
Set line2D169 = factory2D2.CreateLine(-65.330863, -463.539773, -51.438246, -463.504710)

line2D169.ReportName = 116

Dim line2D170 As Line2D
Set line2D170 = factory2D2.CreateLine(-51.438246, -463.504710, -51.438246, -461.403227)

line2D170.ReportName = 117

Dim geometry2D12 As GeometricElement
Set geometry2D12 = geometricElements2.Item("Spline.8")

geometry2D12.ReportName = 118

Dim geometry2D13 As GeometricElement
Set geometry2D13 = geometricElements2.Item("Spline.9")

geometry2D13.ReportName = 119

Dim line2D171 As Line2D
Set line2D171 = factory2D2.CreateLine(-65.330862, -492.609493, -51.438245, -492.644555)

line2D171.ReportName = 120

Dim line2D172 As Line2D
Set line2D172 = factory2D2.CreateLine(-65.330862, -494.710976, -51.438245, -494.746038)

line2D172.ReportName = 121

Dim line2D173 As Line2D
Set line2D173 = factory2D2.CreateLine(-51.438245, -492.644555, -51.438245, -494.746038)

line2D173.ReportName = 122

Dim geometry2D14 As GeometricElement
Set geometry2D14 = geometricElements2.Item("Spline.10")

geometry2D14.ReportName = 123

Dim circle2D31 As Circle2D
Set circle2D31 = factory2D2.CreateCircle(-98.658738, -5650.456560, 5156.390192, 1.555139, 1.560390)

circle2D31.ReportName = 124

Dim line2D174 As Line2D
Set line2D174 = factory2D2.CreateLine(-18.160716, -494.890025, -17.924191, -494.698714)

line2D174.ReportName = 125

Dim line2D175 As Line2D
Set line2D175 = factory2D2.CreateLine(-65.765402, -487.124633, -65.265402, -487.124633)

line2D175.ReportName = 126

Dim line2D176 As Line2D
Set line2D176 = factory2D2.CreateLine(-65.765402, -484.124633, -65.265402, -484.124633)

line2D176.ReportName = 127

Dim circle2D32 As Circle2D
Set circle2D32 = factory2D2.CreateCircle(-48.234771, -464.280026, 4.324612, 0.094569, 0.360877)

circle2D32.ReportName = 128

Dim circle2D33 As Circle2D
Set circle2D33 = factory2D2.CreateCircle(194.569911, -440.274213, 239.663530, 3.240213, 3.247356)

circle2D33.ReportName = 129

Dim circle2D34 As Circle2D
Set circle2D34 = factory2D2.CreateCircle(-80.992722, 3189.874191, 3653.933113, 4.722533, 4.729875)

circle2D34.ReportName = 130

Dim ellipse2D8 As Ellipse2D
Set ellipse2D8 = factory2D2.CreateEllipse(-17.917886, -463.948786, 0.039507, -2.499688, 2.500000, 0.834487, 1.746178, 3.101827)

ellipse2D8.ReportName = 131

Dim geometry2D15 As GeometricElement
Set geometry2D15 = geometricElements2.Item("Spline.11")

geometry2D15.ReportName = 132

Dim line2D177 As Line2D
Set line2D177 = factory2D2.CreateLine(-25.938620, -468.274632, -25.950527, -466.574632)

line2D177.ReportName = 133

Dim geometry2D16 As GeometricElement
Set geometry2D16 = geometricElements2.Item("Spline.12")

geometry2D16.ReportName = 134

Dim circle2D35 As Circle2D
Set circle2D35 = factory2D2.CreateCircle(-80.992492, -4146.024706, 3653.934361, 1.553310, 1.560653)

circle2D35.ReportName = 135

Dim circle2D36 As Circle2D
Set circle2D36 = factory2D2.CreateCircle(194.572056, -515.875257, 239.665683, 3.035829, 3.042972)

circle2D36.ReportName = 136

Dim line2D178 As Line2D
Set line2D178 = factory2D2.CreateLine(-25.950527, -489.574632, -25.938619, -487.874632)

line2D178.ReportName = 137

Dim circle2D37 As Circle2D
Set circle2D37 = factory2D2.CreateCircle(-48.239326, -491.869137, 4.329055, 5.922658, 6.188693)

circle2D37.ReportName = 138

Dim ellipse2D9 As Ellipse2D
Set ellipse2D9 = factory2D2.CreateEllipse(-17.917886, -492.200477, -0.039507, -2.499688, 2.500000, 0.834487, 0.039765, 1.395415)

ellipse2D9.ReportName = 139

Dim line2D179 As Line2D
Set line2D179 = factory2D2.CreateLine(-3.276576, -487.916733, -2.434714, -488.477921)

line2D179.ReportName = 140

Dim line2D180 As Line2D
Set line2D180 = factory2D2.CreateLine(-3.276582, -468.232527, -2.434718, -467.671335)

line2D180.ReportName = 141

Dim geometry2D17 As GeometricElement
Set geometry2D17 = geometricElements2.Item("Spline.13")

geometry2D17.ReportName = 142

Dim geometry2D18 As GeometricElement
Set geometry2D18 = geometricElements2.Item("Spline.14")

geometry2D18.ReportName = 143

Dim line2D181 As Line2D
Set line2D181 = factory2D2.CreateLine(-31.787762, -466.574632, -31.787762, -467.574632)

line2D181.ReportName = 144

Dim line2D182 As Line2D
Set line2D182 = factory2D2.CreateLine(-31.787762, -467.574632, -31.615053, -468.974632)

line2D182.ReportName = 145

Dim line2D183 As Line2D
Set line2D183 = factory2D2.CreateLine(-31.787762, -466.574632, -26.794614, -466.574632)

line2D183.ReportName = 146

Dim line2D184 As Line2D
Set line2D184 = factory2D2.CreateLine(-25.950527, -466.574632, -26.794614, -466.574632)

line2D184.ReportName = 147

Dim line2D185 As Line2D
Set line2D185 = factory2D2.CreateLine(-26.794614, -466.574632, -26.794614, -467.574632)

line2D185.ReportName = 148

Dim line2D186 As Line2D
Set line2D186 = factory2D2.CreateLine(-26.794614, -467.574632, -26.621905, -468.974632)

line2D186.ReportName = 149

Dim line2D187 As Line2D
Set line2D187 = factory2D2.CreateLine(-26.621905, -468.974632, -26.559102, -468.974632)

line2D187.ReportName = 150

Dim line2D188 As Line2D
Set line2D188 = factory2D2.CreateLine(-26.559102, -468.974632, -26.559102, -468.274632)

line2D188.ReportName = 151

Dim line2D189 As Line2D
Set line2D189 = factory2D2.CreateLine(-26.559102, -468.274632, -25.938620, -468.274632)

line2D189.ReportName = 152

Dim line2D190 As Line2D
Set line2D190 = factory2D2.CreateLine(-31.787761, -489.574632, -26.794613, -489.574632)

line2D190.ReportName = 153

Dim line2D191 As Line2D
Set line2D191 = factory2D2.CreateLine(-25.950527, -489.574632, -26.794613, -489.574632)

line2D191.ReportName = 154

Dim line2D192 As Line2D
Set line2D192 = factory2D2.CreateLine(-26.559101, -487.874632, -25.938619, -487.874632)

line2D192.ReportName = 155

Dim line2D193 As Line2D
Set line2D193 = factory2D2.CreateLine(-26.559101, -487.174632, -26.559101, -487.874632)

line2D193.ReportName = 156

Dim line2D194 As Line2D
Set line2D194 = factory2D2.CreateLine(-26.621905, -487.174632, -26.559101, -487.174632)

line2D194.ReportName = 157

Dim line2D195 As Line2D
Set line2D195 = factory2D2.CreateLine(-26.794613, -488.574632, -26.621905, -487.174632)

line2D195.ReportName = 158

Dim line2D196 As Line2D
Set line2D196 = factory2D2.CreateLine(-26.794613, -489.574632, -26.794613, -488.574632)

line2D196.ReportName = 159

Dim line2D197 As Line2D
Set line2D197 = factory2D2.CreateLine(-31.787761, -488.574632, -31.615052, -487.174632)

line2D197.ReportName = 160

Dim line2D198 As Line2D
Set line2D198 = factory2D2.CreateLine(-31.787761, -489.574632, -31.787761, -488.574632)

line2D198.ReportName = 161

Dim line2D199 As Line2D
Set line2D199 = factory2D2.CreateLine(-31.787762, -467.574632, -26.794614, -467.574632)

line2D199.ReportName = 162

Dim line2D200 As Line2D
Set line2D200 = factory2D2.CreateLine(-31.615053, -468.974632, -26.621905, -468.974632)

line2D200.ReportName = 163

Dim line2D201 As Line2D
Set line2D201 = factory2D2.CreateLine(-31.787761, -488.574632, -26.794613, -488.574632)

line2D201.ReportName = 164

Dim line2D202 As Line2D
Set line2D202 = factory2D2.CreateLine(-31.615052, -487.174632, -26.621905, -487.174632)

line2D202.ReportName = 165

Dim line2D203 As Line2D
Set line2D203 = factory2D2.CreateLine(-2.294607, -472.365619, -2.294607, -483.783643)

line2D203.ReportName = 166

Dim line2D204 As Line2D
Set line2D204 = factory2D2.CreateLine(-65.265402, -484.124633, -65.265402, -487.124633)

line2D204.ReportName = 167

Dim line2D205 As Line2D
Set line2D205 = factory2D2.CreateLine(-65.265403, -469.024633, -65.265403, -472.024633)

line2D205.ReportName = 168

Dim point2D5 As Point2D
Set point2D5 = factory2D2.CreatePoint(-13.272067, -478.074631)

point2D5.ReportName = 169

point2D5.Construction = True

Dim point2D6 As Point2D
Set point2D6 = factory2D2.CreatePoint(-65.765403, -468.724583)

point2D6.ReportName = 170

point2D6.Construction = True

Dim point2D7 As Point2D
Set point2D7 = factory2D2.CreatePoint(-65.765403, -472.325183)

point2D7.ReportName = 171

point2D7.Construction = True

Dim point2D8 As Point2D
Set point2D8 = factory2D2.CreatePoint(-65.765402, -483.824583)

point2D8.ReportName = 172

point2D8.Construction = True

Dim point2D9 As Point2D
Set point2D9 = factory2D2.CreatePoint(-65.765402, -487.425183)

point2D9.ReportName = 173

point2D9.Construction = True

Dim point2D10 As Point2D
Set point2D10 = factory2D2.CreatePoint(-61.527247, -478.074633)

point2D10.ReportName = 174

point2D10.Construction = True

Dim point2D11 As Point2D
Set point2D11 = factory2D2.CreatePoint(3.290290, -478.074631)

point2D11.ReportName = 175

point2D11.Construction = True

Dim point2D12 As Point2D
Set point2D12 = factory2D2.CreatePoint(-61.743100, -478.074633)

point2D12.ReportName = 176

point2D12.Construction = True

Dim point2D13 As Point2D
Set point2D13 = factory2D2.CreatePoint(-70.276925, -478.074633)

point2D13.ReportName = 177

point2D13.Construction = True

Dim point2D14 As Point2D
Set point2D14 = factory2D2.CreatePoint(-63.206943, -470.524633)

point2D14.ReportName = 178

point2D14.Construction = True

Dim point2D15 As Point2D
Set point2D15 = factory2D2.CreatePoint(-68.813083, -470.524633)

point2D15.ReportName = 179

point2D15.Construction = True

Dim point2D16 As Point2D
Set point2D16 = factory2D2.CreatePoint(-63.025009, -485.624633)

point2D16.ReportName = 180

point2D16.Construction = True

Dim point2D17 As Point2D
Set point2D17 = factory2D2.CreatePoint(-68.995016, -485.624633)

point2D17.ReportName = 181

point2D17.Construction = True

sketch2.CloseEdition 

Dim sketch3 As CATBaseDispatch
Set sketch3 = printArea1.GetItem("Bottom view")

Dim factory2D3 As Factory2D
Set factory2D3 = sketch3.OpenEdition()

Dim line2D206 As Line2D
Set line2D206 = factory2D3.CreateLine(-57.665403, 475.574633, -57.665403, 480.574633)

line2D206.ReportName = 6

Dim line2D207 As Line2D
Set line2D207 = factory2D3.CreateLine(-57.665403, 475.574633, -57.065403, 475.574633)

line2D207.ReportName = 7

Dim line2D208 As Line2D
Set line2D208 = factory2D3.CreateLine(-57.665403, 480.574633, -57.065403, 480.574633)

line2D208.ReportName = 8

Dim line2D209 As Line2D
Set line2D209 = factory2D3.CreateLine(-55.165403, 475.574633, -55.165402, 480.574633)

line2D209.ReportName = 9

Dim line2D210 As Line2D
Set line2D210 = factory2D3.CreateLine(-57.065402, 480.874633, -57.065403, 475.274633)

line2D210.ReportName = 10

Dim line2D211 As Line2D
Set line2D211 = factory2D3.CreateLine(-49.395379, 488.574633, -45.975811, 488.574632)

line2D211.ReportName = 11

Dim line2D212 As Line2D
Set line2D212 = factory2D3.CreateLine(-45.975811, 488.574632, -44.147195, 488.574632)

line2D212.ReportName = 12

Dim line2D213 As Line2D
Set line2D213 = factory2D3.CreateLine(-49.627523, 488.574633, -49.395379, 488.574633)

line2D213.ReportName = 13

Dim line2D214 As Line2D
Set line2D214 = factory2D3.CreateLine(-49.395379, 467.574632, -45.975812, 467.574632)

line2D214.ReportName = 14

Dim line2D215 As Line2D
Set line2D215 = factory2D3.CreateLine(-45.975812, 467.574632, -44.147196, 467.574632)

line2D215.ReportName = 15

Dim line2D216 As Line2D
Set line2D216 = factory2D3.CreateLine(-49.627523, 467.574632, -49.395379, 467.574632)

line2D216.ReportName = 16

Dim circle2D38 As Circle2D
Set circle2D38 = factory2D3.CreateCircle(-140.009376, 478.079190, 96.435987, 6.174041, 6.283138)

circle2D38.ReportName = 17

Dim circle2D39 As Circle2D
Set circle2D39 = factory2D3.CreateCircle(-140.006989, 478.070283, 96.433592, 0.000045, 0.109145)

circle2D39.ReportName = 18

Dim line2D217 As Line2D
Set line2D217 = factory2D3.CreateLine(-52.665403, 470.074633, -52.665403, 472.974633)

line2D217.ReportName = 19

Dim line2D218 As Line2D
Set line2D218 = factory2D3.CreateLine(-52.665402, 486.074633, -52.665402, 483.174633)

line2D218.ReportName = 20

Dim line2D219 As Line2D
Set line2D219 = factory2D3.CreateLine(-52.665402, 483.174633, -45.102396, 483.174632)

line2D219.ReportName = 21

Dim circle2D40 As Circle2D
Set circle2D40 = factory2D3.CreateCircle(-139.965402, 478.074635, 95.000000, 6.229475, 6.336895)

circle2D40.ReportName = 22

Dim line2D220 As Line2D
Set line2D220 = factory2D3.CreateLine(-45.102396, 472.974632, -52.665403, 472.974633)

line2D220.ReportName = 23

Dim line2D221 As Line2D
Set line2D221 = factory2D3.CreateLine(-59.065403, 475.274633, -57.065403, 475.274633)

line2D221.ReportName = 24

Dim line2D222 As Line2D
Set line2D222 = factory2D3.CreateLine(-59.065403, 475.274633, -59.065402, 480.874633)

line2D222.ReportName = 25

Dim line2D223 As Line2D
Set line2D223 = factory2D3.CreateLine(-59.065402, 480.874633, -57.065402, 480.874633)

line2D223.ReportName = 26

Dim circle2D41 As Circle2D
Set circle2D41 = factory2D3.CreateCircle(-138.231806, 478.215132, 94.653453, 0.109667, 0.152624)

circle2D41.ReportName = 27

Dim drawingView3 As DrawingView
Set drawingView3 = drawingViews1.Item("Bottom view")

Dim geometricElements3 As GeometricElements
Set geometricElements3 = drawingView3.GeometricElements

Dim geometry2D19 As GeometricElement
Set geometry2D19 = geometricElements3.Item("Spline.1")

geometry2D19.ReportName = 28

Dim line2D224 As Line2D
Set line2D224 = factory2D3.CreateLine(-45.975811, 488.574632, -45.975811, 495.587564)

line2D224.ReportName = 29

Dim line2D225 As Line2D
Set line2D225 = factory2D3.CreateLine(-67.697999, 459.439102, -67.697998, 496.710164)

line2D225.ReportName = 30

Dim line2D226 As Line2D
Set line2D226 = factory2D3.CreateLine(-45.975812, 467.574632, -45.975812, 460.561701)

line2D226.ReportName = 31

Dim geometry2D20 As GeometricElement
Set geometry2D20 = geometricElements3.Item("Spline.2")

geometry2D20.ReportName = 32

Dim circle2D42 As Circle2D
Set circle2D42 = factory2D3.CreateCircle(-138.231806, 477.934139, 94.653453, 6.130561, 6.173519)

circle2D42.ReportName = 33

Dim geometry2D21 As GeometricElement
Set geometry2D21 = geometricElements3.Item("Spline.3")

geometry2D21.ReportName = 34

Dim ellipse2D10 As Ellipse2D
Set ellipse2D10 = factory2D3.CreateEllipse(-17.917886, 492.200477, 0.071113, -4.499438, 4.500000, 1.502077, 1.746178, 3.101827)

ellipse2D10.ReportName = 35

Dim circle2D43 As Circle2D
Set circle2D43 = factory2D3.CreateCircle(-99.300379, 5699.388128, 5203.327442, 4.722445, 4.728028)

circle2D43.ReportName = 36

Dim ellipse2D11 As Ellipse2D
Set ellipse2D11 = factory2D3.CreateEllipse(-47.051352, 491.814937, -0.009332, -4.511083, 4.511093, 1.950123, 2.562193, 3.108673)

ellipse2D11.ReportName = 37

Dim line2D227 As Line2D
Set line2D227 = factory2D3.CreateLine(-18.099896, 496.835340, -17.929235, 496.697303)

line2D227.ReportName = 38

Dim line2D228 As Line2D
Set line2D228 = factory2D3.CreateLine(-2.811208, 489.021705, -2.833430, 489.052549)

line2D228.ReportName = 39

Dim geometry2D22 As GeometricElement
Set geometry2D22 = geometricElements3.Item("Spline.4")

geometry2D22.ReportName = 40

Dim circle2D44 As Circle2D
Set circle2D44 = factory2D3.CreateCircle(-18.051387, 478.065513, 18.769796, 0.623409, 1.573381)

circle2D44.ReportName = 41

Dim line2D229 As Line2D
Set line2D229 = factory2D3.CreateLine(-67.697998, 496.710164, -18.099896, 496.835340)

line2D229.ReportName = 42

Dim line2D230 As Line2D
Set line2D230 = factory2D3.CreateLine(-67.697999, 459.439102, -18.099897, 459.313923)

line2D230.ReportName = 43

Dim ellipse2D12 As Ellipse2D
Set ellipse2D12 = factory2D3.CreateEllipse(-47.051353, 464.334328, 0.009332, -4.511083, 4.511093, 1.950123, 0.032919, 0.579400)

ellipse2D12.ReportName = 44

Dim circle2D45 As Circle2D
Set circle2D45 = factory2D3.CreateCircle(-99.300697, -4743.236286, 5203.324868, 1.555157, 1.560740)

circle2D45.ReportName = 45

Dim ellipse2D13 As Ellipse2D
Set ellipse2D13 = factory2D3.CreateEllipse(-17.917886, 463.948786, -0.071113, -4.499438, 4.500000, 1.502077, 0.039765, 1.395415)

ellipse2D13.ReportName = 46

Dim geometry2D23 As GeometricElement
Set geometry2D23 = geometricElements3.Item("Spline.5")

geometry2D23.ReportName = 47

Dim circle2D46 As Circle2D
Set circle2D46 = factory2D3.CreateCircle(-18.051387, 478.083750, 18.769796, 4.709804, 5.659777)

circle2D46.ReportName = 48

Dim line2D231 As Line2D
Set line2D231 = factory2D3.CreateLine(-2.833426, 467.096719, -2.811204, 467.127563)

line2D231.ReportName = 49

Dim geometry2D24 As GeometricElement
Set geometry2D24 = geometricElements3.Item("Spline.6")

geometry2D24.ReportName = 50

Dim line2D232 As Line2D
Set line2D232 = factory2D3.CreateLine(-18.099897, 459.313923, -17.929236, 459.451960)

line2D232.ReportName = 51

Dim geometry2D25 As GeometricElement
Set geometry2D25 = geometricElements3.Item("Spline.7")

geometry2D25.ReportName = 52

Dim geometry2D26 As GeometricElement
Set geometry2D26 = geometricElements3.Item("Spline.8")

geometry2D26.ReportName = 53

Dim geometry2D27 As GeometricElement
Set geometry2D27 = geometricElements3.Item("Spline.9")

geometry2D27.ReportName = 54

Dim geometry2D28 As GeometricElement
Set geometry2D28 = geometricElements3.Item("Spline.10")

geometry2D28.ReportName = 55

Dim line2D233 As Line2D
Set line2D233 = factory2D3.CreateLine(-55.665403, 470.074633, -55.803996, 470.074633)

line2D233.ReportName = 56

Dim line2D234 As Line2D
Set line2D234 = factory2D3.CreateLine(-52.665403, 470.074633, -55.665403, 470.074633)

line2D234.ReportName = 57

Dim line2D235 As Line2D
Set line2D235 = factory2D3.CreateLine(-55.665402, 486.074633, -55.803996, 486.074633)

line2D235.ReportName = 58

Dim line2D236 As Line2D
Set line2D236 = factory2D3.CreateLine(-55.665402, 486.074633, -52.665402, 486.074633)

line2D236.ReportName = 59

Dim line2D237 As Line2D
Set line2D237 = factory2D3.CreateLine(-55.165402, 480.574633, -55.308775, 480.574633)

line2D237.ReportName = 60

Dim line2D238 As Line2D
Set line2D238 = factory2D3.CreateLine(-55.308775, 480.574633, -55.665402, 480.574633)

line2D238.ReportName = 61

Dim line2D239 As Line2D
Set line2D239 = factory2D3.CreateLine(-55.165403, 475.574633, -55.308775, 475.574633)

line2D239.ReportName = 62

Dim line2D240 As Line2D
Set line2D240 = factory2D3.CreateLine(-55.308775, 475.574633, -55.665403, 475.574633)

line2D240.ReportName = 63

Dim line2D241 As Line2D
Set line2D241 = factory2D3.CreateLine(-55.308775, 475.574633, -55.308775, 480.574633)

line2D241.ReportName = 64

Dim line2D242 As Line2D
Set line2D242 = factory2D3.CreateLine(-55.665402, 480.574633, -55.665402, 486.074633)

line2D242.ReportName = 65

Dim line2D243 As Line2D
Set line2D243 = factory2D3.CreateLine(-55.665403, 475.574633, -55.665403, 470.074633)

line2D243.ReportName = 66

Dim line2D244 As Line2D
Set line2D244 = factory2D3.CreateLine(-55.803996, 470.074633, -55.803996, 486.074633)

line2D244.ReportName = 67

Dim line2D245 As Line2D
Set line2D245 = factory2D3.CreateLine(-49.627523, 488.574633, -49.627523, 491.802380)

line2D245.ReportName = 68

Dim line2D246 As Line2D
Set line2D246 = factory2D3.CreateLine(-49.627522, 496.530769, -46.977840, 496.323444)

line2D246.ReportName = 69

Dim line2D247 As Line2D
Set line2D247 = factory2D3.CreateLine(-51.716818, 496.694247, -49.627522, 496.530769)

line2D247.ReportName = 70

Dim line2D248 As Line2D
Set line2D248 = factory2D3.CreateLine(-51.716818, 493.892270, -51.716818, 496.694247)

line2D248.ReportName = 71

Dim line2D249 As Line2D
Set line2D249 = factory2D3.CreateLine(-51.716818, 493.892270, -50.521301, 493.798726)

line2D249.ReportName = 72

Dim ellipse2D14 As Ellipse2D
Set ellipse2D14 = factory2D3.CreateEllipse(-50.556096, 491.800044, -0.001384, -2.000001, 2.000001, 0.928572, 1.572286, 3.105603)

ellipse2D14.ReportName = 73

Dim line2D250 As Line2D
Set line2D250 = factory2D3.CreateLine(-49.627523, 464.346885, -49.627523, 467.574632)

line2D250.ReportName = 74

Dim line2D251 As Line2D
Set line2D251 = factory2D3.CreateLine(-49.627524, 459.618496, -46.977841, 459.825821)

line2D251.ReportName = 75

Dim line2D252 As Line2D
Set line2D252 = factory2D3.CreateLine(-51.716819, 459.455018, -49.627524, 459.618496)

line2D252.ReportName = 76

Dim line2D253 As Line2D
Set line2D253 = factory2D3.CreateLine(-51.716819, 459.455018, -51.716819, 462.256995)

line2D253.ReportName = 77

Dim line2D254 As Line2D
Set line2D254 = factory2D3.CreateLine(-51.716819, 462.256995, -50.521302, 462.350539)

line2D254.ReportName = 78

Dim ellipse2D15 As Ellipse2D
Set ellipse2D15 = factory2D3.CreateEllipse(-50.556096, 464.349221, 0.001383, -2.000001, 2.000001, 0.928572, 0.035990, 1.569307)

ellipse2D15.ReportName = 79

Dim line2D255 As Line2D
Set line2D255 = factory2D3.CreateLine(-49.627523, 491.802380, -63.079196, 491.768431)

line2D255.ReportName = 80

Dim line2D256 As Line2D
Set line2D256 = factory2D3.CreateLine(-63.079196, 491.768431, -63.079196, 488.574633)

line2D256.ReportName = 81

Dim line2D257 As Line2D
Set line2D257 = factory2D3.CreateLine(-63.079197, 464.380835, -49.627523, 464.346885)

line2D257.ReportName = 82

Dim line2D258 As Line2D
Set line2D258 = factory2D3.CreateLine(-63.079197, 464.380835, -63.079197, 467.574633)

line2D258.ReportName = 83

Dim line2D259 As Line2D
Set line2D259 = factory2D3.CreateLine(-63.079196, 488.574633, -63.079197, 467.574633)

line2D259.ReportName = 84

Dim line2D260 As Line2D
Set line2D260 = factory2D3.CreateLine(-64.811247, 488.574633, -64.811248, 467.574633)

line2D260.ReportName = 85

Dim line2D261 As Line2D
Set line2D261 = factory2D3.CreateLine(-66.254622, 496.657556, -51.716818, 496.694247)

line2D261.ReportName = 86

Dim line2D262 As Line2D
Set line2D262 = factory2D3.CreateLine(-67.120648, 496.674121, -67.697998, 496.710164)

line2D262.ReportName = 87

Dim circle2D47 As Circle2D
Set circle2D47 = factory2D3.CreateCircle(-66.403860, 512.701626, 16.044181, 4.667696, 4.721690)

circle2D47.ReportName = 88

Dim line2D263 As Line2D
Set line2D263 = factory2D3.CreateLine(-50.521301, 493.798726, -64.214783, 493.764166)

line2D263.ReportName = 89

Dim line2D264 As Line2D
Set line2D264 = factory2D3.CreateLine(-65.701430, 493.856975, -51.716818, 493.892270)

line2D264.ReportName = 90

Dim line2D265 As Line2D
Set line2D265 = factory2D3.CreateLine(-64.214783, 493.764166, -65.701430, 493.856975)

line2D265.ReportName = 91

Dim line2D266 As Line2D
Set line2D266 = factory2D3.CreateLine(-64.811247, 492.632273, -64.811247, 488.574633)

line2D266.ReportName = 92

Dim line2D267 As Line2D
Set line2D267 = factory2D3.CreateLine(-64.811247, 492.632273, -63.079196, 491.768431)

line2D267.ReportName = 93

Dim ellipse2D16 As Ellipse2D
Set ellipse2D16 = factory2D3.CreateEllipse(-64.233933, 491.764847, 0.002254, -2.000670, 2.000671, 0.577449, 2.618487, 3.104521)

ellipse2D16.ReportName = 94

Dim line2D268 As Line2D
Set line2D268 = factory2D3.CreateLine(-63.079196, 491.768431, -63.947407, 493.498296)

line2D268.ReportName = 95

Dim circle2D48 As Circle2D
Set circle2D48 = factory2D3.CreateCircle(-65.703522, 492.577580, 1.279224, 1.569161, 2.016259)

circle2D48.ReportName = 96

Dim line2D269 As Line2D
Set line2D269 = factory2D3.CreateLine(-66.254622, 496.657556, -66.254622, 493.731788)

line2D269.ReportName = 97

Dim ellipse2D17 As Ellipse2D
Set ellipse2D17 = factory2D3.CreateEllipse(-64.212261, 492.764872, 0.062307, 0.998057, 1.000000, 0.865604, 0.074908, 1.624782)

ellipse2D17.ReportName = 98

Dim circle2D49 As Circle2D
Set circle2D49 = factory2D3.CreateCircle(-65.120997, 492.349274, 0.418604, 0.740299, 1.468386)

circle2D49.ReportName = 99

Dim ellipse2D18 As Ellipse2D
Set ellipse2D18 = factory2D3.CreateEllipse(-63.945221, 492.632273, -0.706214, -0.707999, 1.000000, 0.774987, 4.054309, 5.370469)

ellipse2D18.ReportName = 100

Dim circle2D50 As Circle2D
Set circle2D50 = factory2D3.CreateCircle(-65.361198, 491.942115, 2.000611, 2.033813, 2.646391)

circle2D50.ReportName = 101

Dim line2D270 As Line2D
Set line2D270 = factory2D3.CreateLine(-67.120648, 496.674121, -67.120648, 492.892373)

line2D270.ReportName = 102

Dim line2D271 As Line2D
Set line2D271 = factory2D3.CreateLine(-65.078286, 492.764872, -67.120648, 492.892373)

line2D271.ReportName = 103

Dim line2D272 As Line2D
Set line2D272 = factory2D3.CreateLine(-66.254624, 459.491710, -51.716819, 459.455018)

line2D272.ReportName = 104

Dim line2D273 As Line2D
Set line2D273 = factory2D3.CreateLine(-67.697999, 459.439102, -67.120649, 459.475145)

line2D273.ReportName = 105

Dim circle2D51 As Circle2D
Set circle2D51 = factory2D3.CreateCircle(-66.403862, 443.447648, 16.044173, 1.561495, 1.615489)

circle2D51.ReportName = 106

Dim line2D274 As Line2D
Set line2D274 = factory2D3.CreateLine(-64.214784, 462.385099, -50.521302, 462.350539)

line2D274.ReportName = 107

Dim line2D275 As Line2D
Set line2D275 = factory2D3.CreateLine(-65.701431, 462.292290, -51.716819, 462.256995)

line2D275.ReportName = 108

Dim line2D276 As Line2D
Set line2D276 = factory2D3.CreateLine(-64.214784, 462.385099, -65.701431, 462.292290)

line2D276.ReportName = 109

Dim line2D277 As Line2D
Set line2D277 = factory2D3.CreateLine(-63.947408, 462.650970, -63.079197, 464.380835)

line2D277.ReportName = 110

Dim ellipse2D19 As Ellipse2D
Set ellipse2D19 = factory2D3.CreateEllipse(-64.233905, 464.383832, -0.002286, -2.000083, 2.000085, 0.577365, 0.037083, 0.523189)

ellipse2D19.ReportName = 111

Dim line2D278 As Line2D
Set line2D278 = factory2D3.CreateLine(-64.811248, 463.516993, -64.811248, 467.574633)

line2D278.ReportName = 112

Dim line2D279 As Line2D
Set line2D279 = factory2D3.CreateLine(-64.811248, 463.516992, -63.079197, 464.380835)

line2D279.ReportName = 113

Dim circle2D52 As Circle2D
Set circle2D52 = factory2D3.CreateCircle(-65.120999, 463.799989, 0.418602, 4.814801, 5.542893)

circle2D52.ReportName = 114

Dim line2D280 As Line2D
Set line2D280 = factory2D3.CreateLine(-65.078287, 463.384394, -67.120649, 463.256893)

line2D280.ReportName = 115

Dim line2D281 As Line2D
Set line2D281 = factory2D3.CreateLine(-67.120649, 459.475145, -67.120649, 463.256893)

line2D281.ReportName = 116

Dim circle2D53 As Circle2D
Set circle2D53 = factory2D3.CreateCircle(-65.703523, 463.571685, 1.279224, 4.266927, 4.714024)

circle2D53.ReportName = 117

Dim line2D282 As Line2D
Set line2D282 = factory2D3.CreateLine(-66.254624, 459.491710, -66.254623, 462.417478)

line2D282.ReportName = 118

Dim ellipse2D20 As Ellipse2D
Set ellipse2D20 = factory2D3.CreateEllipse(-63.945222, 463.516992, 0.706214, -0.707999, 1.000000, 0.774987, 4.054309, 5.370469)

ellipse2D20.ReportName = 119

Dim ellipse2D21 As Ellipse2D
Set ellipse2D21 = factory2D3.CreateEllipse(-64.212262, 463.384394, 0.062307, -0.998057, 1.000000, 0.865604, 4.658403, 6.208277)

ellipse2D21.ReportName = 120

Dim circle2D54 As Circle2D
Set circle2D54 = factory2D3.CreateCircle(-65.361208, 464.207146, 2.000601, 3.636794, 4.249376)

circle2D54.ReportName = 121

Dim line2D283 As Line2D
Set line2D283 = factory2D3.CreateLine(-2.811208, 489.021705, -2.812413, 489.023374)

line2D283.ReportName = 122

Dim line2D284 As Line2D
Set line2D284 = factory2D3.CreateLine(-2.812409, 467.125894, -2.811204, 467.127563)

line2D284.ReportName = 123

Dim circle2D55 As Circle2D
Set circle2D55 = factory2D3.CreateCircle(-17.959440, 478.017906, 18.656597, 5.657838, 5.697742)

circle2D55.ReportName = 124

Dim circle2D56 As Circle2D
Set circle2D56 = factory2D3.CreateCircle(-17.959440, 478.131356, 18.656597, 0.585444, 0.625348)

circle2D56.ReportName = 125

Dim point2D18 As Point2D
Set point2D18 = factory2D3.CreatePoint(-72.216257, 478.074633)

point2D18.ReportName = 126

point2D18.Construction = True

Dim point2D19 As Point2D
Set point2D19 = factory2D3.CreatePoint(-25.551541, 478.074632)

point2D19.ReportName = 127

point2D19.Construction = True

sketch3.CloseEdition 

Dim sketch4 As CATBaseDispatch
Set sketch4 = printArea1.GetItem("Left view")

Dim factory2D4 As Factory2D
Set factory2D4 = sketch4.OpenEdition()

Dim line2D285 As Line2D
Set line2D285 = factory2D4.CreateLine(478.876224, 105.275192, 478.882626, 105.275192)

line2D285.ReportName = 5

Dim line2D286 As Line2D
Set line2D286 = factory2D4.CreateLine(477.266637, 105.275192, 478.876224, 105.275192)

line2D286.ReportName = 6

Dim line2D287 As Line2D
Set line2D287 = factory2D4.CreateLine(488.574632, 84.710005, 488.574633, 92.075191)

line2D287.ReportName = 7

Dim line2D288 As Line2D
Set line2D288 = factory2D4.CreateLine(488.574632, 82.483191, 488.574632, 84.710005)

line2D288.ReportName = 8

Dim line2D289 As Line2D
Set line2D289 = factory2D4.CreateLine(488.574633, 92.075191, 488.574633, 92.575191)

line2D289.ReportName = 9

Dim line2D290 As Line2D
Set line2D290 = factory2D4.CreateLine(467.574632, 84.710004, 467.574632, 92.075191)

line2D290.ReportName = 10

Dim line2D291 As Line2D
Set line2D291 = factory2D4.CreateLine(467.574632, 82.483191, 467.574632, 84.710004)

line2D291.ReportName = 11

Dim line2D292 As Line2D
Set line2D292 = factory2D4.CreateLine(467.574632, 92.075191, 467.574632, 92.575191)

line2D292.ReportName = 12

Dim circle2D57 As Circle2D
Set circle2D57 = factory2D4.CreateCircle(478.082514, 183.296899, 101.359772, 4.608533, 4.712311)

circle2D57.ReportName = 13

Dim circle2D58 As Circle2D
Set circle2D58 = factory2D4.CreateCircle(478.066868, 183.299092, 101.361955, 4.712466, 4.816241)

circle2D58.ReportName = 14

Dim circle2D59 As Circle2D
Set circle2D59 = factory2D4.CreateCircle(477.918073, 184.941161, 103.010623, 4.816025, 4.855459)

circle2D59.ReportName = 15

Dim drawingView4 As DrawingView
Set drawingView4 = drawingViews1.Item("Left view")

Dim geometricElements4 As GeometricElements
Set geometricElements4 = drawingView4.GeometricElements

Dim geometry2D29 As GeometricElement
Set geometry2D29 = geometricElements4.Item("Spline.1")

geometry2D29.ReportName = 16

Dim line2D293 As Line2D
Set line2D293 = factory2D4.CreateLine(488.574632, 84.710005, 495.587564, 84.710005)

line2D293.ReportName = 17

Dim line2D294 As Line2D
Set line2D294 = factory2D4.CreateLine(459.439102, 98.575190, 496.710164, 98.575191)

line2D294.ReportName = 18

Dim line2D295 As Line2D
Set line2D295 = factory2D4.CreateLine(496.710164, 98.575191, 495.700951, 100.075191)

line2D295.ReportName = 19

Dim line2D296 As Line2D
Set line2D296 = factory2D4.CreateLine(460.448315, 100.075190, 495.700951, 100.075191)

line2D296.ReportName = 20

Dim line2D297 As Line2D
Set line2D297 = factory2D4.CreateLine(459.439102, 98.575190, 460.448315, 100.075190)

line2D297.ReportName = 21

Dim line2D298 As Line2D
Set line2D298 = factory2D4.CreateLine(467.574632, 84.710004, 460.561701, 84.710004)

line2D298.ReportName = 22

Dim geometry2D30 As GeometricElement
Set geometry2D30 = geometricElements4.Item("Spline.2")

geometry2D30.ReportName = 23

Dim circle2D60 As Circle2D
Set circle2D60 = factory2D4.CreateCircle(478.231189, 184.941158, 103.010621, 4.569319, 4.608753)

circle2D60.ReportName = 24

Dim circle2D61 As Circle2D
Set circle2D61 = factory2D4.CreateCircle(-1121.713166, 166.211764, 1619.981186, 6.234188, 6.239140)

circle2D61.ReportName = 25

Dim circle2D62 As Circle2D
Set circle2D62 = factory2D4.CreateCircle(492.337830, 87.024626, 3.989175, 5.664286, 6.243960)

circle2D62.ReportName = 26

Dim line2D299 As Line2D
Set line2D299 = factory2D4.CreateLine(496.697303, 94.882722, 496.835340, 98.575192)

line2D299.ReportName = 27

Dim line2D300 As Line2D
Set line2D300 = factory2D4.CreateLine(496.697303, 94.882722, 496.697844, 94.895608)

line2D300.ReportName = 28

Dim line2D301 As Line2D
Set line2D301 = factory2D4.CreateLine(496.710164, 98.575191, 496.835340, 98.575192)

line2D301.ReportName = 29

Dim line2D302 As Line2D
Set line2D302 = factory2D4.CreateLine(496.835340, 98.575192, 495.823581, 100.075192)

line2D302.ReportName = 30

Dim line2D303 As Line2D
Set line2D303 = factory2D4.CreateLine(495.700951, 100.075191, 495.823581, 100.075192)

line2D303.ReportName = 31

Dim line2D304 As Line2D
Set line2D304 = factory2D4.CreateLine(460.325682, 100.075192, 460.448315, 100.075190)

line2D304.ReportName = 32

Dim line2D305 As Line2D
Set line2D305 = factory2D4.CreateLine(459.313923, 98.575192, 460.325682, 100.075192)

line2D305.ReportName = 33

Dim line2D306 As Line2D
Set line2D306 = factory2D4.CreateLine(459.313923, 98.575192, 459.439102, 98.575190)

line2D306.ReportName = 34

Dim circle2D63 As Circle2D
Set circle2D63 = factory2D4.CreateCircle(463.811435, 87.024625, 3.989175, 3.180817, 3.760492)

circle2D63.ReportName = 35

Dim circle2D64 As Circle2D
Set circle2D64 = factory2D4.CreateCircle(2077.822654, 166.210303, 1619.941385, 3.185638, 3.190591)

circle2D64.ReportName = 36

Dim line2D307 As Line2D
Set line2D307 = factory2D4.CreateLine(459.451960, 94.882722, 459.451419, 94.895608)

line2D307.ReportName = 37

Dim line2D308 As Line2D
Set line2D308 = factory2D4.CreateLine(459.451960, 94.882722, 459.313923, 98.575192)

line2D308.ReportName = 38

Dim line2D309 As Line2D
Set line2D309 = factory2D4.CreateLine(466.574632, 100.075216, 466.574632, 105.178138)

line2D309.ReportName = 39

Dim line2D310 As Line2D
Set line2D310 = factory2D4.CreateLine(466.574632, 105.178138, 467.574632, 105.178138)

line2D310.ReportName = 40

Dim line2D311 As Line2D
Set line2D311 = factory2D4.CreateLine(467.574632, 105.178138, 468.974632, 101.882660)

line2D311.ReportName = 41

Dim line2D312 As Line2D
Set line2D312 = factory2D4.CreateLine(468.974632, 101.882660, 468.974632, 100.684305)

line2D312.ReportName = 42

Dim line2D313 As Line2D
Set line2D313 = factory2D4.CreateLine(468.974632, 100.684305, 468.274632, 100.684305)

line2D313.ReportName = 43

Dim line2D314 As Line2D
Set line2D314 = factory2D4.CreateLine(468.274632, 100.684305, 468.274632, 100.075216)

line2D314.ReportName = 44

Dim line2D315 As Line2D
Set line2D315 = factory2D4.CreateLine(466.574632, 105.178138, 466.574632, 105.439818)

line2D315.ReportName = 45

Dim line2D316 As Line2D
Set line2D316 = factory2D4.CreateLine(466.574632, 105.439818, 467.574632, 105.439818)

line2D316.ReportName = 46

Dim line2D317 As Line2D
Set line2D317 = factory2D4.CreateLine(467.574632, 105.439818, 468.974632, 102.144340)

line2D317.ReportName = 47

Dim line2D318 As Line2D
Set line2D318 = factory2D4.CreateLine(489.574632, 100.075216, 489.574632, 105.178138)

line2D318.ReportName = 48

Dim line2D319 As Line2D
Set line2D319 = factory2D4.CreateLine(489.574632, 105.178138, 489.574632, 105.439818)

line2D319.ReportName = 49

Dim line2D320 As Line2D
Set line2D320 = factory2D4.CreateLine(488.574632, 105.439818, 487.174632, 102.144340)

line2D320.ReportName = 50

Dim line2D321 As Line2D
Set line2D321 = factory2D4.CreateLine(489.574632, 105.439818, 488.574632, 105.439818)

line2D321.ReportName = 51

Dim line2D322 As Line2D
Set line2D322 = factory2D4.CreateLine(487.874632, 100.684305, 487.874632, 100.075216)

line2D322.ReportName = 52

Dim line2D323 As Line2D
Set line2D323 = factory2D4.CreateLine(487.174632, 100.684305, 487.874632, 100.684305)

line2D323.ReportName = 53

Dim line2D324 As Line2D
Set line2D324 = factory2D4.CreateLine(487.174632, 101.882660, 487.174632, 100.684305)

line2D324.ReportName = 54

Dim line2D325 As Line2D
Set line2D325 = factory2D4.CreateLine(488.574632, 105.178138, 487.174632, 101.882660)

line2D325.ReportName = 55

Dim line2D326 As Line2D
Set line2D326 = factory2D4.CreateLine(489.574632, 105.178138, 488.574632, 105.178138)

line2D326.ReportName = 56

Dim line2D327 As Line2D
Set line2D327 = factory2D4.CreateLine(467.574632, 105.178138, 467.574632, 105.439818)

line2D327.ReportName = 57

Dim line2D328 As Line2D
Set line2D328 = factory2D4.CreateLine(468.974632, 101.882660, 468.974632, 102.144340)

line2D328.ReportName = 58

Dim line2D329 As Line2D
Set line2D329 = factory2D4.CreateLine(488.574632, 105.178138, 488.574632, 105.439818)

line2D329.ReportName = 59

Dim line2D330 As Line2D
Set line2D330 = factory2D4.CreateLine(487.174632, 101.882660, 487.174632, 102.144340)

line2D330.ReportName = 60

Dim line2D331 As Line2D
Set line2D331 = factory2D4.CreateLine(496.323444, 86.868210, 496.530769, 92.575191)

line2D331.ReportName = 61

Dim line2D332 As Line2D
Set line2D332 = factory2D4.CreateLine(496.530769, 92.575191, 496.694247, 97.075191)

line2D332.ReportName = 62

Dim line2D333 As Line2D
Set line2D333 = factory2D4.CreateLine(493.798726, 94.500244, 493.892270, 97.075191)

line2D333.ReportName = 63

Dim circle2D65 As Circle2D
Set circle2D65 = factory2D4.CreateCircle(491.802922, 94.572307, 1.997077, 4.712118, 6.247094)

circle2D65.ReportName = 64

Dim line2D334 As Line2D
Set line2D334 = factory2D4.CreateLine(459.825821, 86.868210, 459.618496, 92.575191)

line2D334.ReportName = 65

Dim line2D335 As Line2D
Set line2D335 = factory2D4.CreateLine(459.618496, 92.575191, 459.455018, 97.075191)

line2D335.ReportName = 66

Dim line2D336 As Line2D
Set line2D336 = factory2D4.CreateLine(462.350539, 94.500244, 462.256995, 97.075191)

line2D336.ReportName = 67

Dim circle2D66 As Circle2D
Set circle2D66 = factory2D4.CreateCircle(464.346343, 94.572306, 1.997077, 3.177684, 4.712660)

circle2D66.ReportName = 68

Dim line2D337 As Line2D
Set line2D337 = factory2D4.CreateLine(491.802380, 92.575191, 491.768431, 92.575191)

line2D337.ReportName = 69

Dim line2D338 As Line2D
Set line2D338 = factory2D4.CreateLine(491.768431, 92.575191, 488.574633, 92.575191)

line2D338.ReportName = 70

Dim line2D339 As Line2D
Set line2D339 = factory2D4.CreateLine(464.380835, 92.575191, 464.346885, 92.575191)

line2D339.ReportName = 71

Dim line2D340 As Line2D
Set line2D340 = factory2D4.CreateLine(464.380835, 92.575191, 467.574633, 92.575191)

line2D340.ReportName = 72

Dim line2D341 As Line2D
Set line2D341 = factory2D4.CreateLine(488.574633, 92.575191, 467.574633, 92.575191)

line2D341.ReportName = 73

Dim line2D342 As Line2D
Set line2D342 = factory2D4.CreateLine(488.574633, 93.575191, 467.574633, 93.575191)

line2D342.ReportName = 74

Dim line2D343 As Line2D
Set line2D343 = factory2D4.CreateLine(496.657556, 97.075191, 496.694247, 97.075191)

line2D343.ReportName = 75

Dim line2D344 As Line2D
Set line2D344 = factory2D4.CreateLine(496.674121, 97.575191, 496.710164, 98.575191)

line2D344.ReportName = 76

Dim line2D345 As Line2D
Set line2D345 = factory2D4.CreateLine(496.657556, 97.075191, 496.674121, 97.575191)

line2D345.ReportName = 77

Dim line2D346 As Line2D
Set line2D346 = factory2D4.CreateLine(493.798726, 94.500244, 493.764166, 94.500243)

line2D346.ReportName = 78

Dim line2D347 As Line2D
Set line2D347 = factory2D4.CreateLine(493.764166, 94.500243, 493.856975, 97.075191)

line2D347.ReportName = 79

Dim line2D348 As Line2D
Set line2D348 = factory2D4.CreateLine(492.632273, 93.575191, 488.574633, 93.575191)

line2D348.ReportName = 80

Dim ellipse2D22 As Ellipse2D
Set ellipse2D22 = factory2D4.CreateEllipse(491.768414, 94.575267, 0.000023, -2.000077, 2.000077, 0.997502, 6.283180, 1.047170)

ellipse2D22.ReportName = 81

Dim circle2D67 As Circle2D
Set circle2D67 = factory2D4.CreateCircle(491.766649, 94.573608, 1.998861, 5.760171, 6.246474)

circle2D67.ReportName = 82

Dim circle2D68 As Circle2D
Set circle2D68 = factory2D4.CreateCircle(491.767890, 94.572143, 1.996998, 4.712660, 5.760496)

circle2D68.ReportName = 83

Dim line2D349 As Line2D
Set line2D349 = factory2D4.CreateLine(496.657556, 97.075191, 493.731788, 97.075191)

line2D349.ReportName = 84

Dim ellipse2D23 As Ellipse2D
Set ellipse2D23 = factory2D4.CreateEllipse(492.764872, 94.537717, 0.999351, -0.036020, 1.000000, 0.499757, 4.730400, 6.280274)

ellipse2D23.ReportName = 85

Dim circle2D69 As Circle2D
Set circle2D69 = factory2D4.CreateCircle(491.766655, 94.073607, 0.998859, 5.760756, 6.247247)

circle2D69.ReportName = 86

Dim ellipse2D24 As Ellipse2D
Set ellipse2D24 = factory2D4.CreateEllipse(492.632273, 94.075191, 0.866571, -0.499054, 1.000000, 0.447439, 4.964581, 6.280741)

ellipse2D24.ReportName = 87

Dim geometry2D31 As GeometricElement
Set geometry2D31 = geometricElements4.Item("Spline.3")

geometry2D31.ReportName = 88

Dim line2D350 As Line2D
Set line2D350 = factory2D4.CreateLine(496.674121, 97.575191, 492.892373, 97.575191)

line2D350.ReportName = 89

Dim line2D351 As Line2D
Set line2D351 = factory2D4.CreateLine(492.764872, 94.037717, 492.892373, 97.575191)

line2D351.ReportName = 90

Dim line2D352 As Line2D
Set line2D352 = factory2D4.CreateLine(459.455018, 97.075191, 459.491710, 97.075190)

line2D352.ReportName = 91

Dim line2D353 As Line2D
Set line2D353 = factory2D4.CreateLine(459.439102, 98.575190, 459.475145, 97.575190)

line2D353.ReportName = 92

Dim line2D354 As Line2D
Set line2D354 = factory2D4.CreateLine(459.491710, 97.075190, 459.475145, 97.575190)

line2D354.ReportName = 93

Dim line2D355 As Line2D
Set line2D355 = factory2D4.CreateLine(462.385099, 94.500243, 462.350539, 94.500244)

line2D355.ReportName = 94

Dim line2D356 As Line2D
Set line2D356 = factory2D4.CreateLine(462.385099, 94.500243, 462.292290, 97.075191)

line2D356.ReportName = 95

Dim circle2D70 As Circle2D
Set circle2D70 = factory2D4.CreateCircle(464.381374, 94.572148, 1.997002, 3.664284, 4.712119)

circle2D70.ReportName = 96

Dim circle2D71 As Circle2D
Set circle2D71 = factory2D4.CreateCircle(464.382617, 94.573609, 1.998862, 3.178305, 3.664607)

circle2D71.ReportName = 97

Dim line2D357 As Line2D
Set line2D357 = factory2D4.CreateLine(463.516993, 93.575191, 467.574633, 93.575191)

line2D357.ReportName = 98

Dim ellipse2D25 As Ellipse2D
Set ellipse2D25 = factory2D4.CreateEllipse(464.380913, 94.575462, -0.000098, -2.000271, 2.000271, 0.997572, 5.236090, 0.000020)

ellipse2D25.ReportName = 99

Dim circle2D72 As Circle2D
Set circle2D72 = factory2D4.CreateCircle(464.382605, 94.073608, 0.998853, 3.177532, 3.664026)

circle2D72.ReportName = 100

Dim line2D358 As Line2D
Set line2D358 = factory2D4.CreateLine(463.384394, 94.037717, 463.256893, 97.575190)

line2D358.ReportName = 101

Dim line2D359 As Line2D
Set line2D359 = factory2D4.CreateLine(459.475145, 97.575190, 463.256893, 97.575190)

line2D359.ReportName = 102

Dim line2D360 As Line2D
Set line2D360 = factory2D4.CreateLine(459.491710, 97.075190, 462.417478, 97.075191)

line2D360.ReportName = 103

Dim ellipse2D26 As Ellipse2D
Set ellipse2D26 = factory2D4.CreateEllipse(463.516992, 94.075191, 0.866571, 0.499054, 1.000000, 0.447439, 3.144037, 4.460197)

ellipse2D26.ReportName = 104

Dim ellipse2D27 As Ellipse2D
Set ellipse2D27 = factory2D4.CreateEllipse(463.384394, 94.537717, -0.999351, -0.036020, 1.000000, 0.499757, 0.002912, 1.552786)

ellipse2D27.ReportName = 105

Dim geometry2D32 As GeometricElement
Set geometry2D32 = geometricElements4.Item("Spline.4")

geometry2D32.ReportName = 106

Dim line2D361 As Line2D
Set line2D361 = factory2D4.CreateLine(478.882626, 105.275192, 478.973391, 100.075221)

line2D361.ReportName = 107

Dim line2D362 As Line2D
Set line2D362 = factory2D4.CreateLine(477.266637, 105.275192, 477.175871, 100.075221)

line2D362.ReportName = 108

Dim line2D363 As Line2D
Set line2D363 = factory2D4.CreateLine(496.697844, 94.895608, 496.835416, 98.575613)

line2D363.ReportName = 109

Dim line2D364 As Line2D
Set line2D364 = factory2D4.CreateLine(459.451419, 94.895608, 459.313847, 98.575612)

line2D364.ReportName = 110

Dim line2D365 As Line2D
Set line2D365 = factory2D4.CreateLine(496.835404, 98.575186, 495.823637, 100.075192)

line2D365.ReportName = 111

Dim line2D366 As Line2D
Set line2D366 = factory2D4.CreateLine(459.313859, 98.575186, 460.325626, 100.075192)

line2D366.ReportName = 112

Dim point2D20 As Point2D
Set point2D20 = factory2D4.CreatePoint(478.074631, 107.978222)

point2D20.ReportName = 113

point2D20.Construction = True

Dim point2D21 As Point2D
Set point2D21 = factory2D4.CreatePoint(478.074631, 97.371699)

point2D21.ReportName = 114

point2D21.Construction = True

Dim point2D22 As Point2D
Set point2D22 = factory2D4.CreatePoint(478.074632, 87.411519)

point2D22.ReportName = 115

point2D22.Construction = True

Dim point2D23 As Point2D
Set point2D23 = factory2D4.CreatePoint(478.074633, 97.238863)

point2D23.ReportName = 116

point2D23.Construction = True

sketch4.CloseEdition 

Dim sketch5 As CATBaseDispatch
Set sketch5 = printArea1.GetItem("Isometric view")

Dim factory2D5 As Factory2D
Set factory2D5 = sketch5.OpenEdition()

Dim ellipse2D28 As Ellipse2D
Set ellipse2D28 = factory2D5.CreateEllipse(143.693408, -179.415986, -0.802834, -0.091172, 0.807994, 0.486776, 3.154768, 6.270083)

ellipse2D28.ReportName = 1

Dim ellipse2D29 As Ellipse2D
Set ellipse2D29 = factory2D5.CreateEllipse(143.693408, -179.415986, -0.802834, -0.091172, 0.807994, 0.486776, 1.731683, 3.154768)

ellipse2D29.ReportName = 2

Dim ellipse2D30 As Ellipse2D
Set ellipse2D30 = factory2D5.CreateEllipse(143.693408, -179.415986, -0.802834, -0.091172, 0.807994, 0.486776, 6.270083, 1.731683)

ellipse2D30.ReportName = 3

Dim ellipse2D31 As Ellipse2D
Set ellipse2D31 = factory2D5.CreateEllipse(144.684087, -188.139639, -0.993614, -0.112837, 1.000000, 0.602450, 3.141570, 3.154768)

ellipse2D31.ReportName = 4

Dim ellipse2D32 As Ellipse2D
Set ellipse2D32 = factory2D5.CreateEllipse(144.684087, -188.139639, -0.993614, -0.112837, 1.000000, 0.602450, 0.000060, 3.141570)

ellipse2D32.ReportName = 5

Dim ellipse2D33 As Ellipse2D
Set ellipse2D33 = factory2D5.CreateEllipse(144.684087, -188.139639, -0.993614, -0.112837, 1.000000, 0.602450, 6.270083, 0.000060)

ellipse2D33.ReportName = 6

Dim drawingView5 As DrawingView
Set drawingView5 = drawingViews1.Item("Isometric view")

Dim geometricElements5 As GeometricElements
Set geometricElements5 = drawingView5.GeometricElements

Dim geometry2D33 As GeometricElement
Set geometry2D33 = geometricElements5.Item("Spline.1")

geometry2D33.ReportName = 7

Dim circle2D73 As Circle2D
Set circle2D73 = factory2D5.CreateCircle(144.275157, -189.750395, 0.411862, 3.244864, 3.703124)

circle2D73.ReportName = 8

Dim geometry2D34 As GeometricElement
Set geometry2D34 = geometricElements5.Item("Spline.2")

geometry2D34.ReportName = 9

Dim line2D367 As Line2D
Set line2D367 = factory2D5.CreateLine(101.977296, -195.696997, 103.708907, -198.408093)

line2D367.ReportName = 10

Dim line2D368 As Line2D
Set line2D368 = factory2D5.CreateLine(102.022327, -196.093527, 101.977296, -195.696997)

line2D368.ReportName = 11

Dim line2D369 As Line2D
Set line2D369 = factory2D5.CreateLine(102.022327, -196.093527, 103.753938, -198.804623)

line2D369.ReportName = 12

Dim line2D370 As Line2D
Set line2D370 = factory2D5.CreateLine(103.753938, -198.804623, 103.708907, -198.408093)

line2D370.ReportName = 13

Dim line2D371 As Line2D
Set line2D371 = factory2D5.CreateLine(103.753938, -198.804623, 104.314208, -198.638070)

line2D371.ReportName = 14

Dim line2D372 As Line2D
Set line2D372 = factory2D5.CreateLine(103.709768, -193.952232, 105.441380, -196.663328)

line2D372.ReportName = 15

Dim line2D373 As Line2D
Set line2D373 = factory2D5.CreateLine(101.977296, -195.696997, 103.709768, -193.952232)

line2D373.ReportName = 16

Dim line2D374 As Line2D
Set line2D374 = factory2D5.CreateLine(103.708907, -198.408093, 105.441380, -196.663328)

line2D374.ReportName = 17

Dim line2D375 As Line2D
Set line2D375 = factory2D5.CreateLine(104.176660, -193.813438, 105.908271, -196.524534)

line2D375.ReportName = 18

Dim line2D376 As Line2D
Set line2D376 = factory2D5.CreateLine(106.358580, -200.489831, 105.908271, -196.524534)

line2D376.ReportName = 19

Dim line2D377 As Line2D
Set line2D377 = factory2D5.CreateLine(103.709768, -193.952232, 104.176660, -193.813438)

line2D377.ReportName = 20

Dim line2D378 As Line2D
Set line2D378 = factory2D5.CreateLine(105.441380, -196.663328, 105.908271, -196.524534)

line2D378.ReportName = 21

Dim line2D379 As Line2D
Set line2D379 = factory2D5.CreateLine(106.946869, -205.302906, 104.665448, -201.731002)

line2D379.ReportName = 22

Dim line2D380 As Line2D
Set line2D380 = factory2D5.CreateLine(104.665448, -201.731002, 104.314208, -198.638070)

line2D380.ReportName = 23

Dim line2D381 As Line2D
Set line2D381 = factory2D5.CreateLine(102.933837, -199.019905, 102.726757, -197.196414)

line2D381.ReportName = 24

Dim line2D382 As Line2D
Set line2D382 = factory2D5.CreateLine(102.933837, -199.019905, 100.544213, -195.278592)

line2D382.ReportName = 25

Dim line2D383 As Line2D
Set line2D383 = factory2D5.CreateLine(100.544213, -195.278592, 100.553219, -195.357898)

line2D383.ReportName = 26

Dim line2D384 As Line2D
Set line2D384 = factory2D5.CreateLine(102.838946, -198.936545, 100.553219, -195.357898)

line2D384.ReportName = 27

Dim line2D385 As Line2D
Set line2D385 = factory2D5.CreateLine(102.838946, -198.936545, 102.974039, -200.126134)

line2D385.ReportName = 28

Dim line2D386 As Line2D
Set line2D386 = factory2D5.CreateLine(104.253327, -202.129050, 102.974039, -200.126134)

line2D386.ReportName = 29

Dim line2D387 As Line2D
Set line2D387 = factory2D5.CreateLine(106.911834, -205.313260, 104.778351, -201.972973)

line2D387.ReportName = 30

Dim line2D388 As Line2D
Set line2D388 = factory2D5.CreateLine(107.877516, -204.324584, 105.972744, -201.342378)

line2D388.ReportName = 31

Dim line2D389 As Line2D
Set line2D389 = factory2D5.CreateLine(108.255388, -204.916198, 107.877516, -204.324584)

line2D389.ReportName = 32

Dim line2D390 As Line2D
Set line2D390 = factory2D5.CreateLine(105.972744, -201.342378, 104.665448, -201.731002)

line2D390.ReportName = 33

Dim line2D391 As Line2D
Set line2D391 = factory2D5.CreateLine(100.544213, -195.278592, 101.851508, -194.889969)

line2D391.ReportName = 34

Dim line2D392 As Line2D
Set line2D392 = factory2D5.CreateLine(102.214435, -195.458185, 101.851508, -194.889969)

line2D392.ReportName = 35

Dim line2D393 As Line2D
Set line2D393 = factory2D5.CreateLine(110.591501, -198.121527, 109.477815, -196.708849)

line2D393.ReportName = 36

Dim line2D394 As Line2D
Set line2D394 = factory2D5.CreateLine(112.944433, -197.422065, 112.752875, -195.735262)

line2D394.ReportName = 37

Dim line2D395 As Line2D
Set line2D395 = factory2D5.CreateLine(105.983075, -197.183148, 106.286141, -197.657642)

line2D395.ReportName = 38

Dim line2D396 As Line2D
Set line2D396 = factory2D5.CreateLine(104.750442, -191.406156, 105.207013, -195.426596)

line2D396.ReportName = 39

Dim line2D397 As Line2D
Set line2D397 = factory2D5.CreateLine(104.750442, -191.406156, 105.754777, -192.978592)

line2D397.ReportName = 40

Dim line2D398 As Line2D
Set line2D398 = factory2D5.CreateLine(105.754777, -192.978592, 106.286141, -197.657642)

line2D398.ReportName = 41

Dim line2D399 As Line2D
Set line2D399 = factory2D5.CreateLine(109.287264, -198.509229, 109.492800, -200.319128)

line2D399.ReportName = 42

Dim line2D400 As Line2D
Set line2D400 = factory2D5.CreateLine(109.287264, -198.509229, 110.291599, -200.081665)

line2D400.ReportName = 43

Dim line2D401 As Line2D
Set line2D401 = factory2D5.CreateLine(116.349467, -196.409828, 109.287264, -198.509229)

line2D401.ReportName = 44

Dim circle2D74 As Circle2D
Set circle2D74 = factory2D5.CreateCircle(78.011119, -222.139612, 44.218634, 0.604859, 0.644920)

circle2D74.ReportName = 45

Dim line2D402 As Line2D
Set line2D402 = factory2D5.CreateLine(112.816980, -190.879192, 113.348344, -195.558242)

line2D402.ReportName = 46

Dim line2D403 As Line2D
Set line2D403 = factory2D5.CreateLine(112.816980, -190.879192, 112.681887, -189.689603)

line2D403.ReportName = 47

Dim ellipse2D34 As Ellipse2D
Set ellipse2D34 = factory2D5.CreateEllipse(25.866716, -218.787762, 94.393283, 10.719525, 95.000000, 57.232733, 0.233136, 0.340556)

ellipse2D34.ReportName = 48

Dim line2D404 As Line2D
Set line2D404 = factory2D5.CreateLine(116.349467, -196.409828, 116.214375, -195.220239)

line2D404.ReportName = 49

Dim line2D405 As Line2D
Set line2D405 = factory2D5.CreateLine(113.348344, -195.558242, 106.286141, -197.657642)

line2D405.ReportName = 50

Dim line2D406 As Line2D
Set line2D406 = factory2D5.CreateLine(105.754777, -192.978592, 112.816980, -190.879192)

line2D406.ReportName = 51

Dim line2D407 As Line2D
Set line2D407 = factory2D5.CreateLine(101.631501, -200.525234, 102.974039, -200.126134)

line2D407.ReportName = 52

Dim line2D408 As Line2D
Set line2D408 = factory2D5.CreateLine(100.971381, -199.491721, 102.838946, -198.936545)

line2D408.ReportName = 53

Dim line2D409 As Line2D
Set line2D409 = factory2D5.CreateLine(102.910786, -202.528149, 100.971381, -199.491721)

line2D409.ReportName = 54

Dim line2D410 As Line2D
Set line2D410 = factory2D5.CreateLine(102.910786, -202.528149, 104.778351, -201.972973)

line2D410.ReportName = 55

Dim line2D411 As Line2D
Set line2D411 = factory2D5.CreateLine(111.896989, -200.507666, 112.263128, -203.731788)

line2D411.ReportName = 56

Dim line2D412 As Line2D
Set line2D412 = factory2D5.CreateLine(111.896989, -200.507666, 107.975102, -201.673536)

line2D412.ReportName = 57

Dim line2D413 As Line2D
Set line2D413 = factory2D5.CreateLine(107.975102, -201.673536, 108.340491, -204.891048)

line2D413.ReportName = 58

Dim line2D414 As Line2D
Set line2D414 = factory2D5.CreateLine(101.464243, -191.479814, 101.851508, -194.889969)

line2D414.ReportName = 59

Dim line2D415 As Line2D
Set line2D415 = factory2D5.CreateLine(101.464243, -191.479814, 105.386130, -190.313944)

line2D415.ReportName = 60

Dim line2D416 As Line2D
Set line2D416 = factory2D5.CreateLine(93.817390, -194.771162, 101.560814, -206.894650)

line2D416.ReportName = 61

Dim line2D417 As Line2D
Set line2D417 = factory2D5.CreateLine(107.504666, -190.678417, 105.921326, -191.151865)

line2D417.ReportName = 62

Dim line2D418 As Line2D
Set line2D418 = factory2D5.CreateLine(101.574608, -192.451612, 93.817390, -194.771162)

line2D418.ReportName = 63

Dim line2D419 As Line2D
Set line2D419 = factory2D5.CreateLine(107.833704, -191.193577, 107.504666, -190.678417)

line2D419.ReportName = 64

Dim line2D420 As Line2D
Set line2D420 = factory2D5.CreateLine(107.833704, -191.193577, 112.688788, -189.750293)

line2D420.ReportName = 65

Dim circle2D75 As Circle2D
Set circle2D75 = factory2D5.CreateCircle(80.043354, -220.684868, 45.611926, 0.569283, 0.668274)

circle2D75.ReportName = 66

Dim circle2D76 As Circle2D
Set circle2D76 = factory2D5.CreateCircle(83.689698, -218.372554, 41.293648, 0.429842, 0.569715)

circle2D76.ReportName = 67

Dim line2D421 As Line2D
Set line2D421 = factory2D5.CreateLine(112.087727, -202.187229, 118.945942, -200.148469)

line2D421.ReportName = 68

Dim line2D422 As Line2D
Set line2D422 = factory2D5.CreateLine(107.975102, -201.673536, 107.490251, -200.914429)

line2D422.ReportName = 69

Dim line2D423 As Line2D
Set line2D423 = factory2D5.CreateLine(107.490251, -200.914429, 107.877516, -204.324584)

line2D423.ReportName = 70

Dim line2D424 As Line2D
Set line2D424 = factory2D5.CreateLine(101.949094, -192.238921, 101.464243, -191.479814)

line2D424.ReportName = 71

Dim line2D425 As Line2D
Set line2D425 = factory2D5.CreateLine(101.949094, -192.238921, 102.304393, -195.367588)

line2D425.ReportName = 72

Dim geometry2D35 As GeometricElement
Set geometry2D35 = geometricElements5.Item("Spline.3")

geometry2D35.ReportName = 73

Dim line2D426 As Line2D
Set line2D426 = factory2D5.CreateLine(99.928739, -209.942018, 87.020939, -189.732930)

line2D426.ReportName = 74

Dim line2D427 As Line2D
Set line2D427 = factory2D5.CreateLine(99.928739, -209.942018, 100.388900, -207.924362)

line2D427.ReportName = 75

Dim line2D428 As Line2D
Set line2D428 = factory2D5.CreateLine(100.388900, -207.924362, 88.180126, -188.809702)

line2D428.ReportName = 76

Dim line2D429 As Line2D
Set line2D429 = factory2D5.CreateLine(87.020939, -189.732930, 88.180126, -188.809702)

line2D429.ReportName = 77

Dim line2D430 As Line2D
Set line2D430 = factory2D5.CreateLine(101.949094, -192.238921, 104.750442, -191.406156)

line2D430.ReportName = 78

Dim line2D431 As Line2D
Set line2D431 = factory2D5.CreateLine(105.386130, -190.313944, 106.390464, -191.886380)

line2D431.ReportName = 79

Dim line2D432 As Line2D
Set line2D432 = factory2D5.CreateLine(106.390464, -191.886380, 112.717757, -190.005448)

line2D432.ReportName = 80

Dim line2D433 As Line2D
Set line2D433 = factory2D5.CreateLine(113.825482, -189.676151, 114.047481, -189.610157)

line2D433.ReportName = 81

Dim line2D434 As Line2D
Set line2D434 = factory2D5.CreateLine(118.549671, -196.659008, 114.047481, -189.610157)

line2D434.ReportName = 82

Dim line2D435 As Line2D
Set line2D435 = factory2D5.CreateLine(118.549671, -196.659008, 110.892654, -198.935230)

line2D435.ReportName = 83

Dim line2D436 As Line2D
Set line2D436 = factory2D5.CreateLine(110.892654, -198.935230, 111.896989, -200.507666)

line2D436.ReportName = 84

Dim line2D437 As Line2D
Set line2D437 = factory2D5.CreateLine(110.291599, -200.081665, 107.490251, -200.914429)

line2D437.ReportName = 85

Dim line2D438 As Line2D
Set line2D438 = factory2D5.CreateLine(117.317793, -196.121971, 116.349467, -196.409828)

line2D438.ReportName = 86

Dim line2D439 As Line2D
Set line2D439 = factory2D5.CreateLine(112.681887, -189.689603, 113.650213, -189.401746)

line2D439.ReportName = 87

Dim line2D440 As Line2D
Set line2D440 = factory2D5.CreateLine(117.182701, -194.932382, 116.214375, -195.220239)

line2D440.ReportName = 88

Dim line2D441 As Line2D
Set line2D441 = factory2D5.CreateLine(113.650213, -189.401746, 117.182701, -194.932382)

line2D441.ReportName = 89

Dim line2D442 As Line2D
Set line2D442 = factory2D5.CreateLine(117.317793, -196.121971, 117.182701, -194.932382)

line2D442.ReportName = 90

Dim line2D443 As Line2D
Set line2D443 = factory2D5.CreateLine(92.592295, -194.966795, 96.782795, -201.527648)

line2D443.ReportName = 91

Dim line2D444 As Line2D
Set line2D444 = factory2D5.CreateLine(93.221477, -195.599589, 92.592295, -194.966795)

line2D444.ReportName = 92

Dim line2D445 As Line2D
Set line2D445 = factory2D5.CreateLine(88.906037, -189.195406, 91.553329, -193.340137)

line2D445.ReportName = 93

Dim line2D446 As Line2D
Set line2D446 = factory2D5.CreateLine(88.906037, -189.195406, 89.524666, -189.824325)

line2D446.ReportName = 94

Dim line2D447 As Line2D
Set line2D447 = factory2D5.CreateLine(89.932699, -190.239145, 89.524666, -189.824325)

line2D447.ReportName = 95

Dim line2D448 As Line2D
Set line2D448 = factory2D5.CreateLine(90.660489, -191.378610, 89.932699, -190.239145)

line2D448.ReportName = 96

Dim line2D449 As Line2D
Set line2D449 = factory2D5.CreateLine(90.660489, -191.378610, 92.866192, -193.621001)

line2D449.ReportName = 97

Dim ellipse2D35 As Ellipse2D
Set ellipse2D35 = factory2D5.CreateEllipse(93.188696, -194.139151, 0.712777, -0.829573, 1.093728, 0.111560, 0.621693, 2.154947)

ellipse2D35.ReportName = 98

Dim line2D450 As Line2D
Set line2D450 = factory2D5.CreateLine(100.727982, -207.140773, 100.771902, -207.209537)

line2D450.ReportName = 99

Dim line2D451 As Line2D
Set line2D451 = factory2D5.CreateLine(97.821762, -203.154306, 100.469054, -207.299037)

line2D451.ReportName = 100

Dim line2D452 As Line2D
Set line2D452 = factory2D5.CreateLine(98.450943, -203.787100, 97.821762, -203.154306)

line2D452.ReportName = 101

Dim line2D453 As Line2D
Set line2D453 = factory2D5.CreateLine(106.654994, -189.497899, 92.866192, -193.621001)

line2D453.ReportName = 102

Dim geometry2D36 As GeometricElement
Set geometry2D36 = geometricElements5.Item("Spline.4")

geometry2D36.ReportName = 103

Dim line2D454 As Line2D
Set line2D454 = factory2D5.CreateLine(108.090283, -191.117306, 104.704688, -186.799139)

line2D454.ReportName = 104

Dim line2D455 As Line2D
Set line2D455 = factory2D5.CreateLine(105.432508, -187.938649, 104.704688, -186.799139)

line2D455.ReportName = 105

Dim line2D456 As Line2D
Set line2D456 = factory2D5.CreateLine(106.654953, -189.497838, 105.432508, -187.938649)

line2D456.ReportName = 106

Dim line2D457 As Line2D
Set line2D457 = factory2D5.CreateLine(118.549671, -196.659008, 118.945942, -200.148469)

line2D457.ReportName = 107

Dim line2D458 As Line2D
Set line2D458 = factory2D5.CreateLine(147.500339, -200.321485, 146.730036, -199.048182)

line2D458.ReportName = 108

Dim ellipse2D36 As Ellipse2D
Set ellipse2D36 = factory2D5.CreateEllipse(12.949550, -120.854821, 210.164982, 40.715142, 214.072517, 121.816429, 5.134559, 5.287648)

ellipse2D36.ReportName = 109

Dim ellipse2D37 As Ellipse2D
Set ellipse2D37 = factory2D5.CreateEllipse(118.552980, -210.715232, 2.696659, -3.715047, 4.590593, 0.222428, 5.433085, 5.979565)

ellipse2D37.ReportName = 110

Dim line2D459 As Line2D
Set line2D459 = factory2D5.CreateLine(146.730035, -199.048178, 146.285931, -196.242050)

line2D459.ReportName = 111

Dim geometry2D37 As GeometricElement
Set geometry2D37 = geometricElements5.Item("Spline.5")

geometry2D37.ReportName = 112

Dim ellipse2D38 As Ellipse2D
Set ellipse2D38 = factory2D5.CreateEllipse(139.832715, -186.056376, 18.647031, 2.120986, 18.767268, 11.302881, 4.996511, 5.982033)

ellipse2D38.ReportName = 113

Dim line2D460 As Line2D
Set line2D460 = factory2D5.CreateLine(99.928739, -209.942018, 146.285931, -196.242050)

line2D460.ReportName = 114

Dim line2D461 As Line2D
Set line2D461 = factory2D5.CreateLine(146.285931, -196.242050, 145.802828, -194.503157)

line2D461.ReportName = 115

Dim line2D462 As Line2D
Set line2D462 = factory2D5.CreateLine(100.388900, -207.924362, 145.802828, -194.503157)

line2D462.ReportName = 116

Dim ellipse2D39 As Ellipse2D
Set ellipse2D39 = factory2D5.CreateEllipse(139.696343, -184.866236, 17.643066, 2.006175, 17.756760, 10.694077, 4.996576, 5.982059)

ellipse2D39.ReportName = 117

Dim geometry2D38 As GeometricElement
Set geometry2D38 = geometricElements5.Item("Spline.6")

geometry2D38.ReportName = 118

Dim ellipse2D40 As Ellipse2D
Set ellipse2D40 = factory2D5.CreateEllipse(142.100412, -183.929078, 15.231477, 0.644110, 15.245090, 9.741702, 0.626084, 0.992072)

ellipse2D40.ReportName = 119

Dim ellipse2D41 As Ellipse2D
Set ellipse2D41 = factory2D5.CreateEllipse(141.263270, -184.391661, 16.082897, 1.246066, 16.131096, 10.209494, 0.326357, 0.588614)

ellipse2D41.ReportName = 120

Dim ellipse2D42 As Ellipse2D
Set ellipse2D42 = factory2D5.CreateEllipse(139.697520, -184.868077, 17.642453, 2.007465, 17.756297, 10.694353, 0.874404, 1.859886)

ellipse2D42.ReportName = 121

Dim line2D463 As Line2D
Set line2D463 = factory2D5.CreateLine(127.271315, -177.120727, 133.509114, -175.255512)

line2D463.ReportName = 122

Dim line2D464 As Line2D
Set line2D464 = factory2D5.CreateLine(88.180126, -188.809702, 122.458845, -178.559743)

line2D464.ReportName = 123

Dim line2D465 As Line2D
Set line2D465 = factory2D5.CreateLine(153.248642, -177.974993, 156.322964, -182.788305)

line2D465.ReportName = 124

Dim ellipse2D43 As Ellipse2D
Set ellipse2D43 = factory2D5.CreateEllipse(139.636273, -184.885084, 16.712280, 1.900229, 16.819964, 10.130770, 4.996558, 0.019563)

ellipse2D43.ReportName = 125

Dim line2D466 As Line2D
Set line2D466 = factory2D5.CreateLine(145.420340, -194.014556, 100.989306, -207.145286)

line2D466.ReportName = 126

Dim line2D467 As Line2D
Set line2D467 = factory2D5.CreateLine(100.989306, -207.145286, 100.469054, -207.299037)

line2D467.ReportName = 127

Dim line2D468 As Line2D
Set line2D468 = factory2D5.CreateLine(98.278588, -203.018504, 97.821762, -203.154306)

line2D468.ReportName = 128

Dim line2D469 As Line2D
Set line2D469 = factory2D5.CreateLine(97.239621, -201.391846, 98.278588, -203.018504)

line2D469.ReportName = 129

Dim line2D470 As Line2D
Set line2D470 = factory2D5.CreateLine(97.239621, -201.391846, 96.782795, -201.527648)

line2D470.ReportName = 130

Dim line2D471 As Line2D
Set line2D471 = factory2D5.CreateLine(93.049121, -194.830993, 92.592295, -194.966795)

line2D471.ReportName = 131

Dim line2D472 As Line2D
Set line2D472 = factory2D5.CreateLine(92.010154, -193.204335, 93.049121, -194.830993)

line2D472.ReportName = 132

Dim line2D473 As Line2D
Set line2D473 = factory2D5.CreateLine(92.010154, -193.204335, 91.553329, -193.340137)

line2D473.ReportName = 133

Dim line2D474 As Line2D
Set line2D474 = factory2D5.CreateLine(89.425316, -189.040132, 88.906037, -189.195406)

line2D474.ReportName = 134

Dim line2D475 As Line2D
Set line2D475 = factory2D5.CreateLine(133.773248, -175.779295, 127.502586, -177.654337)

line2D475.ReportName = 135

Dim line2D476 As Line2D
Set line2D476 = factory2D5.CreateLine(122.561010, -179.131958, 89.425316, -189.040132)

line2D476.ReportName = 136

Dim ellipse2D44 As Ellipse2D
Set ellipse2D44 = factory2D5.CreateEllipse(139.636437, -184.885149, 16.712116, 1.900318, 16.819810, 10.130699, 0.553803, 1.860002)

ellipse2D44.ReportName = 137

Dim ellipse2D45 As Ellipse2D
Set ellipse2D45 = factory2D5.CreateEllipse(141.406555, -185.578449, 17.080157, 1.358205, 17.134074, 10.817242, 0.324121, 0.585586)

ellipse2D45.ReportName = 138

Dim circle2D77 As Circle2D
Set circle2D77 = factory2D5.CreateCircle(151.237946, -184.735637, 7.271368, 5.913686, 6.295489)

circle2D77.ReportName = 139

Dim ellipse2D46 As Ellipse2D
Set ellipse2D46 = factory2D5.CreateEllipse(141.559422, -185.566557, 16.928130, 1.342097, 16.981249, 10.775138, 6.244009, 0.325832)

ellipse2D46.ReportName = 140

Dim line2D477 As Line2D
Set line2D477 = factory2D5.CreateLine(93.221477, -195.599589, 93.530951, -195.507590)

line2D477.ReportName = 141

Dim line2D478 As Line2D
Set line2D478 = factory2D5.CreateLine(93.530951, -195.507590, 93.561769, -195.159694)

line2D478.ReportName = 142

Dim ellipse2D47 As Ellipse2D
Set ellipse2D47 = factory2D5.CreateEllipse(93.094152, -195.227523, -0.421382, -0.269142, 0.500000, 0.382772, 2.608431, 3.141641)

ellipse2D47.ReportName = 143

Dim ellipse2D48 As Ellipse2D
Set ellipse2D48 = factory2D5.CreateEllipse(93.094152, -195.227523, -0.421382, -0.269142, 0.500000, 0.382772, 3.141641, 4.353761)

ellipse2D48.ReportName = 144

Dim ellipse2D49 As Ellipse2D
Set ellipse2D49 = factory2D5.CreateEllipse(92.055185, -193.600865, -0.421382, -0.269142, 0.500000, 0.382772, 3.141641, 4.353761)

ellipse2D49.ReportName = 145

Dim geometry2D39 As GeometricElement
Set geometry2D39 = geometricElements5.Item("Spline.7")

geometry2D39.ReportName = 146

Dim circle2D78 As Circle2D
Set circle2D78 = factory2D5.CreateCircle(-13.764631, 56.043335, 278.666942, 5.192702, 5.228828)

circle2D78.ReportName = 147

Dim circle2D79 As Circle2D
Set circle2D79 = factory2D5.CreateCircle(-3.848539, 38.921723, 258.879522, 5.249829, 5.276299)

circle2D79.ReportName = 148

Dim line2D479 As Line2D
Set line2D479 = factory2D5.CreateLine(134.521259, -179.875870, 133.773248, -175.779295)

line2D479.ReportName = 149

Dim line2D480 As Line2D
Set line2D480 = factory2D5.CreateLine(89.932699, -190.239145, 102.893238, -186.363709)

line2D480.ReportName = 150

Dim line2D481 As Line2D
Set line2D481 = factory2D5.CreateLine(90.660489, -191.378610, 103.621028, -187.503173)

line2D481.ReportName = 151

Dim line2D482 As Line2D
Set line2D482 = factory2D5.CreateLine(103.621028, -187.503173, 102.893238, -186.363709)

line2D482.ReportName = 152

Dim geometry2D40 As GeometricElement
Set geometry2D40 = geometricElements5.Item("Spline.8")

geometry2D40.ReportName = 153

Dim circle2D80 As Circle2D
Set circle2D80 = factory2D5.CreateCircle(114.368237, -205.483617, 2.276493, 1.594789, 1.862822)

circle2D80.ReportName = 154

Dim line2D483 As Line2D
Set line2D483 = factory2D5.CreateLine(100.727982, -207.140773, 113.712807, -203.303360)

line2D483.ReportName = 155

Dim line2D484 As Line2D
Set line2D484 = factory2D5.CreateLine(113.712807, -203.303360, 113.756727, -203.372124)

line2D484.ReportName = 156

Dim ellipse2D50 As Ellipse2D
Set ellipse2D50 = factory2D5.CreateEllipse(98.323618, -203.415034, -0.421382, -0.269142, 0.500000, 0.382772, 2.608431, 3.141641)

ellipse2D50.ReportName = 157

Dim ellipse2D51 As Ellipse2D
Set ellipse2D51 = factory2D5.CreateEllipse(98.323618, -203.415034, -0.421382, -0.269142, 0.500000, 0.382772, 3.141641, 4.353761)

ellipse2D51.ReportName = 158

Dim line2D485 As Line2D
Set line2D485 = factory2D5.CreateLine(98.760418, -203.695101, 98.791236, -203.347205)

line2D485.ReportName = 159

Dim line2D486 As Line2D
Set line2D486 = factory2D5.CreateLine(98.450943, -203.787100, 98.760418, -203.695101)

line2D486.ReportName = 160

Dim ellipse2D52 As Ellipse2D
Set ellipse2D52 = factory2D5.CreateEllipse(97.284652, -201.788376, -0.421382, -0.269142, 0.500000, 0.382772, 3.141641, 4.353761)

ellipse2D52.ReportName = 161

Dim circle2D81 As Circle2D
Set circle2D81 = factory2D5.CreateCircle(-12.172278, 52.957269, 278.345261, 5.194226, 5.225333)

circle2D81.ReportName = 162

Dim circle2D82 As Circle2D
Set circle2D82 = factory2D5.CreateCircle(-1.732035, 34.869241, 257.458741, 5.246220, 5.277769)

circle2D82.ReportName = 163

Dim circle2D83 As Circle2D
Set circle2D83 = factory2D5.CreateCircle(217.086492, -129.472572, 96.734442, 3.689673, 3.722085)

circle2D83.ReportName = 164

Dim ellipse2D53 As Ellipse2D
Set ellipse2D53 = factory2D5.CreateEllipse(142.046877, -192.837523, 12.786891, 9.299978, 15.811204, 11.822439, 1.012857, 1.486219)

ellipse2D53.ReportName = 165

Dim geometry2D41 As GeometricElement
Set geometry2D41 = geometricElements5.Item("Spline.9")

geometry2D41.ReportName = 166

Dim circle2D84 As Circle2D
Set circle2D84 = factory2D5.CreateCircle(271.957677, -109.380973, 168.658704, 3.652415, 3.659884)

circle2D84.ReportName = 167

Dim circle2D85 As Circle2D
Set circle2D85 = factory2D5.CreateCircle(-14.773284, 64.246196, 292.923231, 5.211564, 5.229062)

circle2D85.ReportName = 168

Dim geometry2D42 As GeometricElement
Set geometry2D42 = geometricElements5.Item("Spline.10")

geometry2D42.ReportName = 169

Dim line2D487 As Line2D
Set line2D487 = factory2D5.CreateLine(158.019443, -187.362028, 156.903883, -186.101843)

line2D487.ReportName = 170

Dim geometry2D43 As GeometricElement
Set geometry2D43 = geometricElements5.Item("Spline.11")

geometry2D43.ReportName = 171

Dim line2D488 As Line2D
Set line2D488 = factory2D5.CreateLine(152.471477, -177.717123, 156.385438, -183.845013)

line2D488.ReportName = 172

Dim geometry2D44 As GeometricElement
Set geometry2D44 = geometricElements5.Item("Spline.12")

geometry2D44.ReportName = 173

Dim line2D489 As Line2D
Set line2D489 = factory2D5.CreateLine(152.531410, -178.190833, 152.471477, -177.717123)

line2D489.ReportName = 174

Dim line2D490 As Line2D
Set line2D490 = factory2D5.CreateLine(124.829486, -191.837356, 122.429811, -178.397170)

line2D490.ReportName = 175

Dim line2D491 As Line2D
Set line2D491 = factory2D5.CreateLine(122.429811, -178.397170, 122.776134, -178.939390)

line2D491.ReportName = 176

Dim line2D492 As Line2D
Set line2D492 = factory2D5.CreateLine(122.776134, -178.939390, 123.719053, -182.264064)

line2D492.ReportName = 177

Dim line2D493 As Line2D
Set line2D493 = factory2D5.CreateLine(123.719053, -182.264064, 123.885624, -183.196997)

line2D493.ReportName = 178

Dim line2D494 As Line2D
Set line2D494 = factory2D5.CreateLine(123.885624, -183.196997, 123.643198, -182.817444)

line2D494.ReportName = 179

Dim line2D495 As Line2D
Set line2D495 = factory2D5.CreateLine(123.643198, -182.817444, 125.449442, -192.933919)

line2D495.ReportName = 180

Dim line2D496 As Line2D
Set line2D496 = factory2D5.CreateLine(122.429811, -178.397170, 127.068758, -176.803604)

line2D496.ReportName = 181

Dim line2D497 As Line2D
Set line2D497 = factory2D5.CreateLine(127.068758, -176.803604, 127.415080, -177.345824)

line2D497.ReportName = 182

Dim line2D498 As Line2D
Set line2D498 = factory2D5.CreateLine(127.415080, -177.345824, 128.358000, -180.670498)

line2D498.ReportName = 183

Dim line2D499 As Line2D
Set line2D499 = factory2D5.CreateLine(128.358000, -180.670498, 128.524570, -181.603431)

line2D499.ReportName = 184

Dim line2D500 As Line2D
Set line2D500 = factory2D5.CreateLine(128.360006, -181.659963, 129.927826, -190.441068)

line2D500.ReportName = 185

Dim line2D501 As Line2D
Set line2D501 = factory2D5.CreateLine(131.681903, -198.074689, 130.395224, -190.868214)

line2D501.ReportName = 186

Dim line2D502 As Line2D
Set line2D502 = factory2D5.CreateLine(130.395224, -190.868214, 135.034171, -189.274648)

line2D502.ReportName = 187

Dim line2D503 As Line2D
Set line2D503 = factory2D5.CreateLine(136.358604, -196.692581, 135.034171, -189.274648)

line2D503.ReportName = 188

Dim line2D504 As Line2D
Set line2D504 = factory2D5.CreateLine(135.034171, -189.274648, 134.687848, -188.732429)

line2D504.ReportName = 189

Dim line2D505 As Line2D
Set line2D505 = factory2D5.CreateLine(130.431115, -193.444942, 131.278992, -198.193762)

line2D505.ReportName = 190

Dim line2D506 As Line2D
Set line2D506 = factory2D5.CreateLine(130.188690, -193.065388, 130.431115, -193.444942)

line2D506.ReportName = 191

Dim line2D507 As Line2D
Set line2D507 = factory2D5.CreateLine(130.022119, -192.132455, 130.188690, -193.065388)

line2D507.ReportName = 192

Dim line2D508 As Line2D
Set line2D508 = factory2D5.CreateLine(130.048902, -190.325995, 130.022119, -192.132455)

line2D508.ReportName = 193

Dim line2D509 As Line2D
Set line2D509 = factory2D5.CreateLine(130.395224, -190.868214, 130.048902, -190.325995)

line2D509.ReportName = 194

Dim line2D510 As Line2D
Set line2D510 = factory2D5.CreateLine(152.531410, -178.190833, 156.365652, -184.193912)

line2D510.ReportName = 195

Dim line2D511 As Line2D
Set line2D511 = factory2D5.CreateLine(122.776134, -178.939390, 127.415080, -177.345824)

line2D511.ReportName = 196

Dim line2D512 As Line2D
Set line2D512 = factory2D5.CreateLine(123.719053, -182.264064, 128.358000, -180.670498)

line2D512.ReportName = 197

Dim line2D513 As Line2D
Set line2D513 = factory2D5.CreateLine(123.885624, -183.196997, 128.524570, -181.603431)

line2D513.ReportName = 198

Dim line2D514 As Line2D
Set line2D514 = factory2D5.CreateLine(130.048902, -190.325995, 134.687848, -188.732429)

line2D514.ReportName = 199

Dim ellipse2D54 As Ellipse2D
Set ellipse2D54 = factory2D5.CreateEllipse(92.351842, -204.653652, -12.641455, -8.074257, 15.000000, 11.483175, 2.655445, 2.782964)

ellipse2D54.ReportName = 200

Dim line2D515 As Line2D
Set line2D515 = factory2D5.CreateLine(120.197281, -213.264993, 117.280875, -209.586955)

line2D515.ReportName = 201

Dim line2D516 As Line2D
Set line2D516 = factory2D5.CreateLine(117.280875, -209.586955, 114.981265, -206.686792)

line2D516.ReportName = 202

Dim line2D517 As Line2D
Set line2D517 = factory2D5.CreateLine(101.393411, -210.702419, 114.981265, -206.686792)

line2D517.ReportName = 203

Dim line2D518 As Line2D
Set line2D518 = factory2D5.CreateLine(100.545438, -210.555269, 99.928739, -209.942018)

line2D518.ReportName = 204

Dim ellipse2D55 As Ellipse2D
Set ellipse2D55 = factory2D5.CreateEllipse(101.316381, -209.929612, 0.854692, 0.519508, 1.000193, 0.743490, 3.323097, 4.370239)

ellipse2D55.ReportName = 205

Dim line2D519 As Line2D
Set line2D519 = factory2D5.CreateLine(115.136929, -206.883105, 102.528036, -210.609418)

line2D519.ReportName = 206

Dim line2D520 As Line2D
Set line2D520 = factory2D5.CreateLine(102.528036, -210.609418, 102.340187, -210.422620)

line2D520.ReportName = 207

Dim circle2D86 As Circle2D
Set circle2D86 = factory2D5.CreateCircle(95.519051, -214.216118, 7.882002, 0.403068, 0.475245)

circle2D86.ReportName = 208

Dim ellipse2D56 As Ellipse2D
Set ellipse2D56 = factory2D5.CreateEllipse(102.890621, -209.149179, -0.023069, -2.093678, 2.093805, 0.302984, 5.947154, 0.044476)

ellipse2D56.ReportName = 209

Dim ellipse2D57 As Ellipse2D
Set ellipse2D57 = factory2D5.CreateEllipse(102.180938, -210.037162, 0.705122, 0.709086, 1.000000, 0.658223, 3.141483, 4.550652)

ellipse2D57.ReportName = 210

Dim ellipse2D58 As Ellipse2D
Set ellipse2D58 = factory2D5.CreateEllipse(102.426029, -210.257949, -0.597885, -0.801582, 1.000000, 0.909603, 0.000001, 1.059032)

ellipse2D58.ReportName = 211

Dim line2D521 As Line2D
Set line2D521 = factory2D5.CreateLine(144.495446, -179.318428, 145.676715, -188.018897)

line2D521.ReportName = 212

Dim line2D522 As Line2D
Set line2D522 = factory2D5.CreateLine(142.889921, -179.500787, 143.689665, -188.244591)

line2D522.ReportName = 213

Dim line2D523 As Line2D
Set line2D523 = factory2D5.CreateLine(145.677702, -188.026816, 145.789714, -189.013161)

line2D523.ReportName = 214

Dim line2D524 As Line2D
Set line2D524 = factory2D5.CreateLine(143.690478, -188.252512, 143.865403, -189.792862)

line2D524.ReportName = 215

Dim ellipse2D59 As Ellipse2D
Set ellipse2D59 = factory2D5.CreateEllipse(10.228234, -118.782508, 215.607936, 40.785491, 219.431626, 126.047669, 5.142123, 5.289508)

ellipse2D59.ReportName = 216

Dim geometry2D45 As GeometricElement
Set geometry2D45 = geometricElements5.Item("Spline.13")

geometry2D45.ReportName = 217

Dim line2D525 As Line2D
Set line2D525 = factory2D5.CreateLine(154.201708, -177.703809, 155.167033, -178.486784)

line2D525.ReportName = 218

Dim line2D526 As Line2D
Set line2D526 = factory2D5.CreateLine(97.706023, -201.519219, 98.744990, -203.145876)

line2D526.ReportName = 219

Dim line2D527 As Line2D
Set line2D527 = factory2D5.CreateLine(92.476557, -193.331707, 93.515524, -194.958365)

line2D527.ReportName = 220

Dim line2D528 As Line2D
Set line2D528 = factory2D5.CreateLine(115.609628, -207.479250, 102.881046, -211.240936)

line2D528.ReportName = 221

Dim circle2D87 As Circle2D
Set circle2D87 = factory2D5.CreateCircle(103.939988, -208.341589, 3.442483, 3.914767, 4.051831)

circle2D87.ReportName = 222

Dim circle2D88 As Circle2D
Set circle2D88 = factory2D5.CreateCircle(102.532818, -210.108248, 1.184263, 4.074829, 5.010657)

circle2D88.ReportName = 223

Dim line2D529 As Line2D
Set line2D529 = factory2D5.CreateLine(101.475766, -210.746198, 101.422961, -210.693689)

line2D529.ReportName = 224

sketch5.CloseEdition 

End Sub