---

Hallo zusammen,
ich versuche aus einer POLYLINE (gezeichnet mit 3dpoly) alle Stützpunkte außer dem Anfangs- und dem Endpunkt zu löschen. Leider komme ich dank meiner geringen LISP-Kenntnisse nicht weiter. Das Tool von CADWiesel hilft mir leider auch nicht, da es bei mir leider nicht für diesen Polylinientyp funktioniert.
Deshalb hier meine Frage. Wie kann ich mit entdel einen Stützpunkt löschen?

Hier mein Ansatz (basierend auf CADWiesel):

(setq NeuePLinEig (entget (entnext (cdr (assoc -1 PLinEig)))))
(while (= (cdr (assoc 0 NeuePLinEig)) "VERTEX")
(if (OR (= i 1) (= i AnzPkt))
  (setq i (1+ i))
  (progn
   (entdel (cdr (assoc -1 NeuePLinEig)))
   (setq i (1+ i))
  ) ;else
) ;if
(setq NeuePLinEig (entget (entnext (cdr (assoc -1 NeuePLinEig)))))
) ;while
(setq PLinEig (entmod PLinEig))

Vielen Dank im Voraus.
Uwe

[Diese Nachricht wurde von Uwe Neumann am 12. Aug. 2008 editiert.]

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

---

Hallo Uwe Neumann,

dann schau dir doch hier einmal Tool 66 an
http://www.cad-od.de/downloads.html

Man muss das Rad ja nicht immer von vorne erfinden 

------------------
Gruß Heidi
http://www.cad-point.de

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

---

Hallo Heidi,
meines Erachtens läuft das Programm von Holger auch nur für LW-Polylinien - oder übersehe ich da etwas?
Uwe

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

---

Hallo Uwe,
wenn alle Stützpunkte außer Anfangs- und Endpunkte gelöscht werden sollen, dann würde ich doch eine neue Linie von Anfangs- bis Endpunkt zeichnen:

Code:

---

(defun c:test( / )
  (setq obj (car(entsel)))
  (command "_.line"
  (car (setq liste (test:stzpkt obj)))
  (last liste)""))

(defun test:stzpkt (obj / liste)
  (while (and(setq obj(entnext obj))(/=(cdr(assoc 0 (entget obj)))"SEQEND"))
    (setq liste (cons (cdr(assoc 10 (entget obj)))liste)))
  (reverse liste))

---

Der Code gilt nicht für LW-Polylinien

------------------
viele Grüße

Jörn

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

---

Hallo Jörn,
leider muss das Objekt als Polylinie in der Zeichnung bleiben, da an ihm noch XDATA hängen. Die Polylinie wurde in einem anderen CAD-System erzeugt und muss auch wieder so übergeben werden. Leider wurden bei der Ausgabe aus dem anderen System dort überflüssigerweise Punkte eingefügt - wie und warum: keine Ahnung. Sie liegen genau in der Flucht zwischen AP und EP.
Es besteht nun die Aufgabe, diese Polylinien lagemäßig zu ändern - d.h. AP und EP muss geringfügig geändert werden. Um das realisieren zu können, will ich die Zwischenpunkte rausschmeißen.
Trotzdem Danke für den Tipp.
Uwe

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

---

PL-DEL-VERTEX.VLX.txt

IMHO klappt das mit entdel nicht, stattdessen funktioniert die ActiveX-Funktion vla-delete zum Löschen des Vertex.

Im Anhang mal so ein Teil das darauf aufbaut, allerdings zum manuelle picken der zu löschenden Punkte. Deine Vorgabe ist ziemlich speziell, sollte sich aber genauso lösen lassen -> Siehe Jörn.

------------------
      - 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

---

Hallo Uwe,
habe nochmal ein bißchen umgestrickt, probier einfach mal.

Code:

---

(defun c:test( / )
  (setq obj (car(entsel)))
 
  (mapcar '(lambda(A)
    (vla-delete (vlax-ename->vla-object A)))(test:stzpkt obj))
  )

(defun test:stzpkt (obj / liste)
  (while (and(setq obj(entnext obj))(/=(cdr(assoc 0 (entget obj)))"SEQEND"))
    (setq liste (cons obj liste)))
  (cdr(reverse(cdr liste))))

---

------------------
viele Grüße

Jörn

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

---

Hallo Jörn,
genau das ist es, was ich brauche. Habe deinen Vorschlag bei mir integriert und es läuft.
Vielen Dank für die schnelle Hilfe.
Uwe

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