''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'		Makroersteller: SAG / C. Roberto 641
'		Datum der Anpassungen/Aenderungen: 
'		Aenderung 1: 	
'		Aenderung 2: 	
'		...
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''


'>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
'>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
Sub CATMain()

	'Verweis auf das aktive Dokument
	Set drwDoc = CATIA.ActiveDocument
	
	'Verweis auf das aktive Blatt im Dokument
	Set drwSheets = drwDoc.Sheets
	Set drwSheet = drwSheets.ActiveSheet

	
	paperWidth = drwSheet.GetPaperWidth
	paperHeight = drwSheet.GetPaperHeight 

Dim x
Dim y
Dim format

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
	'Formatdefinition A4-A0  START
'------------------------------------------------------------------------
If paperHeight = 210 Then 
x = 5
y = 126.5
End if

If paperHeight = 297 and paperWidth = 210 Then 
x = 5
y = 213.5
else
x = 10
y = 211
End if

If paperHeight = 420 Then 
x = 10
y = 334
End if

If paperHeight = 594 Then 
x = 10
y = 508
End if

If paperHeight = 841 Then 
x = 10
y = 755
End if
'------------------------------------------------------------------------
	'Formatdefinition A4-A0  ENDE
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

'Verweis auf den Hintergrund
	Set drwViews = drwSheet.Views
	Set drwView = drwViews.Item(2)


	drwView.Activate

	Set fact2d = drwView.Factory2D

'Erstellen der Texte **********************************
	Set drwTexts = drwView.Texts


''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
	'Erstellen der Inputbox ****START
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Dim Eingabe
toleranz = 2
toleranz = InputBox ("Bitte Toleranz wählen!" &vbnewline & vbCr & _
			"Zahl eingeben. z.B. 1" &vbnewline & vbCr & _
			"1 = fein" &vbnewline & vbCr & _
			"2 = mittel" &vbnewline & vbCr & _
			"3 = sehr grob" &vbnewline & vbCr & _
			"4 = sehr grob")

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
	'Erstellen der InputBox ****ENDE
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''


