---

hallo alle zusammen,
ein Problem jagt das andere.

Ich moechte mir aus VB Layer erstellen, die Farbe der Layer definieren und den Linientyp.

layername = Array("AM_0", "AM_1", "AM_2", "AM_3", "AM_5", "AM_6", "AM_7", "AM_8", "AM_11")
layercolor = Array("7", "14", "5", "6", "3", "2", "4", "1", "3")
    ltype
ltype = Array("Continuous", "Continuous", "Continuous", "AM_ISO02W050x2", "Continuous", "Continuous", "AM_ISO08W050x2", "Continuous", "AM_ISO09W050x2")
   
For i = 0 To 7
       
    Set neuerlayer = ThisDrawing.Layers.Add(layername(i))
    'it = ltype(i)
    'neuerlayer.LayerOn = True
    neuerlayer.Color = layercolor(i)
    'neuerlayer.Linetype = it
    Next i

Die Layer erstellung sowie die Definition der Farbe funktioniert wunderbar. Sobald ich aber die Definition des Linientyps einschalte, laeft das Programm zwar, jedoch werden die Layer nicht in den gewuenschten Linientypen definiert. Z.B. wird fuer "AM_3", "Hidden" als Linetype und nicht wie gewuenscht "AM_ISO02W050x2" angegeben. Das Programm bring aber keinerlei Fehlermeldung. Was mache ich da falsch.

Gruss,

Florian

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

---

Hallo Florian,

sind die Linientypen, die du in VBA verwendest, in deiner aktuellen ACAD-Sitzung geladen bzw. vorhanden?

Viele Grüsse

Martin

[Diese Nachricht wurde von MartinM am 10. Feb. 2006 editiert.]

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

---

Hallo Martin,

die Layer sind nicht vorhanden. Sie werden vom vb code erst erzeugt (siehe Code oben). Wenn ich die AutoCAD Datei lade, ist kein einziger Layer definiert. Der Code definiert die Layernamen und die Farben auch richtig, jedoch die Linienstaerke und der Linientyp ist nicht richtig, bzw. wird im Ansichtsfenster nicht geandert. Wenn ich die Linie dann anklicke, wird mir die Linienstaerke im Eigenschaftsfenster sowie die linienart richtig angezeigt. Somit weis ich, dass der Code richtig arbeitet, jedoch ist dies sehr verwirrend und ich wuerde dies gerne beheben.  Weis echt nicht weiter

Gruss,

Florian

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

---

Hallo Florian,

was verstehst du unter "Wird im Ansichtsfenster nicht geändert".

Das könnte bedeuten, dass du deine Zeichung regenerieren musst.
z.B.
ThisDrawing.Regen acAllViewports

Viele Grüsse
Martin

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

---

Hallo Florian,

Zitat:

---

Original erstellt von MartinM:
..
sind die Linientypen, die du in VBA verwendest, in deiner aktuellen ACAD-Sitzung geladen bzw. vorhanden?
..

---

Die Linientypen für die Layer werden zwar benannt aber die Definition fehlt. Die Linientypen müssen entweder in der zeichnung vorhanden sein oder geladen werden. Ansonsten wird jeder Linientyp durchgezogen dargestellt.

Stelli

------------------
Warum lisp'eln wenn's auch anders geht.

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