---

Hello @ all,

ein LISP-Programm erstellt eine Polylinie in Form eines Rechtecks, über 8 Scheitelpunkte.
Kann man jetzt innerhalb dieses LISP einzelne Scheitelpunkte entfernen lassen?
Bislang ist mir das im LISP nicht gelungen, und ich habe dazu auch nirgendwo etwas gefunden.
Sollte es etwa nicht möglich sein?

Gruß
Dieter

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

---

ein Frühwerk des engagierten CADmium hilft dir vielleicht weiter: Klick!

------------------
CAD on demand GmbH - Beratung und Programmierung rund um AutoCAD

[Diese Nachricht wurde von cadffm am 27. Jan. 2014 editiert.]

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

---

Hallo Dieter,
den folgende Code kannst Du für 2D-, 3D- und LW-Polylinien nutzen. Der Unterschied zwischen 2D+3D und LW ist eigentlich nur, dass die z-Koordinate nicht in 'Coordinates abgelegt wird.

Code:

---

(defun c:test ( / KOORD N OBJ OBJNAME LWFLAG)

  (if (and
        (or(setq obj (car (entsel "\Polylinie auswählen:")))
            (alert "kein Objekte ausgewählt."))
        (setq obj (vlax-ename->vla-object obj))
        (setq objName (vlax-get obj 'ObjectName))
        (or
          (wcmatch objName "AcDb*Polyline")
          (alert "kein Objekte war keine Polylinie."))
       
        (or
          (>(length (setq koord (vlax-get obj
                                  'Coordinates)))
            (if (setq LwFlag (= ObjName "AcDbPolyline")) 4 6))
          (alert "die LW-Poly muss mindestens 3 Stützpunkte haben."))
        (or         
          (setq n(getint (strcat
                          "\nNummer des zu löschenden Stützpunktes(max. "
                          (itoa(/(length koord)(if LwFlag 2 3)))"):")))
          (alert "keine Nummer eingegen"))
        (or
          (<= n (/(length koord)(if LwFlag 2 3)))
          (alert "Die Nummer war zu groß"))
          )
    (vlax-put obj
      'Coordinates
      (test:StzRemove koord n LwFlag))
    )
   
  )

(defun test:StzRemove (liste n LwFlag / A I N)
  (setq i 0)
  (vl-remove-if 'not
    (mapcar '(lambda(A)
              (setq i (+ i 1))
              (if
                (if LwFlag
                  (not(or
                        (=(* n 2)i)
                        (=(-(* n 2)1)i)))
                  (not(or
                        (=(* n 3)i)
                        (=(-(* n 3)1)i)
                        (=(-(* n 3)2)i)
                        )))
                A))liste)))

---

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

Jörn
http://www.bosse-engineering.com

Rahmen einfügen Youtube

Stammtisch Wolfsburg Februar 2014

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

---

@Jörn ... und wie ist es mit PL-Breiten und Bögen, die am Punkt hängen? Wenn, dann richtig! 

------------------
Also ich finde Unities gut ... und andere sicher auch
---------------------------------------
  - 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 Thomas,
so viel Zeit hatte ich nicht, und außerdem ist es nicht verboten nur den Grundgedanken des Codes zu verwenden um diesen dann zu perfektionieren

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

Jörn
http://www.bosse-engineering.com

Rahmen einfügen Youtube

Stammtisch Wolfsburg Februar 2014

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

---

Hallo Thomas, Hallo Jörn,
Hallo alle Interessierten,

eure Programme funktionieren Super.
Vielen Dank dafür.
Ich hätte nicht gedacht, das Programme zum löschen von Scheitelpunkten so komplex und umfangreich sein müssen.
Um nachvollziehen zu können was alles in diesen Programmen abläuft,
werde ich wohl noch etwas Zeit brauchen, vielleicht muss man dazu schon ein fortgeschrittener Lispler sein 

Gruß
Dieter

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

---

Zitat:

---

Original erstellt von dwg3d: (im ersten Beitrag)
Sollte es etwa nicht möglich sein?

---

Zitat:

---

Original erstellt von dwg3d:
...vielleicht muss man dazu schon ein fortgeschrittener Lispler sein ...

---

Ich denke nicht, dass man zum verstehen von Code intensive Kenntnis einer Programmiersprache haben muss. Viel wichtiger ist, um den Code nachvollziehen zu können, was wird damit gemacht. Deshalb habe ich auch den 1. Beitrag zitiert. Programmieren ist in erster Linie die Idee einer Lösung, nicht das Beherrschen aller Funktionen und Syntax einer Programmiersprache, auch wenn das bei der Umsetzung dann sehr hilfreich ist, wenn mans beherrscht.

Auch wenn es dwg3d an dieser Stelle helfen mag, eine fertige Subroutine gepostet zu bekommen. Da der Lösungsansatz gefehlt hat, gehe ich davon aus, dass ihm das Objekt und dessen Aufbau nicht bekannt ist. Darum meine Empfehlung, schau dir die Elementdaten (entget(car(entsel))) einer Polyline an, lösche dann einen Stützpunkt mit AutoCAD-Befehlen, und schaue dir dann noch einmal die Elementdaten der Polyline an.
Du wirst Änderungen feststellen. Genau diese Änderung einer Liste(Elementdaten) werden durch die Funktionen vorgenommen.

Grüße!
Holger

------------------
Holger Brischke
CAD on demand GmbH
Individuelle Lösungen von Heute auf Morgen.

defun-tools Das Download-Portal für AutoCAD-Zusatzprogramme!

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