---

Hallo

Hat jemand eine Ahnung wie ich die Layaerliste exportieren kann (CAD 2000)

Besten Dank
Marc Baumgartner

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Marc,

meinst Du in eine andere *.dwg, oder in ein Textverarbeitungsprogramm? Beides geht.
Lothar

------------------
"Stellt Euch vor, es geht, und keiner kriegt's hin." (Neuss)

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

In eine Textdatei...

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

"-la" -> "?" -> Strg C ...

mit Suchfunktion wäre es schneller gegangen.

Grüße von Lothar

------------------
"Stellt Euch vor, es geht, und keiner kriegt's hin." (Neuss)

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Ich habe gemitn ob man das von der Maske her kann exportieren und nicht -Layer

Aber danke

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

OK, pardon, dann kann ich Dir nicht helfen...

Lothar

------------------
"Stellt Euch vor, es geht, und keiner kriegt's hin." (Neuss)

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Was hast du den vor damit,
es gibt ein tool das dir das als File ausliest
und was ich persöhnlich besser finde
Ladoc
mfg cw

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Ich will sehen was für layer in der Datei verwendet wird und das ich es nicht zeimal schreiben muss einmal im Excel un dann och im AutoCAD

Besten Dank

Marc

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi,

wie cadwoman schon sagt, besorg Dir bei cadwiesel ladoc. Geht ganz prima. Ich benutze das auch immer.

Gruß

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Gibt es auch das ich eine Layerliste importieren kann z.b aus einer Excel Tabelle?

@cadwoman
@kramer24
@le_resistant

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Moin,
ist mir nicht bekannt. Brauchte ich auch noch nicht, ich habe 'ne *.dwt, bzw importiere Layer über DesignCenter.

Grüße von Lothar

------------------
"Stellt Euch vor, es geht, und keiner kriegt's hin." (Neuss)

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

@marc

Das geht ganz einfach die erzeugte Datei importieren
mit Trennzeichen und ab der 10ten Zeile, das ganze dann als Excel
speichern und fertig.
Eventuell ist das porgi auch schon weiterentwickelt.

Gibt noch was von Dotsoft - die machen das mit Bildchen als
Html und die ist echt cool die Darstellung

nwe cw

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hier ein kleines VBA-Tool, hab ich mal schnell geschrieben.

Code:

---

Option Explicit

Public ExcelVBA As Excel.Application    ' stellt Excel für alle Prozeduren bereit

