Sub Layers2Html() Dim Layers As AcadLayers Dim Layer As AcadLayer Open "HTML_Layers.htm" For Output As #1 Print #1, "" Print #1, "" Print #1, "" Print #1, "" Print #1, "
" Print #1, "Layer von: " & ActiveDocument.Name + "" Print #1, "

" Print #1, "" Print #1, " " Print #1, " " Print #1, " " Print #1, " " Print #1, " " Print #1, " " Print #1, " " Print #1, " " Print #1, " " Print #1, " " Print #1, " " Print #1, " " Print #1, " " Set Layers = ActiveDocument.Layers For iLayer = 0 To Layers.count - 1 Set Layer = Layers.Item(iLayer) Print #1, " " Print #1, "" If (Layer.LayerOn = True) Then cs1 = "XX" Else cs1 = " " Print #1, "" If (Layer.Freeze = True) Then cs1 = "XX" Else cs1 = " " Print #1, "" If (Layer.Lock = True) Then cs1 = "XX" Else cs1 = " " Print #1, "" Print #1, "" Print #1, "" cs1 = Layer.Lineweight Select Case Layer.Lineweight Case acLnWtByBlock: cs1 = "VonBlock" Case acLnWtByLayer: cs1 = "VonLayer" Case acLnWtByLwDefault: cs1 = "Standard" End Select Print #1, "" Print #1, "" If (Layer.Plottable = True) Then cs1 = "XX" Else cs1 = " " Print #1, "" Print #1, " " Print #1, "" Next Print #1, "

Name	Ein	Frieren	Sperren	Farbe	Linientyp	Stärke	Plotstil	Plot
" + Layer.Name + "	" + cs1 + "	" + cs1 + "	" + cs1 + "	" & Layer.Color & "	" & Layer.Linetype & "	" & cs1 & "	" & Layer.PlotStyleName & "	" + cs1 + "

" Print #1, " " Print #1, "" Close #1 End Sub