---

Hallo zusamm' !

Hab da folgendes Prob: Habe von jemandem einen Plan mit XRefs und Rasterdaten zugesandt bekommen. Jetzt möchte ich den Plan ausdrucken und eine Polylinie wird nicht gedruckt.
Folgende Versuche, die Polylinie auszudrucken wurden - leider ohne Erfolg - durchgeführt: Anzeigereihenfolge Polylinie oben, Rasterdaten unten; Polylinie auf Layer geschoben, der geplottet wird (Polylinie wird trotzdem nicht geplottet). 

Vom Ersteller des Plans ist keine Hilfe zu bekommen (Urlaub).

Gibt es in ACAD2000 'ne Möglichkeit einen Ausschnitt zu definieren, der nicht geplottet werden soll???

Danke im voraus...

------------------
Ralf Thomas
VIB Jürgens GmbH

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

---

Hallo Ralf,

wie sieht die Plotvoransicht aus? *.ctb auch schon überprüft? Bereinigt?
Lothar

------------------
"Stellt Euch vor, es geht, und keiner kriegt's hin." (Neuss)

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

---

... auch in der Voransicht wird nichts angezeigt.

------------------
Ralf Thomas
VIB Jürgens GmbH

P.S.: Hab grade die Polylinie auf eine Breite von "0" geändert, dann wird sie gedruckt. Ich muß jedoch eine Breite von "0,7" haben...

[Diese Nachricht wurde von VBJuergens am 16. Oktober 2003 editiert.]

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

---

Hallo,
steht Fillmode vielleicht auf 0?

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

---

ich weiss nicht obs dass in der 2000 schon gegeben hat.

zumindest in der 2000i gibt es die möglichkeit , layer als nicht plottbar einzustellen.
schau mal im layer-dialog nach ob da neben friene,tauen,sperren usw, so ein plottersymbol ist.

sonst stell mal die zeichnung , oder nur einen teil mal hier rein

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

---

Hallo, Fuchsi!

Leider kann ich die Zeichnung nicht hier rein setzen, hat mein Auftraggeber was gegen. Außerdem ist die Datei (inkl. aller externen Referenzen und Rasterdaten, die ja auch mit dabei sein müssten)  ca. 35 MB groß (uff!) !!
Die Möglichkeit, den Layer als nicht plottbar zu setzen, gibts auch schon in ACAD2000, das ist aber nicht das Prob.
Wie ich oben schon geschrieben hatte, habe ich versucht, die Polylinie (PL) in einen Layer zu verschieben, der geplottet wird. Die PL wird aber seltsamerweise trotzdem nicht geplottet, obwohl alle Eigenschaften dem Element entsprechen, auf dessen Layer die PL geschoben wurde. 

Hatte aber eben die rettende Idee: habe ÜBER die PL, die nicht geplottet wird, noch eine drüber mit den gleichen Eigenschaften gezeichnet - und siehe da: jetzt wird die Lücke gefüllt! Komisch? Ist aber so!
Ist natürlich nicht das Gelbe vom Ei und versuche, doch noch den Fehler zu finden. Vieleicht habt Ihr da draußen ja noch 'ne Idee...

------------------
Ralf Thomas
VIB Jürgens GmbH

[Diese Nachricht wurde von VBJuergens am 16. Oktober 2003 editiert.]

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

---

kopier mal nur die polylinie ein eine leere zeichnung , wenn dort auch nicht zu plotten geht, kannst ja diese eine kleine zeichnung reinstellen.

würd mich nämlich sehr interresieren an was es wirklich liegt.

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

---

Vielleicht ist es folgendes Problem.
Wenn die Polylinie keine LWPolylinie ist, dann kann es sein, das einige Vertices der Polylinie noch auf einem anderen Layer liegen.
Das kann passieren wenn die Polylinie aus mehreren Linien die unterschiedliche Layer gehabt haben, erstellt wurde.
Du mußt der Polylinie also noch einmal einen Layer zuweisen.

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

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

---

Jetzt hab ich auch die Funktion gefunden

Code:

---

' Alle Polylines auf eigenen Layer setzten
' Warum? Die Vertices der Polyline merken sich den Layer des alten Objektes beim Verbinden
Public Sub AllPLToPLLayer()
   
    Dim Obj As Object
    Dim PL As AcadPolyline
   
    For Each Obj In ThisDrawing.ModelSpace
        On Error Resume Next
        Set PL = Obj
        If Err Then
        Else
            PL.layer = PL.layer
        End If
    Next Obj

    For Each Obj In ThisDrawing.PaperSpace
        On Error Resume Next
        Set PL = Obj
        If Err Then
        Else
            PL.layer = PL.layer
        End If
    Next Obj
   
End Sub

---

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

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

---

anbei nochmal der Code nur etwas modifiziert

Code:

---

' Alle Polylines auf eigenen Layer setzten
' Warum? Die Vertices der Polyline merken sich den Layer des alten Objektes beim Verbinden
Public Sub AllPLToPLLayer()
    Dim Obj As Object
   
    On Error GoTo Err_Control
    For Each Obj In ThisDrawing.ModelSpace
        If TypeOf Obj Is AcadPolyline Then
            Obj.layer = Obj.layer
        End If
    Next Obj

    For Each Obj In ThisDrawing.PaperSpace
        If TypeOf Obj Is AcadPolyline Then
            Obj.layer = Obj.layer
        End If
    Next Obj
   
Exit_Here:
    Exit Sub
Err_Control:
    Err.Clear
    Resume Exit_Here
   
End Sub

---

War es das Problem?

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

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