Vorgehensweise für automatisches Layerumbennen



1. alte Layer aus AutoCad auslesen (Befehl: 'ATTEXT'; Schablone KKS_Sort.txt); (Block zs-a3q-d, alle Layer ab Blatt 100 sichtbar und entsperrt)

2. mit XLS; Datei-öffnen; txt-Datei; einlesen Komma-erkennung; Zellen als Text formatieren

3. Spaltenüberschriften erstellen KKS, VGB, Layer alt, Seite alt

4. Alles markieren - Sortieren 1. KKS aufsteigend und 2. Seite Alt aufsteigend

5. nach Seite alt neue spalte einfügen und seitennummern aufsteigend neu erstellen

6. Blatt kopieren (als Sicherheitskopie); Das zu bearbeitende Blatt in "Tabelle_1" umbenennen und auf diesem weiterfahren

7. Spalten C, D neu erstellen

8. Spalte C in jeder zeile befüllen mit "-umbenenn"

9. Spalte D in jeder zeile befüllen mit "la"

10. Spalte E muss Layer alt sein

11. Spalte F neu erstellen

12. Spalte F neue Layer generieren mit Formel =Zelle'Seitennummer neu'&"-st" (Formatiert als Standard)

13. Spalten C-F sollten nun in folgender Reihenfolge sein: 
	C= -umbenenn
	D= la
	E= alter Layername
	F= neuer Layername

14. VBA-Modul erstellen mit Script aus Vorlagedatei "Schreibe_SCR_Layer_Umbenenn.txt" (in Excel starten mit ALT+F11)

15. VBA-Modul ausführen

16. die txt-Datei speichen als Zeichnungsname'_LayerNeu.scr.txt

17. Datei öffnen

18. in der ersten Zeile muss der erste Eintrag "-umbenenn" sein (ggf. noch die ersten Zeilen mit Spaltenüberschriften löschen)

19. Das Script sollte jetzt so aussehen:
	-umbennen
	la
	101-st
	104-st
	-umbenenn
	la
	102-st
	105-st
		usw.

20. die Dateiendung txt entfernen

21. Die Datei (heisst nun *.scr) per Drag and Drop in die Autocad-Zeichnung ziehen

22. Die Layer sollten nun umbenannt sein.

******************************************************************************************************************
VBA-Script für das Modul in Excel:




Sub SheetNachTXT_Zeilen()
'hierbei bleibt die Formatierung der Zellen so wie sie angezeigt wird.
'Es muss alles so formatiert sein wie es später In der TXT sein soll.
Dim vntFileName As Variant
Dim lngFN As Long
Dim strDelimiter As String
Dim strText As String
Dim wksQuelle As Excel.Worksheet
Dim lngLetzteZeile As Long
Dim lngZeile As Long
Dim lngSpalte As Long
Dim lngAbSpalte As Long
Dim lngBisSpalte As Long
lngAbSpalte = 3 '=C
lngBisSpalte = 6 '=F


Set wksQuelle = ActiveWorkbook.Worksheets("Tabelle_1")  'Beispiel anpassen!!  oder auch:  ... = Activesheet

'ggf.:
vntFileName = Application.GetSaveAsFilename("Test1.txt", FileFilter:="TXT-File (*.txt),*.txt")
If vntFileName = False Then Exit Sub
'oder:
'vntFileName = "D:\test\test999.txt"

lngLetzteZeile = wksQuelle.Cells(wksQuelle.Rows.Count, lngAbSpalte).End(xlUp).Row

lngFN = FreeFile
Open vntFileName For Output As lngFN
 For lngZeile = 1 To lngLetzteZeile
  For lngSpalte = lngAbSpalte To lngBisSpalte
   strText = wksQuelle.Cells(lngZeile, lngSpalte).Text 'Text!!! inclusive dem NumberFormat der Zelle
   Print #lngFN, strText
  Next
 Next
 Print #lngFN, ";"
Close lngFN
End Sub



























******************************************************************************************************************