---

Hi!

ich hab mal wieder ein problemchen. folgendes, ich habe im sourcecode VBA einen code geschrieben, welcher einen neuen layer erzeugt. dieser wird gespeichert. mein problem ist aber, dass diese funktion nur für das erste mal hin haut und sich immer unter den selben namen speichert. wie kann ich das jetzt lösen, dass ich immer neue layer speichern kann, oder dass der name des layers bzw. zahl automatisch zugewiesen wird?

------------------------------------------------
Private Sub CommandButton11_Click()

Dim layerObj As AcadLayer
Set layerObj = ThisDrawing.Layers.Add("1")

End Sub
------------------------------------------------

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

---

Hi,

Das dein "Code" nur beim ersten Mal funktioniert ist klar. Du erstellst einen Layer mit dem Namen "1". Beim zweiten Mal kann er den Layer ja nicht noch mal anlegen, da er schon vorhanden ist. Daher wirst du dort eine Fehlermeldung erhalten.
Du solltest hier vorher prüfen, ob der Layer schon vorhanden ist oder nicht.
Du kannst die dir String ja vorher nach belieben zusammensetzen und dann den Layer erstellen.

Gruß, Carsten

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