''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
	'Erstellen der Texte fein ****START
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
select case toleranz
			case "1"

	Set drwText = drwTexts.Add("DIN 7168/Teil1", paperWidth - 196-x, 73.5+y)
		drwText.SetFontSize 0, 0, 2.2
		drwText.AnchorPosition = 2
		drwText.SetFontName 0, 0, "Swis721 BT"
	Set drwText = drwTexts.Add("Obere und untere Abmasse für Längenmasse ( Abmasse in mm für Nennmassbereich in mm )", paperWidth - 149-x, 73.5+y)
		drwText.SetFontSize 0, 0, 2.2
		drwText.AnchorPosition = 2
		drwText.SetFontName 0, 0, "Swis721 BT"

	Set drwText = drwTexts.Add("Genauigkeitsgrad", paperWidth - 197-x, 67.5+y)
		drwText.SetFontSize 0, 0, 2.2
		drwText.AnchorPosition = 2
		drwText.SetFontName 0, 0, "Swis721 BT"

	Set drwText = drwTexts.Add("> 0.5 ", paperWidth - 163-x, 69+y)
		drwText.SetFontSize 0, 0, 2.2
		drwText.AnchorPosition = 2
		drwText.SetFontName 0, 0, "Swis721 BT"
	Set drwText = drwTexts.Add("> 3 ", paperWidth - 141-x, 69+y)
		drwText.SetFontSize 0, 0, 2.2
		drwText.AnchorPosition = 2
		drwText.SetFontName 0, 0, "Swis721 BT"
	Set drwText = drwTexts.Add("> 6 ", paperWidth - 120-x, 69+y)
		drwText.SetFontSize 0, 0, 2.2
		drwText.AnchorPosition = 2
		drwText.SetFontName 0, 0, "Swis721 BT"
	Set drwText = drwTexts.Add("> 30 ", paperWidth - 99.5-x, 69+y)
		drwText.SetFontSize 0, 0, 2.2
		drwText.AnchorPosition = 2
		drwText.SetFontName 0, 0, "Swis721 BT"
	Set drwText = drwTexts.Add("> 120 ", paperWidth -  78.5-x, 69+y)
		drwText.SetFontSize 0, 0, 2.2
		drwText.AnchorPosition = 2
		drwText.SetFontName 0, 0, "Swis721 BT"
	Set drwText = drwTexts.Add("> 400 ", paperWidth -  57-x, 69+y)
		drwText.SetFontSize 0, 0, 2.2
		drwText.AnchorPosition = 2
		drwText.SetFontName 0, 0, "Swis721 BT"
	Set drwText = drwTexts.Add("> 1000 ", paperWidth -   37-x, 69+y)
		drwText.SetFontSize 0, 0, 2.2
		drwText.AnchorPosition = 2
		drwText.SetFontName 0, 0, "Swis721 BT"
	Set drwText = drwTexts.Add("> 2000 ", paperWidth -  15.5-x, 69+y)
		drwText.SetFontSize 0, 0, 2.2
		drwText.AnchorPosition = 2
		drwText.SetFontName 0, 0, "Swis721 BT"

	Set drwText = drwTexts.Add("bis 3", paperWidth - 162-x, 66+y)
		drwText.SetFontSize 0, 0, 2.2
		drwText.AnchorPosition = 2
		drwText.SetFontName 0, 0, "Swis721 BT"
	Set drwText = drwTexts.Add("bis 6", paperWidth - 141.5-x, 66+y)
		drwText.SetFontSize 0, 0, 2.2
		drwText.AnchorPosition = 2
		drwText.SetFontName 0, 0, "Swis721 BT"
	Set drwText = drwTexts.Add("bis 30", paperWidth - 121.5-x, 66+y)
		drwText.SetFontSize 0, 0, 2.2
		drwText.AnchorPosition = 2
		drwText.SetFontName 0, 0, "Swis721 BT"
	Set drwText = drwTexts.Add("bis 120", paperWidth - 101-x, 66+y)
		drwText.SetFontSize 0, 0, 2.2
		drwText.AnchorPosition = 2
		drwText.SetFontName 0, 0, "Swis721 BT"
	Set drwText = drwTexts.Add("bis 400", paperWidth -  79.5-x, 66+y)
		drwText.SetFontSize 0, 0, 2.2
		drwText.AnchorPosition = 2
		drwText.SetFontName 0, 0, "Swis721 BT"
	Set drwText = drwTexts.Add("bis 1000", paperWidth -  58.5-x, 66+y)
		drwText.SetFontSize 0, 0, 2.2
		drwText.AnchorPosition = 2
		drwText.SetFontName 0, 0, "Swis721 BT"
	Set drwText = drwTexts.Add("bis 2000", paperWidth -   37.5-x, 66+y)
		drwText.SetFontSize 0, 0, 2.2
		drwText.AnchorPosition = 2
		drwText.SetFontName 0, 0, "Swis721 BT"
	Set drwText = drwTexts.Add("bis 4000", paperWidth -  16.5-x, 66+y)
		drwText.SetFontSize 0, 0, 2.2
		drwText.AnchorPosition = 2
		drwText.SetFontName 0, 0, "Swis721 BT"

	Set drwText = drwTexts.Add("f        ( fein )", paperWidth - 194-x, 61.5+y)
		drwText.SetFontSize 0, 0, 2.2
		drwText.AnchorPosition = 2
		drwText.SetFontName 0, 0, "Swis721 BT"

	Set drwText = drwTexts.Add("± 0,05", paperWidth - 164-x, 61.5+y)
		drwText.SetFontSize 0, 0, 2.2
		drwText.AnchorPosition = 2
		drwText.SetFontName 0, 0, "Swis721 BT"
	Set drwText = drwTexts.Add("± 0,05", paperWidth - 142.5-x, 61.5+y)
		drwText.SetFontSize 0, 0, 2.2
		drwText.AnchorPosition = 2
		drwText.SetFontName 0, 0, "Swis721 BT"
	Set drwText = drwTexts.Add("± 0,1", paperWidth - 121-x, 61.5+y)
		drwText.SetFontSize 0, 0, 2.2
		drwText.AnchorPosition = 2
		drwText.SetFontName 0, 0, "Swis721 BT"
	Set drwText = drwTexts.Add("± 0,15", paperWidth - 100-x, 61.5+y)
		drwText.SetFontSize 0, 0, 2.2
		drwText.AnchorPosition = 2
		drwText.SetFontName 0, 0, "Swis721 BT"
	Set drwText = drwTexts.Add("± 0,2", paperWidth -  78.5-x, 61.5+y)
		drwText.SetFontSize 0, 0, 2.2
		drwText.AnchorPosition = 2
		drwText.SetFontName 0, 0, "Swis721 BT"
	Set drwText = drwTexts.Add("± 0,3", paperWidth -  57-x, 61.5+y)
		drwText.SetFontSize 0, 0, 2.2
		drwText.AnchorPosition = 2
		drwText.SetFontName 0, 0, "Swis721 BT"
	Set drwText = drwTexts.Add("± 0,5", paperWidth -   35.5-x, 61.5+y)
		drwText.SetFontSize 0, 0, 2.2
		drwText.AnchorPosition = 2
		drwText.SetFontName 0, 0, "Swis721 BT"
	Set drwText = drwTexts.Add("± 0,8", paperWidth -  14-x, 61.5+y)
		drwText.SetFontSize 0, 0, 2.2
		drwText.AnchorPosition = 2
		drwText.SetFontName 0, 0, "Swis721 BT"

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
	'Erstellen der Texte fein ****ENDE
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''