' Schreibt Layerliste in Exceldatei
Public Sub LayerListeExcel()
   
    If ExcelVBA Is Nothing Then Set ExcelVBA = New Excel.Application
   
    Dim LayerListe As AcadLayers
    Dim LayerObj As AcadLayer
    Dim Elem As Object

    Dim Fenster As AcadPViewport
    Dim GibtFenster As Boolean
   
    Dim ExcelSheet As Excel.Worksheet
    Dim ExcelWorkbook As Excel.Workbook
    Dim aktRange As Excel.Range
   
    Dim RowNum As Integer
    Dim Count As Integer
   
    Dim Pfad As String
    Dim DatName As String
    Dim PfadDatei As String
   
   
   
    ' Pfad für Speicherung Datei ermitteln
    Pfad = ThisDrawing.GetVariable("DWGPREFIX")
    DatName = ThisDrawing.GetVariable("DWGNAME")
    DatName = Left(DatName, Len(DatName) - 4)
    PfadDatei = Pfad & DatName & "-LayerListe.xls"
    If PfadDatei = "" Then Exit Sub
   
    ' Excel starten.
    ExcelVBA.Visible = True
   
    ' Erstellen einer neuen Arbeitsmappe und Suchen des aktiven Arbeitsblatts.
    Set ExcelWorkbook = ExcelVBA.Workbooks.Add
    Set ExcelSheet = ExcelVBA.ActiveSheet
    ExcelSheet.Name = DatName & " - Layerliste"
    On Error Resume Next
    ExcelWorkbook.SaveAs PfadDatei
    If Err Then
        MsgBox Err.Description
        Err.Clear
        Exit Sub
    End If
   
    RowNum = 1
   
    On Error Resume Next
    If ThisDrawing.ActiveSpace = acPaperSpace Then
        If ThisDrawing.MSpace = True Then Set Fenster = ThisDrawing.ActivePViewport
        GibtFenster = True
    End If
    If Err Then Err.Clear
   
   
    ExcelSheet.Cells(RowNum, 1).value = "NAME"
    ExcelSheet.Cells(RowNum, 2).value = "Ein/Aus"
    ExcelSheet.Cells(RowNum, 3).value = "Frieren/Tauen"
    ExcelSheet.Cells(RowNum, 4).value = "Sperren/Entsperren"
    ExcelSheet.Cells(RowNum, 5).value = "Farbe"
    ExcelSheet.Cells(RowNum, 6).value = "Linientyp"
    ExcelSheet.Cells(RowNum, 7).value = "Linienstärke"
    ExcelSheet.Cells(RowNum, 8).value = "Plotstil"
    ExcelSheet.Cells(RowNum, 9).value = "Plotten"
    If GibtFenster = True Then
        ExcelSheet.Cells(RowNum, 10).value = "Frieren in aktuellen Ansichtsfenstern"
        ExcelSheet.Cells(RowNum, 11).value = "Frieren in neuen Ansichtsfenstern"
    Else
        ExcelSheet.Cells(RowNum, 10).value = "Frieren in neuen Ansichtsfenstern"
    End If
   
   
   
    Set LayerListe = ThisDrawing.Layers
   
    For Each Elem In LayerListe
   
        Set LayerObj = Elem
       
        RowNum = RowNum + 1
       
            ExcelSheet.Cells(RowNum, 1).value = LayerObj.Name
            ExcelSheet.Cells(RowNum, 2).value = IIf(LayerObj.LayerOn, "Ein", "Aus")
            ExcelSheet.Cells(RowNum, 3).value = IIf(LayerObj.Freeze, "F", "T")
            ExcelSheet.Cells(RowNum, 4).value = IIf(LayerObj.Lock, "S", "E")
            ExcelSheet.Cells(RowNum, 5).value = LayerObj.Color
            ExcelSheet.Cells(RowNum, 6).value = LayerObj.Linetype
            ExcelSheet.Cells(RowNum, 7).value = LayerObj.Lineweight
            ExcelSheet.Cells(RowNum, 8).value = LayerObj.PlotStyleName
            ExcelSheet.Cells(RowNum, 9).value = IIf(LayerObj.Plottable, "J", "N")
            If GibtFenster = True Then
                ExcelSheet.Cells(RowNum, 10).value = IIf(VPFrozen(Fenster, LayerObj.Name), "F", "T")
                ExcelSheet.Cells(RowNum, 11).value = IIf(LayerObj.ViewportDefault, "F", "T")
            Else
                ExcelSheet.Cells(RowNum, 10).value = IIf(LayerObj.ViewportDefault, "J", "N")
            End If
       
    Next Elem
   
    Set aktRange = ExcelVBA.Range("A1")
   
    aktRange.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, Orientation:=xlTopToBottom
   
    ExcelWorkbook.Save
   
End Sub

'Returns a boolean indicating whether the specified boolean is frozen in the specified viewport
'Arguments: An AcadPViewport entity and the name of a layer
Function VPFrozen(vp As AcadPViewport, layer As String) As Boolean

    Dim xType, xData, i As Integer, retVal As Boolean
   
    vp.GetXData "ACAD", xType, xData
   
    For i = LBound(xType) To UBound(xType)
        If xType(i) = 1003 Then
            If UCase(xData(i)) = UCase(layer) Then
                retVal = True
                Exit For
            End If
        End If
    Next i
   
    VPFrozen = retVal
   
End Function

---

Die Layerliste gibt auch an, wenn du in einem Layout in einem Fenster bist, ob ein Layer in dem Ansichtsfenster gefroren ist.

------------------
Roland

[Diese Nachricht wurde von RoSiNiNo am 11. April 2003 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

@cadwomen

Ich meine eine Exceldatei ins AutoCAD importiern.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Und wie kann ich sie wieder im AutoCAD importiern?

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Das ist sicher auch kein Problem, nur hab ich grad keine Zeit das zu programmieren.
Ich werde es aber einemal schreiben und dann hier veröffentlichen.

------------------
Roland

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

@Marc sorry da war wohl mein Kopf nicht ganz bei der Sache,
und ich denke warum das erst in Excel eingeben und dann importieren,

man kann sichs auch umständlich machen.Oder wo soll der sinn
der aktion liegen ??

mfg cw

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP