---

Hi,

ich bin seit langem auf der Suche nach einer einfachen Lösungsmöglichkeit für das Umwandeln zigtausender extrem komplexer 3D-Polylinien in 2D-Polylinien. Ich habe zwar im Rahmen meiner Suche ein passendes lsp gefunden, aber leider bringe ich es nicht zum Laufen, weil alle Befehle auf Englisch sind. Kann mir jemand dabei helfen? Oder gibt es evt. eine andere Lösungsmöglichkeit für mein Problem, z.B. einen mir unbekannten, neuen Befehl? Der Umweg über "flatten", auflösen und pedit ist bei den Mengen keine Lösung. Im Idealfall findet sich jemand, der das Lisp "eindeutschen" kann, würde mich sehr freuen darüber! Ich habe zwar versucht, an den richtigen Stellen Unterstriche zu machen, allerdings scheine ich irgendetwas zu übersehen.

Mit bestem Dank!

Grizzlybear

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

---

Hi,
geh die command-zeilen durch und
schreibe ein "_" vor die englichen Befehle und Eingaben
(command "_OSNAP" "_midp....
(aber nur die Command-Zeilen)
in deiner Autocad-Befehlszeile kannst du alle Befehle mit unterstrich eingeben und prüfen.

------------------
Mfg Heiko

Elefantenjagd in Afrika
"... LISP-Programmierer bauen einen Irrgarten aus Klammern und hoffen, dass sich der Elefant darin verirrt..."   (www.uni-leipzig.de/~rotheh/elefant.htm)

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

---

Ah, danke, ich hatte bei _midp,_endp,_center,_perpendicular,_nearest jeweils den Unterstrich vergessen, sonst hatte ich alle! Oft ist die Lösung so nahe. Jetzt geht's danke. Er verschiebt mir die Objekte nach dem Umwandeln zwar auf den aktuellen Layer, aber damit kann ich leben. Hauptsache, die Umwandlung klappt. Leider kann ich keine Lisps programmieren, sonst würde ich das trotzdem dahingehend ändern, dass die Objekte auf dem vorherigen Layer bleiben. Ist das sehr aufwändig?

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

---

auf die Schnelle und ungetestet: ...

Code:

---

    (if (= "POLYLINE" (cdr (assoc 0 (entget b))))
      (progn
        (setvar "clayer" (cdr (assoc 8 (entget b))))
(setq enp (entget b))

---

probier mal - so etwa bei Zeile 10 die "fette Zeile" einfügen

------------------
Schöne Grüße
Ernst

www.geopaint.at

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

---

Wow, danke für die Mühen. Hab's gerade getestet, es funktioniert!

Jetzt habe ich nur noch ein letztes Problem: Wenn sich unter den Objekten andere als 3D- oder 2D-Polylinien befinden, dann behandelt er diese anders, und zwar werden Bögen gelöscht und Linien trotzdem noch auf den aktuellen Layer verschoben. Im Idealfall würde es so funktionieren, dass ich auch "ALLES" eingeben kann, er alle nicht 3D- und 2D-Polylinien ausfiltert und so lässt, wie sie sind. In Polylinien umgewandelt würden dann nur die 3D- und 2D-PL, und alle Objekte müsste auf demselben Layer bleiben. Aber das ist wahrscheinlich zu viel Änderung. Geil wäre es trotzdem, denn meine bisherigen Suchen haben mich kein entsprechendes Lisp finden lassen.

Liebe Grüße und nochmals vielen Dank!

Grizzlybear

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

---

4. Zeile
(setq a (ssget '((0 . "*POLYLINE"))))

------------------
Mfg Heiko

Elefantenjagd in Afrika
"... LISP-Programmierer bauen einen Irrgarten aus Klammern und hoffen, dass sich der Elefant darin verirrt..."   (www.uni-leipzig.de/~rotheh/elefant.htm)

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

---

PL-Convert.VLX.txt

Zitat:

---

Original erstellt von Grizzlybear:
...denn meine bisherigen Suchen haben mich kein entsprechendes Lisp finden lassen.

---

War schon öfter hier im Forum gepostet, aber für dich auch noch mal direktverlinkt :
Ne laufzeitbeschränkte vlx-Version zum Testen ... sollte für die schnelle paarmalige Problemlösung ausreichen.

------------------
  - Thomas -
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

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

---

@Dorfy: Super, vielen herzlichen Dank, jetzt klappt alles perfekt! Ihr wisst gar nicht, wie jetzt mein Arbeitsalltag erleichtet worden ist! Jetzt kann ich beruhigt ins Wochenende gehen!

Liebe Grüße

Grizzlybear

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