''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
	'Erstellen der Texte mittel ****START
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
	
			case "2"

	Set drwText = drwTexts.Add("DIN 7168/Teil1", paperWidth - 196-x, 73.5+y)
		drwText.SetFontSize 0, 0, 2.2
		drwText.AnchorPosition = 2
		drwText.SetFontName 0, 0, "Swis721 BT"
	Set drwText = drwTexts.Add("Obere und untere Abmasse für Längenmasse ( Abmasse in mm für Nennmassbereich in mm )", paperWidth - 149-x, 73.5+y)
		drwText.SetFontSize 0, 0, 2.2
		drwText.AnchorPosition = 2
		drwText.SetFontName 0, 0, "Swis721 BT"

	Set drwText = drwTexts.Add("Genauigkeitsgrad", paperWidth - 197-x, 67.5+y)
		drwText.SetFontSize 0, 0, 2.2
		drwText.AnchorPosition = 2
		drwText.SetFontName 0, 0, "Swis721 BT"

	Set drwText = drwTexts.Add("> 0.5 ", paperWidth - 163-x, 69+y)
		drwText.SetFontSize 0, 0, 2.2
		drwText.AnchorPosition = 2
		drwText.SetFontName 0, 0, "Swis721 BT"
	Set drwText = drwTexts.Add("> 3 ", paperWidth - 141-x, 69+y)
		drwText.SetFontSize 0, 0, 2.2
		drwText.AnchorPosition = 2
		drwText.SetFontName 0, 0, "Swis721 BT"
	Set drwText = drwTexts.Add("> 6 ", paperWidth - 120-x, 69+y)
		drwText.SetFontSize 0, 0, 2.2
		drwText.AnchorPosition = 2
		drwText.SetFontName 0, 0, "Swis721 BT"
	Set drwText = drwTexts.Add("> 30 ", paperWidth - 99.5-x, 69+y)
		drwText.SetFontSize 0, 0, 2.2
		drwText.AnchorPosition = 2
		drwText.SetFontName 0, 0, "Swis721 BT"
	Set drwText = drwTexts.Add("> 120 ", paperWidth -  78.5-x, 69+y)
		drwText.SetFontSize 0, 0, 2.2
		drwText.AnchorPosition = 2
		drwText.SetFontName 0, 0, "Swis721 BT"
	Set drwText = drwTexts.Add("> 400 ", paperWidth -  57-x, 69+y)
		drwText.SetFontSize 0, 0, 2.2
		drwText.AnchorPosition = 2
		drwText.SetFontName 0, 0, "Swis721 BT"
	Set drwText = drwTexts.Add("> 1000 ", paperWidth -   37-x, 69+y)
		drwText.SetFontSize 0, 0, 2.2
		drwText.AnchorPosition = 2
		drwText.SetFontName 0, 0, "Swis721 BT"
	Set drwText = drwTexts.Add("> 2000 ", paperWidth -  15.5-x, 69+y)
		drwText.SetFontSize 0, 0, 2.2
		drwText.AnchorPosition = 2
		drwText.SetFontName 0, 0, "Swis721 BT"

	Set drwText = drwTexts.Add("bis 3", paperWidth - 162-x, 66+y)
		drwText.SetFontSize 0, 0, 2.2
		drwText.AnchorPosition = 2
		drwText.SetFontName 0, 0, "Swis721 BT"
	Set drwText = drwTexts.Add("bis 6", paperWidth - 141.5-x, 66+y)
		drwText.SetFontSize 0, 0, 2.2
		drwText.AnchorPosition = 2
		drwText.SetFontName 0, 0, "Swis721 BT"
	Set drwText = drwTexts.Add("bis 30", paperWidth - 121.5-x, 66+y)
		drwText.SetFontSize 0, 0, 2.2
		drwText.AnchorPosition = 2
		drwText.SetFontName 0, 0, "Swis721 BT"
	Set drwText = drwTexts.Add("bis 120", paperWidth - 101-x, 66+y)
		drwText.SetFontSize 0, 0, 2.2
		drwText.AnchorPosition = 2
		drwText.SetFontName 0, 0, "Swis721 BT"
	Set drwText = drwTexts.Add("bis 400", paperWidth -  79.5-x, 66+y)
		drwText.SetFontSize 0, 0, 2.2
		drwText.AnchorPosition = 2
		drwText.SetFontName 0, 0, "Swis721 BT"
	Set drwText = drwTexts.Add("bis 1000", paperWidth -  58.5-x, 66+y)
		drwText.SetFontSize 0, 0, 2.2
		drwText.AnchorPosition = 2
		drwText.SetFontName 0, 0, "Swis721 BT"
	Set drwText = drwTexts.Add("bis 2000", paperWidth -   37.5-x, 66+y)
		drwText.SetFontSize 0, 0, 2.2
		drwText.AnchorPosition = 2
		drwText.SetFontName 0, 0, "Swis721 BT"
	Set drwText = drwTexts.Add("bis 4000", paperWidth -  16.5-x, 66+y)
		drwText.SetFontSize 0, 0, 2.2
		drwText.AnchorPosition = 2
		drwText.SetFontName 0, 0, "Swis721 BT"

	Set drwText = drwTexts.Add("m        ( mittel )", paperWidth - 194-x, 61.5+y)
		drwText.SetFontSize 0, 0, 2.2
		drwText.AnchorPosition = 2
		drwText.SetFontName 0, 0, "Swis721 BT"

	Set drwText = drwTexts.Add("± 0,1", paperWidth - 164-x, 61.5+y)
		drwText.SetFontSize 0, 0, 2.2
		drwText.AnchorPosition = 2
		drwText.SetFontName 0, 0, "Swis721 BT"
	Set drwText = drwTexts.Add("± 0,1", paperWidth - 142.5-x, 61.5+y)
		drwText.SetFontSize 0, 0, 2.2
		drwText.AnchorPosition = 2
		drwText.SetFontName 0, 0, "Swis721 BT"
	Set drwText = drwTexts.Add("± 0,2", paperWidth - 121-x, 61.5+y)
		drwText.SetFontSize 0, 0, 2.2
		drwText.AnchorPosition = 2
		drwText.SetFontName 0, 0, "Swis721 BT"
	Set drwText = drwTexts.Add("± 0,3", paperWidth - 100-x, 61.5+y)
		drwText.SetFontSize 0, 0, 2.2
		drwText.AnchorPosition = 2
		drwText.SetFontName 0, 0, "Swis721 BT"
	Set drwText = drwTexts.Add("± 0,5", paperWidth -  78.5-x, 61.5+y)
		drwText.SetFontSize 0, 0, 2.2
		drwText.AnchorPosition = 2
		drwText.SetFontName 0, 0, "Swis721 BT"
	Set drwText = drwTexts.Add("± 0,8", paperWidth -  57-x, 61.5+y)
		drwText.SetFontSize 0, 0, 2.2
		drwText.AnchorPosition = 2
		drwText.SetFontName 0, 0, "Swis721 BT"
	Set drwText = drwTexts.Add("± 1,2", paperWidth -   35.5-x, 61.5+y)
		drwText.SetFontSize 0, 0, 2.2
		drwText.AnchorPosition = 2
		drwText.SetFontName 0, 0, "Swis721 BT"
	Set drwText = drwTexts.Add("± 2", paperWidth -  14-x, 61.5+y)
		drwText.SetFontSize 0, 0, 2.2
		drwText.AnchorPosition = 2
		drwText.SetFontName 0, 0, "Swis721 BT"

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
	'Erstellen der Texte mittel ****ENDE
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''


