Sub Zentrierung_DIN332_rechts()
On Error Resume Next
Dim oDrawDoc As DrawingDocument
Set oDrawDoc = ThisApplication.ActiveDocument
Dim oSheet As Sheet
Set oSheet = oDrawDoc.ActiveSheet
Dim oSketches As DrawingSketches
Set oSketches = ThisDocument.ActiveSheet.Sketches
oSketches.Add
Dim oSketch As DrawingSketch
Set oSketch = oSketches.Item(1)
oSketch.Edit
Dim oTransGeom As TransientGeometry
Set oTransGeom = ThisApplication.TransientGeometry
Dim oPoint(1 To 70) As Point2d
Set oPoint(1) = oTransGeom.CreatePoint2d(9, 0)
Set oPoint(2) = oTransGeom.CreatePoint2d(9, 6)
Set oPoint(3) = oTransGeom.CreatePoint2d(9, 0.8)
Set oPoint(4) = oTransGeom.CreatePoint2d(8.7, 1.3)
Set oPoint(5) = oTransGeom.CreatePoint2d(7.9, 1.7)
Set oPoint(6) = oTransGeom.CreatePoint2d(6.9, 1.7)
Set oPoint(7) = oTransGeom.CreatePoint2d(6.6, 2)
Set oPoint(8) = oTransGeom.CreatePoint2d(1.3, 2)
Set oPoint(9) = oTransGeom.CreatePoint2d(0.8, 3)
Set oPoint(10) = oTransGeom.CreatePoint2d(1.3, 4)
Set oPoint(11) = oTransGeom.CreatePoint2d(6.6, 4)
Set oPoint(12) = oTransGeom.CreatePoint2d(6.9, 4.3)
Set oPoint(13) = oTransGeom.CreatePoint2d(7.9, 4.3)
Set oPoint(14) = oTransGeom.CreatePoint2d(8.7, 4.7)
Set oPoint(15) = oTransGeom.CreatePoint2d(9, 5.2)
Set oPoint(16) = oTransGeom.CreatePoint2d(6.8, 1.8)
Set oPoint(17) = oTransGeom.CreatePoint2d(3.2, 1.8)
Set oPoint(18) = oTransGeom.CreatePoint2d(3.2, 4.2)
Set oPoint(19) = oTransGeom.CreatePoint2d(6.8, 4.2)
'ab hier Schraffur
Set oPoint(20) = oTransGeom.CreatePoint2d(0, 0.4)
Set oPoint(21) = oTransGeom.CreatePoint2d(0.4, 0)
Set oPoint(22) = oTransGeom.CreatePoint2d(0, 1.3)
Set oPoint(23) = oTransGeom.CreatePoint2d(1.3, 0)
Set oPoint(24) = oTransGeom.CreatePoint2d(0, 2.2)
Set oPoint(25) = oTransGeom.CreatePoint2d(2.2, 0)
Set oPoint(26) = oTransGeom.CreatePoint2d(0, 3.1)
Set oPoint(27) = oTransGeom.CreatePoint2d(3.1, 0)
Set oPoint(28) = oTransGeom.CreatePoint2d(0, 4)
Set oPoint(29) = oTransGeom.CreatePoint2d(0.8667, 3.1333)
Set oPoint(30) = oTransGeom.CreatePoint2d(0, 4.9)
Set oPoint(31) = oTransGeom.CreatePoint2d(1.1667, 3.7333)
Set oPoint(32) = oTransGeom.CreatePoint2d(0, 5.8)
Set oPoint(33) = oTransGeom.CreatePoint2d(1.8, 4)
Set oPoint(34) = oTransGeom.CreatePoint2d(0.7, 6)
Set oPoint(35) = oTransGeom.CreatePoint2d(2.7, 4)
Set oPoint(36) = oTransGeom.CreatePoint2d(1.6, 6)
Set oPoint(37) = oTransGeom.CreatePoint2d(3.6, 4)
Set oPoint(38) = oTransGeom.CreatePoint2d(2.5, 6)
Set oPoint(39) = oTransGeom.CreatePoint2d(4.5, 4)
Set oPoint(40) = oTransGeom.CreatePoint2d(3.4, 6)
Set oPoint(41) = oTransGeom.CreatePoint2d(5.4, 4)
Set oPoint(42) = oTransGeom.CreatePoint2d(4.3, 6)
Set oPoint(43) = oTransGeom.CreatePoint2d(6.3, 4)
Set oPoint(44) = oTransGeom.CreatePoint2d(5.2, 6)
Set oPoint(45) = oTransGeom.CreatePoint2d(6.9, 4.3)
Set oPoint(46) = oTransGeom.CreatePoint2d(6.1, 6)
Set oPoint(47) = oTransGeom.CreatePoint2d(7.8, 4.3)
Set oPoint(48) = oTransGeom.CreatePoint2d(7, 6)
Set oPoint(49) = oTransGeom.CreatePoint2d(8.4333, 4.5667)
Set oPoint(50) = oTransGeom.CreatePoint2d(7.9, 6)
Set oPoint(51) = oTransGeom.CreatePoint2d(8.8875, 5.0125)
Set oPoint(52) = oTransGeom.CreatePoint2d(8.8, 6)
Set oPoint(53) = oTransGeom.CreatePoint2d(9, 5.8)
Set oPoint(54) = oTransGeom.CreatePoint2d(2, 2)
Set oPoint(55) = oTransGeom.CreatePoint2d(4, 0)
Set oPoint(56) = oTransGeom.CreatePoint2d(2.9, 2)
Set oPoint(57) = oTransGeom.CreatePoint2d(4.9, 0)
Set oPoint(58) = oTransGeom.CreatePoint2d(3.8, 2)
Set oPoint(59) = oTransGeom.CreatePoint2d(5.8, 0)
Set oPoint(60) = oTransGeom.CreatePoint2d(4.7, 2)
Set oPoint(61) = oTransGeom.CreatePoint2d(6.7, 0)
Set oPoint(62) = oTransGeom.CreatePoint2d(5.6, 2)
Set oPoint(63) = oTransGeom.CreatePoint2d(7.6, 0)
Set oPoint(64) = oTransGeom.CreatePoint2d(6.5, 2)
Set oPoint(65) = oTransGeom.CreatePoint2d(8.5, 0)
Set oPoint(66) = oTransGeom.CreatePoint2d(7.7, 1.7)
Set oPoint(67) = oTransGeom.CreatePoint2d(9, 0.4)
Set oPoint(68) = oTransGeom.CreatePoint2d(0.5, 3)
Set oPoint(69) = oTransGeom.CreatePoint2d(9.3, 3)
Set oPoint(70) = oTransGeom.CreatePoint2d(4.5, 3)
Dim oLine(1 To 46) As SketchLine
Set oLine(1) = oSketch.SketchLines.AddByTwoPoints(oPoint(1), oPoint(2))
Set oLine(2) = oSketch.SketchLines.AddByTwoPoints(oPoint(3), oPoint(4))
Set oLine(3) = oSketch.SketchLines.AddByTwoPoints(oPoint(4), oPoint(5))
Set oLine(4) = oSketch.SketchLines.AddByTwoPoints(oPoint(5), oPoint(6))
Set oLine(5) = oSketch.SketchLines.AddByTwoPoints(oPoint(6), oPoint(7))
Set oLine(6) = oSketch.SketchLines.AddByTwoPoints(oPoint(7), oPoint(8))
Set oLine(7) = oSketch.SketchLines.AddByTwoPoints(oPoint(8), oPoint(9))
Set oLine(8) = oSketch.SketchLines.AddByTwoPoints(oPoint(9), oPoint(10))
Set oLine(9) = oSketch.SketchLines.AddByTwoPoints(oPoint(10), oPoint(11))
Set oLine(10) = oSketch.SketchLines.AddByTwoPoints(oPoint(11), oPoint(12))
Set oLine(11) = oSketch.SketchLines.AddByTwoPoints(oPoint(12), oPoint(13))
Set oLine(12) = oSketch.SketchLines.AddByTwoPoints(oPoint(13), oPoint(14))
Set oLine(13) = oSketch.SketchLines.AddByTwoPoints(oPoint(14), oPoint(15))
Set oLine(14) = oSketch.SketchLines.AddByTwoPoints(oPoint(4), oPoint(14))
Set oLine(15) = oSketch.SketchLines.AddByTwoPoints(oPoint(5), oPoint(13))
Set oLine(16) = oSketch.SketchLines.AddByTwoPoints(oPoint(6), oPoint(12))
Set oLine(17) = oSketch.SketchLines.AddByTwoPoints(oPoint(7), oPoint(11))
Set oLine(18) = oSketch.SketchLines.AddByTwoPoints(oPoint(8), oPoint(10))
Set oLine(19) = oSketch.SketchLines.AddByTwoPoints(oPoint(16), oPoint(17))
Set oLine(20) = oSketch.SketchLines.AddByTwoPoints(oPoint(17), oPoint(18))
Set oLine(21) = oSketch.SketchLines.AddByTwoPoints(oPoint(18), oPoint(19))
'ab hier Schraffur
Set oLine(22) = oSketch.SketchLines.AddByTwoPoints(oPoint(20), oPoint(21))
Set oLine(23) = oSketch.SketchLines.AddByTwoPoints(oPoint(22), oPoint(23))
Set oLine(24) = oSketch.SketchLines.AddByTwoPoints(oPoint(24), oPoint(25))
Set oLine(25) = oSketch.SketchLines.AddByTwoPoints(oPoint(26), oPoint(27))
Set oLine(26) = oSketch.SketchLines.AddByTwoPoints(oPoint(28), oPoint(29))
Set oLine(27) = oSketch.SketchLines.AddByTwoPoints(oPoint(30), oPoint(31))
Set oLine(28) = oSketch.SketchLines.AddByTwoPoints(oPoint(32), oPoint(33))
Set oLine(29) = oSketch.SketchLines.AddByTwoPoints(oPoint(34), oPoint(35))
Set oLine(30) = oSketch.SketchLines.AddByTwoPoints(oPoint(36), oPoint(37))
Set oLine(31) = oSketch.SketchLines.AddByTwoPoints(oPoint(38), oPoint(39))
Set oLine(32) = oSketch.SketchLines.AddByTwoPoints(oPoint(40), oPoint(41))
Set oLine(33) = oSketch.SketchLines.AddByTwoPoints(oPoint(42), oPoint(43))
Set oLine(34) = oSketch.SketchLines.AddByTwoPoints(oPoint(44), oPoint(45))
Set oLine(35) = oSketch.SketchLines.AddByTwoPoints(oPoint(46), oPoint(47))
Set oLine(36) = oSketch.SketchLines.AddByTwoPoints(oPoint(48), oPoint(49))
Set oLine(37) = oSketch.SketchLines.AddByTwoPoints(oPoint(50), oPoint(51))
Set oLine(38) = oSketch.SketchLines.AddByTwoPoints(oPoint(52), oPoint(53))
Set oLine(39) = oSketch.SketchLines.AddByTwoPoints(oPoint(54), oPoint(55))
Set oLine(40) = oSketch.SketchLines.AddByTwoPoints(oPoint(56), oPoint(57))
Set oLine(41) = oSketch.SketchLines.AddByTwoPoints(oPoint(58), oPoint(59))
Set oLine(42) = oSketch.SketchLines.AddByTwoPoints(oPoint(60), oPoint(61))
Set oLine(43) = oSketch.SketchLines.AddByTwoPoints(oPoint(62), oPoint(63))
Set oLine(44) = oSketch.SketchLines.AddByTwoPoints(oPoint(64), oPoint(65))
Set oLine(45) = oSketch.SketchLines.AddByTwoPoints(oPoint(66), oPoint(67))
Set oLine(46) = oSketch.SketchLines.AddByTwoPoints(oPoint(68), oPoint(69))
oSketch.SketchLines(46).LineType = kDashDottedLineType
oSketch.SketchLines(46).LineScale = 7
'Bemaßung
Dim oDimPoint(1 To 30) As Point2d
Set oDimPoint(1) = oTransGeom.CreatePoint2d(1.3, 3) 'Punkt1
Set oDimPoint(2) = oTransGeom.CreatePoint2d(9, 3) 'Punkt2
Set oDimPoint(3) = oTransGeom.CreatePoint2d(4.5, -3.8) 'Bemaßungspunkt
Set oDimPoint(4) = oTransGeom.CreatePoint2d(3.2, 3) 'Punkt1
Set oDimPoint(5) = oTransGeom.CreatePoint2d(9, 3) 'Punkt2
Set oDimPoint(6) = oTransGeom.CreatePoint2d(4.5, -3.1) 'Bemaßungspunkt
Set oDimPoint(7) = oTransGeom.CreatePoint2d(6.9, 3) 'Punkt1
Set oDimPoint(8) = oTransGeom.CreatePoint2d(9, 3) 'Punkt2
Set oDimPoint(9) = oTransGeom.CreatePoint2d(6, -2.4) 'Bemaßungspunkt
Set oDimPoint(10) = oTransGeom.CreatePoint2d(7.9, 3) 'Punkt1
Set oDimPoint(11) = oTransGeom.CreatePoint2d(9, 3) 'Punkt2
Set oDimPoint(12) = oTransGeom.CreatePoint2d(11.1, -1.7) 'Bemaßungspunkt
Set oDimPoint(13) = oTransGeom.CreatePoint2d(8.7, 3) 'Punkt1
Set oDimPoint(14) = oTransGeom.CreatePoint2d(9, 3) 'Punkt2
Set oDimPoint(15) = oTransGeom.CreatePoint2d(11.1, -1) 'Bemaßungspunkt
Set oDimPoint(16) = oTransGeom.CreatePoint2d(5.5, 4.2) 'Punkt1
Set oDimPoint(17) = oTransGeom.CreatePoint2d(5.5, 1.8) 'Punkt2
Set oDimPoint(18) = oTransGeom.CreatePoint2d(5.5, 3) 'Bemaßungspunkt
Set oDimPoint(19) = oTransGeom.CreatePoint2d(7.9, 4.3) 'Punkt1
Set oDimPoint(20) = oTransGeom.CreatePoint2d(7.9, 1.7) 'Punkt2
Set oDimPoint(21) = oTransGeom.CreatePoint2d(10, 3) 'Bemaßungspunkt
Set oDimPoint(22) = oTransGeom.CreatePoint2d(8.7, 4.7) 'Punkt1
Set oDimPoint(23) = oTransGeom.CreatePoint2d(8.7, 1.3) 'Punkt2
Set oDimPoint(24) = oTransGeom.CreatePoint2d(10.7, 3) 'Bemaßungspunkt
Set oDimPoint(25) = oTransGeom.CreatePoint2d(9, 5.2) 'Punkt1
Set oDimPoint(26) = oTransGeom.CreatePoint2d(9, 0.7) 'Punkt2
Set oDimPoint(27) = oTransGeom.CreatePoint2d(11.4, 3) 'Bemaßungspunkt
Set oDimPoint(28) = oTransGeom.CreatePoint2d(7.5, 7) '45°
Set oDimPoint(29) = oTransGeom.CreatePoint2d(12.3, 3) '60°
Set oDimPoint(30) = oTransGeom.CreatePoint2d(13.2, 3) '120°
Dim oSketchPoint(1 To 18) As SketchPoint
Set oSketchPoint(1) = oSketch.SketchPoints.Add(oDimPoint(1))
Set oSketchPoint(2) = oSketch.SketchPoints.Add(oDimPoint(2))
Set oSketchPoint(3) = oSketch.SketchPoints.Add(oDimPoint(4))
Set oSketchPoint(4) = oSketch.SketchPoints.Add(oDimPoint(5))
Set oSketchPoint(5) = oSketch.SketchPoints.Add(oDimPoint(7))
Set oSketchPoint(6) = oSketch.SketchPoints.Add(oDimPoint(8))
Set oSketchPoint(7) = oSketch.SketchPoints.Add(oDimPoint(10))
Set oSketchPoint(8) = oSketch.SketchPoints.Add(oDimPoint(11))
Set oSketchPoint(9) = oSketch.SketchPoints.Add(oDimPoint(13))
Set oSketchPoint(10) = oSketch.SketchPoints.Add(oDimPoint(14))
Set oSketchPoint(11) = oSketch.SketchPoints.Add(oDimPoint(16))
Set oSketchPoint(12) = oSketch.SketchPoints.Add(oDimPoint(17))
Set oSketchPoint(13) = oSketch.SketchPoints.Add(oDimPoint(19))
Set oSketchPoint(14) = oSketch.SketchPoints.Add(oDimPoint(20))
Set oSketchPoint(15) = oSketch.SketchPoints.Add(oDimPoint(22))
Set oSketchPoint(16) = oSketch.SketchPoints.Add(oDimPoint(23))
Set oSketchPoint(17) = oSketch.SketchPoints.Add(oDimPoint(25))
Set oSketchPoint(18) = oSketch.SketchPoints.Add(oDimPoint(26))
Dim oDimCont As DimensionConstraints
Set oDimCont = oSketch.DimensionConstraints
Dim oOff(1 To 9) As TwoPointDistanceDimConstraint
Set oOff(1) = oDimCont.AddTwoPointDistance(oSketchPoint(1), oSketchPoint(2), kHorizontalDim, oDimPoint(3)) 't2
Set oOff(2) = oDimCont.AddTwoPointDistance(oSketchPoint(3), oSketchPoint(4), kHorizontalDim, oDimPoint(6)) 't1
Set oOff(3) = oDimCont.AddTwoPointDistance(oSketchPoint(5), oSketchPoint(6), kHorizontalDim, oDimPoint(9)) 't3
Set oOff(4) = oDimCont.AddTwoPointDistance(oSketchPoint(7), oSketchPoint(8), kHorizontalDim, oDimPoint(12)) 't4
Set oOff(5) = oDimCont.AddTwoPointDistance(oSketchPoint(9), oSketchPoint(10), kHorizontalDim, oDimPoint(15)) 't5
Set oOff(6) = oDimCont.AddTwoPointDistance(oSketchPoint(11), oSketchPoint(12), kVerticalDim, oDimPoint(18)) 'd1
Set oOff(7) = oDimCont.AddTwoPointDistance(oSketchPoint(13), oSketchPoint(14), kVerticalDim, oDimPoint(21)) 'd3
Set oOff(8) = oDimCont.AddTwoPointDistance(oSketchPoint(15), oSketchPoint(16), kVerticalDim, oDimPoint(24)) 'd4
Set oOff(9) = oDimCont.AddTwoPointDistance(oSketchPoint(17), oSketchPoint(18), kVerticalDim, oDimPoint(27)) 'd5
Dim oAng(1 To 3) As TwoLineAngleDimConstraint
Set oAng(1) = oDimCont.AddTwoLineAngle(oLine(10), oLine(17), oDimPoint(28)) '45°
Set oAng(2) = oDimCont.AddTwoLineAngle(oLine(3), oLine(12), oDimPoint(29)) '60°
Set oAng(3) = oDimCont.AddTwoLineAngle(oLine(2), oLine(13), oDimPoint(30)) '120°
oSketch.ExitEdit
Set oSketch = oSheet.DrawingDimensions.GeneralDimensions.Retrieve(oSketch)
Dim oGeneralDim As GeneralDimension
Set oGeneralDim = oSheet.DrawingDimensions.GeneralDimensions
Dim oDimStyle As DimensionStyle
Set oDimStyle = oGeneralDim.Style
oDimStyle.AlternateUnitsDisplay = True
oDimStyle.LinearUnits = kMillimeterLengthUnits
oDimStyle.DecimalMarkerType = kPeriodDecimalMarker
oDimStyle.LeadingZeroDisplay = True
oDimStyle.TrailingZeroDisplay = False
Dim ZDL As Double
ZDL = InputBox("Bitte geben Sie den Gewindedurchmesser ein! (4, 5, 6, 8, 10, 12, 16, 20, 24 oder 30)")
Dim oDrawValue(1 To 11) As Double
oDrawValue(10) = 1.047197551 '(60°/180°*PI)
oDrawValue(11) = 2.094395102 '(120°/180°*PI)
If ZDL = "4" Then
oDrawValue(1) = 1.4 't2
oDrawValue(2) = 1 't1
oDrawValue(3) = 0.32 't3
oDrawValue(4) = 0.21 't4
oDrawValue(5) = 0.03 't5
oDrawValue(6) = 0.4 'd1
oDrawValue(7) = 0.43 'd3
oDrawValue(8) = 0.67 'd4
oDrawValue(9) = 0.74 'd5
End If
If ZDL = "5" Then
oDrawValue(1) = 1.7 't2
oDrawValue(2) = 1.25 't1
oDrawValue(3) = 0.4 't3
oDrawValue(4) = 0.24 't4
oDrawValue(5) = 0.03 't5
oDrawValue(6) = 0.5 'd1
oDrawValue(7) = 0.53 'd3
oDrawValue(8) = 0.81 'd4
oDrawValue(9) = 0.88 'd5
End If
If ZDL = "6" Then
oDrawValue(1) = 2.1 't2
oDrawValue(2) = 1.6 't1
oDrawValue(3) = 0.5 't3
oDrawValue(4) = 0.28 't4
oDrawValue(5) = 0.04 't5
oDrawValue(6) = 0.6 'd1
oDrawValue(7) = 0.64 'd3
oDrawValue(8) = 0.95 'd4
oDrawValue(9) = 1.05 'd5
End If
If ZDL = "8" Then
oDrawValue(1) = 2.5 't2
oDrawValue(2) = 1.9 't1
oDrawValue(3) = 0.6 't3
oDrawValue(4) = 0.33 't4
oDrawValue(5) = 0.04 't5
oDrawValue(6) = 0.8 'd1
oDrawValue(7) = 0.84 'd3
oDrawValue(8) = 1.22 'd4
oDrawValue(9) = 1.32 'd5
End If
If ZDL = "10" Then
oDrawValue(1) = 3 't2
oDrawValue(2) = 2.2 't1
oDrawValue(3) = 0.75 't3
oDrawValue(4) = 0.38 't4
oDrawValue(5) = 0.06 't5
oDrawValue(6) = 1 'd1
oDrawValue(7) = 1.05 'd3
oDrawValue(8) = 1.49 'd4
oDrawValue(9) = 1.63 'd5
End If
If ZDL = "12" Then
oDrawValue(1) = 3.75 't2
oDrawValue(2) = 2.8 't1
oDrawValue(3) = 0.95 't3
oDrawValue(4) = 0.44 't4
oDrawValue(5) = 0.07 't5
oDrawValue(6) = 1.2 'd5
oDrawValue(7) = 1.3 'd3
oDrawValue(8) = 1.81 'd4
oDrawValue(9) = 1.98 'd5
End If
If ZDL = "16" Then
oDrawValue(1) = 4.5 't2
oDrawValue(2) = 3.6 't1
oDrawValue(3) = 1.2 't3
oDrawValue(4) = 0.52 't4
oDrawValue(5) = 0.1 't5
oDrawValue(6) = 1.6 'd1
oDrawValue(7) = 1.7 'd3
oDrawValue(8) = 2.3 'd4
oDrawValue(9) = 2.53 'd5
End If
If ZDL = "20" Then
oDrawValue(1) = 5.3 't2
oDrawValue(2) = 4.2 't1
oDrawValue(3) = 1.5 't3
oDrawValue(4) = 0.64 't4
oDrawValue(5) = 0.13 't5
oDrawValue(6) = 2 'd1
oDrawValue(7) = 2.1 'd3
oDrawValue(8) = 2.84 'd4
oDrawValue(9) = 3.13 'd5
End If
If ZDL = "24" Then
oDrawValue(1) = 6.3 't2
oDrawValue(2) = 5 't1
oDrawValue(3) = 1.8 't3
oDrawValue(4) = 0.8 't4
oDrawValue(5) = 0.16 't5
oDrawValue(6) = 2.4 'd1
oDrawValue(7) = 2.5 'd3
oDrawValue(8) = 3.42 'd4
oDrawValue(9) = 3.8 'd5
End If
If ZDL = "30" Then
oDrawValue(1) = 8.5 't2
oDrawValue(2) = 6.5 't1
oDrawValue(3) = 2.3 't3
oDrawValue(4) = 1.2 't4
oDrawValue(5) = 2 't5
oDrawValue(6) = 3 'd1
oDrawValue(7) = 3.2 'd3
oDrawValue(8) = 4.35 'd4
oDrawValue(9) = 5.05 'd5
End If
Dim oDrawText(1 To 11) As DrawingDimension
Set oDrawText(1) = oSheet.DrawingDimensions.GeneralDimensions.Item(1)
oDrawText(1).OverrideModelValue = oDrawValue(1)
Set oDrawText(2) = oSheet.DrawingDimensions.GeneralDimensions.Item(2)
oDrawText(2).OverrideModelValue = oDrawValue(2)
oDrawText(2).Text.FormattedText = "<<>>+2"
Set oDrawText(3) = oSheet.DrawingDimensions.GeneralDimensions.Item(3)
oDrawText(3).OverrideModelValue = oDrawValue(3)
oDrawText(3).Text.FormattedText = "<<>>+1"
Set oDrawText(4) = oSheet.DrawingDimensions.GeneralDimensions.Item(4)
oDrawText(4).OverrideModelValue = oDrawValue(4)
Set oDrawText(5) = oSheet.DrawingDimensions.GeneralDimensions.Item(5)
oDrawText(5).OverrideModelValue = oDrawValue(5)
Set oDrawText(6) = oSheet.DrawingDimensions.GeneralDimensions.Item(6)
oDrawText(6).OverrideModelValue = oDrawValue(6)
oDrawText(6).Text.FormattedText = "M<<>>"
Set oDrawText(7) = oSheet.DrawingDimensions.GeneralDimensions.Item(7)
oDrawText(7).OverrideModelValue = oDrawValue(7)
Set oDrawText(8) = oSheet.DrawingDimensions.GeneralDimensions.Item(8)
oDrawText(8).OverrideModelValue = oDrawValue(8)
Set oDrawText(9) = oSheet.DrawingDimensions.GeneralDimensions.Item(9)
oDrawText(9).OverrideModelValue = oDrawValue(9)
Set oDrawText(10) = oSheet.DrawingDimensions.GeneralDimensions.Item(11)
oDrawText(10).OverrideModelValue = oDrawValue(10)
Set oDrawText(11) = oSheet.DrawingDimensions.GeneralDimensions.Item(12)
oDrawText(11).OverrideModelValue = oDrawValue(11)
End Sub