Makro gibt nur Zahlenwerte aus keine Buchstaben (Dassault Systemes - PLM Solutions/CATIA V5 Programmierung)

Hi Leute!

Ich habe mir ein Makro runtergeladen. Es wandelt drawings in dwg um. Das Problem ist, das es die Layer nur als Zahlen ausgibt, wenn ich Buchstaben ins Makro reinschreibe kommt eine Fehlermeldung. Gibt es da schnelle Abhilfe oder ist das komplizierter?
Hier ist die Zeile um die es geht: CATIA.ActiveDocument.Selection.VisProperties.SetLayer catVisLayerBasic, 2
In dieser Zeile wird im Autocad als Layername "2" ausgegeben ich würde dort gerne "Koerperkanten" ausgegeben haben.

MfG Marco

'*****************************************************************
'*
'* Programm zum umwandeln von CATIA (V4 +) V5 Draftings in ACAD - Dwg's
'*
'* Erstellt : 03.03.2008 -
'* V0.1 Alle Drafting's eines Verzeichnisses einlesen und als Dwg speichern
'* V0.2 Farben nach ACAD-Tabelle Setzen
'* V0.3 Layer Zuordnung von ACAD benutzen
'* (V0,4 Blatt Namen auslesen und setzen! - Sonst nur SmarTeam Nr)
'*
'*
'*****************************************************************

Dim documents1 As Documents
Dim document1 As Document
Dim drawingDocument1 As Document
Dim drawingSheets1 As DrawingSheets
Dim drawingSheet1 As DrawingSheet

Dim selection1 As Selection
Dim selection2 As Selection
Dim specsAndGeomWindow1 As Window

Dim Geos As GeometricElements
Dim Geo As GeometricElement

Dim zaehler As Integer
Dim namen ( 200 ) As String

Dim Farben As String

Sub CATMain()

MsgBox "Tool : DRW_V5_TO_ACAD-Dwg" & chr(13) & chr(10) & chr(13) & chr(10) & chr(13) & chr(10) & "Erklärung:" & chr(10) & chr(13) &"Nach dem Öffnen EINER Drafting aus dem Start- / Zielverzeichnis"& chr(13) & chr(10)&"werden nacheinander ALLE Draftings in ACAD-Dwg-Dateien umgewandelt." & chr(13) & chr(10) & chr(13) & chr(10) &"Alle Kanten werden beim umwandeln auf die jeweiligen ACAD Layer und Farben gesetzt." & chr(13) & chr(10) & chr(13) & chr(10)

WandleFarbe=0
WandleFarbe = InputBox ("Sollen allen Kanten ACAD Farben zugeordnet werden?" & chr(13) & chr(10) & chr(13) & chr(10) &chr(13) & chr(10) &"Farben nicht ändern : 0"& chr(10) &chr(13) & chr(10) &"Farben ändern : 1"& chr(10) &chr(13) & chr(10) & chr(10) &chr(13) & chr(10) , Farben )

filename =Catia.FileSelectionBox ("Datei Öffnen","*.CATDrawing", CATFileSelectionModeOpen)
If filename <>"" Then
trennzeichen = "\"
values = Split ( filename, trennzeichen )

For i=0 To 100 Step 1

If (InStr( values(i),".CATDrawing")) <> 0 Then
Exit For
End If

Pfad=Pfad & values( i ) & "\"

End If

If filename <>"" Then

folderinput = Pfad
folderoutput =folderinput

Dim fs, f, f1, fc, s
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder(folderinput)
Set fc = f.Files

For Each f1 in fc

Set documents1 = CATIA.Documents

PFADEINGABE = folderinput & f1.name

If (InStr( PFADEINGABE,".CATDrawing")) <> 0 Then

Set document1 = documents1.Open(PFADEINGABE)

Set drawingDocument1 = CATIA.ActiveDocument

drawingDocument1.Standard = 1

Set drawingSheets1 = drawingDocument1.Sheets

'****************** Anzahl Blätter ************************************

Counter1 = drawingSheets1.Count

For I=1 to Counter1

Name1 = CATIA.ActiveDocument.Sheets.Item(I).Name

' MsgBox ( CATIA.ActiveDocument.Sheets.Item(I).Name )

Set drawingSheet1 = drawingSheets1.Item( I )
drawingSheet1.Activate

Set drawingDocument1 = CATIA.ActiveDocument

'***************************************************** Farbe ändern ?

Set drawingDocument1 = CATIA.ActiveDocument

Set selection1 = drawingDocument1.Selection

'**** Koerperkannten Layer 0 - Weiß

CATIA.ActiveDocument.Selection.Search "Weight=0,35mm,all"
If ( WandleFarbe = 1 ) then
CATIA.ActiveDocument.Selection.VisProperties.SetRealColor 0,0,0,1
End If
CATIA.ActiveDocument.Selection.VisProperties.SetLayer catVisLayerBasic, 2