''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
	'Erstellen der Texte grob ****START
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
			case "3"

	Set drwText = drwTexts.Add("DIN 7168/Teil1", paperWidth - 196-x, 73.5+y)
		drwText.SetFontSize 0, 0, 2.2
		drwText.AnchorPosition = 2
		drwText.SetFontName 0, 0, "Swis721 BT"
	Set drwText = drwTexts.Add("Obere und untere Abmasse für Längenmasse ( Abmasse in mm für Nennmassbereich in mm )", paperWidth - 149-x, 73.5+y)
		drwText.SetFontSize 0, 0, 2.2
		drwText.AnchorPosition = 2
		drwText.SetFontName 0, 0, "Swis721 BT"

	Set drwText = drwTexts.Add("Genauigkeitsgrad", paperWidth - 197-x, 67.5+y)
		drwText.SetFontSize 0, 0, 2.2
		drwText.AnchorPosition = 2
		drwText.SetFontName 0, 0, "Swis721 BT"

	Set drwText = drwTexts.Add("> 0.5 ", paperWidth - 163-x, 69+y)
		drwText.SetFontSize 0, 0, 2.2
		drwText.AnchorPosition = 2
		drwText.SetFontName 0, 0, "Swis721 BT"
	Set drwText = drwTexts.Add("> 3 ", paperWidth - 141-x, 69+y)
		drwText.SetFontSize 0, 0, 2.2
		drwText.AnchorPosition = 2
		drwText.SetFontName 0, 0, "Swis721 BT"
	Set drwText = drwTexts.Add("> 6 ", paperWidth - 120-x, 69+y)
		drwText.SetFontSize 0, 0, 2.2
		drwText.AnchorPosition = 2
		drwText.SetFontName 0, 0, "Swis721 BT"
	Set drwText = drwTexts.Add("> 30 ", paperWidth - 99.5-x, 69+y)
		drwText.SetFontSize 0, 0, 2.2
		drwText.AnchorPosition = 2
		drwText.SetFontName 0, 0, "Swis721 BT"
	Set drwText = drwTexts.Add("> 120 ", paperWidth -  78.5-x, 69+y)
		drwText.SetFontSize 0, 0, 2.2
		drwText.AnchorPosition = 2
		drwText.SetFontName 0, 0, "Swis721 BT"
	Set drwText = drwTexts.Add("> 400 ", paperWidth -  57-x, 69+y)
		drwText.SetFontSize 0, 0, 2.2
		drwText.AnchorPosition = 2
		drwText.SetFontName 0, 0, "Swis721 BT"
	Set drwText = drwTexts.Add("> 1000 ", paperWidth -   37-x, 69+y)
		drwText.SetFontSize 0, 0, 2.2
		drwText.AnchorPosition = 2
		drwText.SetFontName 0, 0, "Swis721 BT"
	Set drwText = drwTexts.Add("> 2000 ", paperWidth -  15.5-x, 69+y)
		drwText.SetFontSize 0, 0, 2.2
		drwText.AnchorPosition = 2
		drwText.SetFontName 0, 0, "Swis721 BT"

	Set drwText = drwTexts.Add("bis 3", paperWidth - 162-x, 66+y)
		drwText.SetFontSize 0, 0, 2.2
		drwText.AnchorPosition = 2
		drwText.SetFontName 0, 0, "Swis721 BT"
	Set drwText = drwTexts.Add("bis 6", paperWidth - 141.5-x, 66+y)
		drwText.SetFontSize 0, 0, 2.2
		drwText.AnchorPosition = 2
		drwText.SetFontName 0, 0, "Swis721 BT"
	Set drwText = drwTexts.Add("bis 30", paperWidth - 121.5-x, 66+y)
		drwText.SetFontSize 0, 0, 2.2
		drwText.AnchorPosition = 2
		drwText.SetFontName 0, 0, "Swis721 BT"
	Set drwText = drwTexts.Add("bis 120", paperWidth - 101-x, 66+y)
		drwText.SetFontSize 0, 0, 2.2
		drwText.AnchorPosition = 2
		drwText.SetFontName 0, 0, "Swis721 BT"
	Set drwText = drwTexts.Add("bis 400", paperWidth -  79.5-x, 66+y)
		drwText.SetFontSize 0, 0, 2.2
		drwText.AnchorPosition = 2
		drwText.SetFontName 0, 0, "Swis721 BT"
	Set drwText = drwTexts.Add("bis 1000", paperWidth -  58.5-x, 66+y)
		drwText.SetFontSize 0, 0, 2.2
		drwText.AnchorPosition = 2
		drwText.SetFontName 0, 0, "Swis721 BT"
	Set drwText = drwTexts.Add("bis 2000", paperWidth -   37.5-x, 66+y)
		drwText.SetFontSize 0, 0, 2.2
		drwText.AnchorPosition = 2
		drwText.SetFontName 0, 0, "Swis721 BT"
	Set drwText = drwTexts.Add("bis 4000", paperWidth -  16.5-x, 66+y)
		drwText.SetFontSize 0, 0, 2.2
		drwText.AnchorPosition = 2
		drwText.SetFontName 0, 0, "Swis721 BT"

	Set drwText = drwTexts.Add("g        ( grob )", paperWidth - 194-x, 61.5+y)
		drwText.SetFontSize 0, 0, 2.2
		drwText.AnchorPosition = 2
		drwText.SetFontName 0, 0, "Swis721 BT"

	Set drwText = drwTexts.Add("± 0,15", paperWidth - 164-x, 61.5+y)
		drwText.SetFontSize 0, 0, 2.2
		drwText.AnchorPosition = 2
		drwText.SetFontName 0, 0, "Swis721 BT"
	Set drwText = drwTexts.Add("± 0,2", paperWidth - 142.5-x, 61.5+y)
		drwText.SetFontSize 0, 0, 2.2
		drwText.AnchorPosition = 2
		drwText.SetFontName 0, 0, "Swis721 BT"
	Set drwText = drwTexts.Add("± 0,5", paperWidth - 121-x, 61.5+y)
		drwText.SetFontSize 0, 0, 2.2
		drwText.AnchorPosition = 2
		drwText.SetFontName 0, 0, "Swis721 BT"
	Set drwText = drwTexts.Add("± 0,8", paperWidth - 100-x, 61.5+y)
		drwText.SetFontSize 0, 0, 2.2
		drwText.AnchorPosition = 2
		drwText.SetFontName 0, 0, "Swis721 BT"
	Set drwText = drwTexts.Add("± 1,2", paperWidth -  78.5-x, 61.5+y)
		drwText.SetFontSize 0, 0, 2.2
		drwText.AnchorPosition = 2
		drwText.SetFontName 0, 0, "Swis721 BT"
	Set drwText = drwTexts.Add("± 2", paperWidth -  57-x, 61.5+y)
		drwText.SetFontSize 0, 0, 2.2
		drwText.AnchorPosition = 2
		drwText.SetFontName 0, 0, "Swis721 BT"
	Set drwText = drwTexts.Add("± 3", paperWidth -   35.5-x, 61.5+y)
		drwText.SetFontSize 0, 0, 2.2
		drwText.AnchorPosition = 2
		drwText.SetFontName 0, 0, "Swis721 BT"
	Set drwText = drwTexts.Add("± 4", paperWidth -  14-x, 61.5+y)
		drwText.SetFontSize 0, 0, 2.2
		drwText.AnchorPosition = 2
		drwText.SetFontName 0, 0, "Swis721 BT"

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
	'Erstellen der Texte grob ****ENDE
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''


