---

Hallo,

wie kann ich einen Layer per VBA erstellen?
Ich lasse per VBA ein kleines Programm laufen, dass bestimmte Layer in der Zeichnung in den Layer "AM_5" ändern sollen. Nur ist in manchen Zeichnungen der Layer "AM_5" nicht verwendet und es passiert nichts. Wie kann ich diesen erstellen? Manuell geht das über Layergruppen-Steuerung und dann "erstellen"!?!

Gruß,

Oli.

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

---

aus der Entwicklerhilfe : ( ich hab keine Ahnung von VBA )

Sub Example_Add()       
    GoSub ADDLAYER
   
    Exit Sub
   
   
ADDLAYER:
    ' This example creates a new layer called "New_Layer"
    Dim layerObj As AcadLayer
   
    ' Add the layer to the layers collection
    Set layerObj = ThisDrawing.Layers.Add("New_Layer")
   
    ' Make the new layer the active layer for the drawing
    ThisDrawing.ActiveLayer = layerObj
   
    ' Display the status of the new layer
    MsgBox layerObj.name & " has been added." & vbCrLf & _
            "LayerOn Status: " & layerObj.LayerOn & vbCrLf & _
            "Freeze Status: " & layerObj.Freeze & vbCrLf & _
            "Lock Status: " & layerObj.Lock & vbCrLf & _
            "Color: " & layerObj.Color, , "Add Example"
    Return
   
   
End Sub

------------------
- Thomas -
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

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