---

Hallöchen!

wie kann ich einem neu erstellten Layer mit hilfe von VBA sagen welchen Linientyp er hat?

ich erstellt ihn so:

  ThisDrawing.Layers.Add("3s_arsl").Color = 1

lg Gambrinus

------------------
mfG
Gambrinus

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

---

Hi Gambrinus

das geht etwa so:

Public Sub LayerAnlegen()
    Dim aLayer as AcadLayer

    Set aLayer= ThisDrawing.Layers.Add("Test")
    aLayer.Color = acRed
    aLayer.LineType = "BYLAYER"
End Sub

Die Hilfe zu ACAD-VBA ist sehr gut aufgebaut, schau Dir die Sachen da mal an.
Gruß Norbert

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

---

Hi Norbert AC!

Danke für deine Hilfe, die mir sehr geholfen hat!

hier nun meine Lösung für einen neuen Layer!

Sub neuer_Layer()
  Dim NewLayer As AcadLayer
'wo liegt der Unterschied zwischen AcadLayer und Acad_Layer?
  Dim LineTy As ACAD_LTYPE
'wieso kann ich hier nicht AcadLineType nicht verwenden?
 
  LineTy = "strichlinie2"
  ThisDrawing.Linetypes.Load LineTy, "acad.lin"
'hier wird der Linientype strichlinie2 aus der acad.lin geladen
   
  Set NewLayer = ThisDrawing.Layers.Add("3s_vbml")
'3s_vbml ist der neue Layername
    NewLayer.Color = acWhite
'hier wird die Farbe festgelegt
    NewLayer.LineType = LineTy
'hier wird dem neuen layer der geladene Linetype zugewiesen!
End Sub

------------------
mfG
Gambrinus

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

---

Hallo Gambrinus
AcadLayer ist ein Objekt und ACAD_LAYER nicht!
AcadLineType kann sehr wohl verwendet werden, probier einfach folgendes:

public sub test()
  dim L as AcadLayer
  dim LT as AcadLineType

  set L=thisdrawing.activelayer
  set LT=L.Linetypes(L.Linetype)
end sub

Bei Dir allerdings verwendest Du nur die Bezeichnung des Linientyps, die ein String ist, also bitte auch so definieren:
    dim LineTy as string

Du wirfst Objekte und Strings durcheinander, nochmal den Tip: schau Dir Objektmodell und Beispiele von ACAD-VBA in Ruhe an.

Viel Spaß
Norbert

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

---

So jetzt bin ich etwas verwirrt!

werde es mir in ruhe anschauen und dann meine erfahrungen posten!

nochmals danke!

------------------
mfG
Gambrinus

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