''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
	'Erstellen der Texte sehr grob ****START
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

			case "4"

	Set drwText = drwTexts.Add("DIN 7168/Teil1", paperWidth - 196-x, 73.5+y)
		drwText.SetFontSize 0, 0, 2.2
		drwText.AnchorPosition = 2
		drwText.SetFontName 0, 0, "Swis721 BT"
	Set drwText = drwTexts.Add("Obere und untere Abmasse für Längenmasse ( Abmasse in mm für Nennmassbereich in mm )", paperWidth - 149-x, 73.5+y)
		drwText.SetFontSize 0, 0, 2.2
		drwText.AnchorPosition = 2
		drwText.SetFontName 0, 0, "Swis721 BT"

	Set drwText = drwTexts.Add("Genauigkeitsgrad", paperWidth - 197-x, 67.5+y)
		drwText.SetFontSize 0, 0, 2.2
		drwText.AnchorPosition = 2
		drwText.SetFontName 0, 0, "Swis721 BT"

	Set drwText = drwTexts.Add("> 0.5 ", paperWidth - 163-x, 69+y)
		drwText.SetFontSize 0, 0, 2.2
		drwText.AnchorPosition = 2
		drwText.SetFontName 0, 0, "Swis721 BT"
	Set drwText = drwTexts.Add("> 3 ", paperWidth - 141-x, 69+y)
		drwText.SetFontSize 0, 0, 2.2
		drwText.AnchorPosition = 2
		drwText.SetFontName 0, 0, "Swis721 BT"
	Set drwText = drwTexts.Add("> 6 ", paperWidth - 120-x, 69+y)
		drwText.SetFontSize 0, 0, 2.2
		drwText.AnchorPosition = 2
		drwText.SetFontName 0, 0, "Swis721 BT"
	Set drwText = drwTexts.Add("> 30 ", paperWidth - 99.5-x, 69+y)
		drwText.SetFontSize 0, 0, 2.2
		drwText.AnchorPosition = 2
		drwText.SetFontName 0, 0, "Swis721 BT"
	Set drwText = drwTexts.Add("> 120 ", paperWidth -  78.5-x, 69+y)
		drwText.SetFontSize 0, 0, 2.2
		drwText.AnchorPosition = 2
		drwText.SetFontName 0, 0, "Swis721 BT"
	Set drwText = drwTexts.Add("> 400 ", paperWidth -  57-x, 69+y)
		drwText.SetFontSize 0, 0, 2.2
		drwText.AnchorPosition = 2
		drwText.SetFontName 0, 0, "Swis721 BT"
	Set drwText = drwTexts.Add("> 1000 ", paperWidth -   37-x, 69+y)
		drwText.SetFontSize 0, 0, 2.2
		drwText.AnchorPosition = 2
		drwText.SetFontName 0, 0, "Swis721 BT"
	Set drwText = drwTexts.Add("> 2000 ", paperWidth -  15.5-x, 69+y)
		drwText.SetFontSize 0, 0, 2.2
		drwText.AnchorPosition = 2
		drwText.SetFontName 0, 0, "Swis721 BT"

	Set drwText = drwTexts.Add("bis 3", paperWidth - 162-x, 66+y)
		drwText.SetFontSize 0, 0, 2.2
		drwText.AnchorPosition = 2
		drwText.SetFontName 0, 0, "Swis721 BT"
	Set drwText = drwTexts.Add("bis 6", paperWidth - 141.5-x, 66+y)
		drwText.SetFontSize 0, 0, 2.2
		drwText.AnchorPosition = 2
		drwText.SetFontName 0, 0, "Swis721 BT"
	Set drwText = drwTexts.Add("bis 30", paperWidth - 121.5-x, 66+y)
		drwText.SetFontSize 0, 0, 2.2
		drwText.AnchorPosition = 2
		drwText.SetFontName 0, 0, "Swis721 BT"
	Set drwText = drwTexts.Add("bis 120", paperWidth - 101-x, 66+y)
		drwText.SetFontSize 0, 0, 2.2
		drwText.AnchorPosition = 2
		drwText.SetFontName 0, 0, "Swis721 BT"
	Set drwText = drwTexts.Add("bis 400", paperWidth -  79.5-x, 66+y)
		drwText.SetFontSize 0, 0, 2.2
		drwText.AnchorPosition = 2
		drwText.SetFontName 0, 0, "Swis721 BT"
	Set drwText = drwTexts.Add("bis 1000", paperWidth -  58.5-x, 66+y)
		drwText.SetFontSize 0, 0, 2.2
		drwText.AnchorPosition = 2
		drwText.SetFontName 0, 0, "Swis721 BT"
	Set drwText = drwTexts.Add("bis 2000", paperWidth -   37.5-x, 66+y)
		drwText.SetFontSize 0, 0, 2.2
		drwText.AnchorPosition = 2
		drwText.SetFontName 0, 0, "Swis721 BT"
	Set drwText = drwTexts.Add("bis 4000", paperWidth -  16.5-x, 66+y)
		drwText.SetFontSize 0, 0, 2.2
		drwText.AnchorPosition = 2
		drwText.SetFontName 0, 0, "Swis721 BT"

	Set drwText = drwTexts.Add("sg   ( sehr grob )", paperWidth - 194-x, 61.5+y)
		drwText.SetFontSize 0, 0, 2.2
		drwText.AnchorPosition = 2
		drwText.SetFontName 0, 0, "Swis721 BT"

	Set drwText = drwTexts.Add("-", paperWidth - 164-x, 61.5+y)
		drwText.SetFontSize 0, 0, 2.2
		drwText.AnchorPosition = 2
		drwText.SetFontName 0, 0, "Swis721 BT"
	Set drwText = drwTexts.Add("± 0,5", paperWidth - 142.5-x, 61.5+y)
		drwText.SetFontSize 0, 0, 2.2
		drwText.AnchorPosition = 2
		drwText.SetFontName 0, 0, "Swis721 BT"
	Set drwText = drwTexts.Add("± 1", paperWidth - 121-x, 61.5+y)
		drwText.SetFontSize 0, 0, 2.2
		drwText.AnchorPosition = 2
		drwText.SetFontName 0, 0, "Swis721 BT"
	Set drwText = drwTexts.Add("± 1,5", paperWidth - 100-x, 61.5+y)
		drwText.SetFontSize 0, 0, 2.2
		drwText.AnchorPosition = 2
		drwText.SetFontName 0, 0, "Swis721 BT"
	Set drwText = drwTexts.Add("± 2", paperWidth -  78.5-x, 61.5+y)
		drwText.SetFontSize 0, 0, 2.2
		drwText.AnchorPosition = 2
		drwText.SetFontName 0, 0, "Swis721 BT"
	Set drwText = drwTexts.Add("± 3", paperWidth -  57-x, 61.5+y)
		drwText.SetFontSize 0, 0, 2.2
		drwText.AnchorPosition = 2
		drwText.SetFontName 0, 0, "Swis721 BT"
	Set drwText = drwTexts.Add("± 4", paperWidth -   35.5-x, 61.5+y)
		drwText.SetFontSize 0, 0, 2.2
		drwText.AnchorPosition = 2
		drwText.SetFontName 0, 0, "Swis721 BT"
	Set drwText = drwTexts.Add("± 6", paperWidth -  14-x, 61.5+y)
		drwText.SetFontSize 0, 0, 2.2
		drwText.AnchorPosition = 2
		drwText.SetFontName 0, 0, "Swis721 BT"

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
	'Erstellen der Texte sehr grob ****ENDE
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

			case else

			
