---

ich möchte den ersten bzw. letzten stützpunkt einer lwpolylinie durch eine andere koordinate mittels entmod austauschen.

kann mir jemand auf die sprünge helfen wie ich dieses am schnellsten realisiert bekommen???

vielen dank im voraus.

gruß jan :-)

------------------
jan :-)

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

---

am besten lassen sich Koordinaten von LWPOLYLINES mit "entmod" modifizieren...so geht es am schnellsten...für weitere Fragen stehe ich gerne zur Verfügung ;-)

------------------
...so long and thanx for all the fish!

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

---

Zu dem Problem :
Die Koordinaten sind in den GC10 gespeichert.Und GC lassen sich relativ einfach mit dem SSMOD.LSP von TomBerger ändern. Siehe dazu
Hier

Zu den auf die Sprünge helfen : ich schreibs besser nicht ..

Ein Bitte im Nachhinein

------------------
- Thomas -

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

---

Da der GC 10 für Koordinaten beim Objekt LWPOLYLINE mehrfach in der Liste vorkommt, muss man die Liste normalerweise einzeln durchgehen. Mit ASSOC bekommt man immer nur das erste Vorkommen oder eben das letzte in Kombination mit REVERSE. Das reicht hier aber.

Code:

---

(DEFUN C:PLMOD ( / pa pe elname eliste)
  (SETQ elname (CAR (ENTSEL "\nSelect LWPOLYLINE:")))
  (IF (AND elname (= "LWPOLYLINE" (CDR (ASSOC 0 (SETQ eliste (ENTGET elname))))))
    (PROGN
      (SETQ pa '(10  0.0  0.0 0.0)
            pe '(10 10.0 10.0 0.0)
      )
      (SETQ eliste (SUBST pa (ASSOC 10 eliste) eliste)
            eliste (REVERSE (SUBST pe (ASSOC 10 (REVERSE eliste)) (REVERSE eliste)))
      )
      (ENTMOD eliste)
    )
    (PROMPT "\nObject is not a LWPOLYLINE")
  )
  (PRIN1)
) 

---

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

---

Zitat:

---

Original erstellt von CADmium:
Zu dem Problem :
Die Koordinaten sind in den GC10 gespeichert.Und GC lassen sich relativ einfach mit dem SSMOD.LSP von TomBerger ändern. Siehe dazu
Hier

---

Nöö, das SSMOD funktioniert nur mit Gruppencodes, die nur einmal vorkommen, also noch den echten alten ASSOC-Gruppencodes. Für LW-Polylinien muss man einfach alle 10er Gruppencodes auslesen, den ersten und den letzten wunschgemäß verändern, und dann die ganze Liste mittels ENTMOD auf das Objekt anwenden.

Gruß
Tom Berger

------------------

---

Also, der Ansatz von CADHuebner (hast du auch einen Vornamen?)  gefällt mir richtig gut! Einmal von vorne mit assoc, einmal von hinten mit assoc... und keine while-Schleife! Gut deshalb, weil da auch eine Million Stützpunkte drin sein können, ohne dass die Performance großartig leidet (zweimal reverse kann man getrost vernachlässigen). (subst ...) wird auch in beiden Fällen nach höchstens 10 Elementen fündig).

Super! (Nur noch: richtige Funktion draus machen, ohne princ usw.)

Gruß,
Axel Strube-Zettler

------------------

Meine AutoLisp-Seiten
Meine private Homepage
Mein Angriff auf dein Zwerchfell
Mein Lexikon der Fotografie
Mein gereimtes Gesülze

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

---

@Axel,
Hallo Axel, na klar hab ich einen Vornamen, meistens schreib ich auch meinen vollen Namen unter einen Beitrag > Udo Hübner <.
Auch nachtaktiv? 

Zum Code: Tatsächlich habe ich absichtlich beim reverse die liste auch reversed.

Zitat:

---

(zweimal reverse kann man getrost vernachlässigen). (subst ...) wird
auch in beiden Fällen nach höchstens 10 Elementen fündig).

---

Die Polylinie könnte auch schon vorher mal über den Endpunkt laufen, dann würde der falsche Punkt aktualisiert, da Subst schon vorher fündig würde.
Aber danke für deinen Kommentar. Diesen Code fand ich persönlich gar nicht diskussionswürdig, aber ich finde es immer prima hier was von dir zu lesen.

Aber noch eine Frage: wieso eigentlich

Zitat:

---

...auch in beiden Fällen nach  höchstens 10 Elemente fündig

---

?

Gruß
Udo Hübner

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

---

Hi Jan,
würde auch vl gehen?

------------------
Ciao,
Marc

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

---

@Axel, man jetzt erst hab ich verstanden, dass du das Programm genau verstanden hast. Meinen Kommentar und  Frage von vorhin ziehe ich hiermit zurück, nur mein Vorname bleibt weiterhin gültig 
Allen Gute Nacht wünscht
Udo Hübner

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

---

hi marc,

vielen dank für dein angebot - interessiert bin ich auf jedenfall, obwohl ich das o.g. beispiel von CAD-Huebner schon integriert habe.

allen anderen vielen dank für das rege interesse.

gruß Jan :-)

------------------
jan :-)

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