---

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

ich erstellt ihn mit VBA so:

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

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

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

---

So geht's:

Code:

---

    LT = "CONTINUOUS"
    ThisDrawing.Linetypes.Load LT, "acad.lin"   'Bevor der Linientyp zugewiesen werden kann, muss er geladen werden
    NewLayer.Linetype = LT

---

Fehler mußt du natürlich auch berücksichtigen.
------------------
Roland

[Diese Nachricht wurde von RoSiNiNo am 12. Mai 2003 editiert.]

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

---

Hi RoSiNiNo!

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

---

Ich verwende anstelle von "ACAD_LTYPE" einfach den Typ "String". Wozu es "ACAD_LTYPE" und einige andere gibt, keine Ahnung, sind weder im Objektkatalog noch in der Hilfe.
Vielleicht kann da ja ein anderer helfen.

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

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