end select

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
	'Erstellen der Toleranz-Linien ****START
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'vertikale Linien: **************** START **********************************
If paperWidth > 210 Then 
	Set verLine = fact2D.CreateLine(paperWidth - 200-x, 76+y, paperWidth - 200-x, 59+y)
End If
	Set verLine = fact2D.CreateLine(paperWidth -	170-x,			76+y, paperWidth -	170-x,			59+y)
	Set verLine = fact2D.CreateLine(paperWidth -	148.75-x,	71+y, paperWidth -	148.75-x,	59+y)
	Set verLine = fact2D.CreateLine(paperWidth -	127.5-x,		71+y, paperWidth -	127.5-x,		59+y)
	Set verLine = fact2D.CreateLine(paperWidth -	106.25-x,	71+y, paperWidth -	106.25-x,	59+y)
	Set verLine = fact2D.CreateLine(paperWidth -	85-x,			71+y, paperWidth -	85-x,			59+y)
	Set verLine = fact2D.CreateLine(paperWidth -	63.75-x,		71+y, paperWidth -	63.75-x,		59+y)
	Set verLine = fact2D.CreateLine(paperWidth -	42.5-x,		71+y, paperWidth -	42.5-x,		59+y)
	Set verLine = fact2D.CreateLine(paperWidth -	21.25-x,		71+y, paperWidth -	21.25-x,		59+y)
'vertikale Linien: **************** ENDE **********************************

'horizontale Linien: **************START **********************************
	Set horLine = fact2D.CreateLine(paperWidth - 200-x, 59+y, paperWidth - x, 59+y)
	Set horLine = fact2D.CreateLine(paperWidth - 200-x, 64+y, paperWidth - x, 64+y)
	Set horLine = fact2D.CreateLine(paperWidth - 200-x, 71+y, paperWidth - x, 71+y)
'horizontale Linien: ************** ENDE **********************************


''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
	'Erstellen der Toleranz-Linien ****ENDE
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    
	'Verweis auf die Arbeitsansichten
	Set drwView = drwViews.Item(1)
	
	drwView.Activate

End Sub ' --- Main

'>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
'>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>