---

Ich suche ein Lisp, das mir aus einer Punktwolke, die Punkte aus der Wolke selektiert, die auf einer Linie (Geraden) liegen, die durch den Anfangs- und- Endpunkt begrenzt ist. Zudem sollten die Punkte sortiert werden, entlang des Linienverlaufs.
Die Punkte können leicht selektiert werden (liegen alle auf einem Layer) ebenso die Geraden, die als Linien auf einem anderen Layer liegen.
Falls jemand so ein Lisp hat, würde ich mich freuen, sonst muß ich mir eines ertippen.
Vielen Dank

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

---

Hallo Silke,

die Aufgabe klingt sehr speziell, weshalb ich mir nicht vorstellen kann, dass jemand ein dafür passendes Lisp rumliegen hat.

Hast du denn schon einen Ansatz für das Programm?
Meiner wäre:
(ssget ..) -mit der Option Zaun und Filterliste Punkte und Layer
ich würde dann die Abstände zum Anfangspunkt der Linie berechnen und eine Assoziationsliste aus dem Abstand und dem Punktelement erzeugen
(setq  SelPoints
(mapcar '(lambda (Point)
(cons(distance ..) Point)
)
)
Die so erzeugte Punktliste kannst du dann mit (vl-sort .. ) nach dem Abstand sortieren und deine Aufgabe ist erfüllt.

Grüße Holger

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

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

---

Hallo Holger
erst einmal danke für die Antwort. Ich weiß, daß das Ganze sehr speziell ist, habe aber noch eine kurze Frage. Was ist ssget mit der Option Zaun, diese Option kenne ich nicht!
Noch eine kleine Anmerkung. Ganz so einfach ist es nicht, denn wenn ich den Abstand vom Anfangspunkt berechne habe ich noch nicht die Punkte, die wirklich auf der Linie liegen, aber auch das läßt sich mathematisch lösen.
Herzlichen Dank

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

---

Hi Silke,

du brauchst dazu keine Mathematik.
Holgers Zaun-Vorschlag "_F" (F wie fence) über Start- und Endpunkt der Linie wählt dir schon alle Punkte auf der Linie.

Gruß
CADchup

------------------
CADmaro.de

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

---

Hallo CADchap,
vielen Dank, diese Funktion hilft mir sehr!!
Man lernt immer dazu
Silke 

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

---

Und was ist nun daran falsch?
(setq L1 (list 1 2))
(setq L2 (list 3 4))
(setq L (list L1 L2))
(setq aws (ssget "_F" L '((0. "POINT")(8. "Layername"))))

Geht das nicht?

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

---

Doch, allerdings muss zwischen Code und . (Punkt) mindestens ein Leerzeichen sein (sonst wird es nicht als "dottet pair" interpretiert).

Code:

---

Befehl: (setq aws (ssget "_F" L '((0 . "POINT")(8 . "Layername"))))

---

Hinweis:
ssget _f arbeit grafisch. PDMODE auf 3 und PDSIZE auf einen passenden Wert setzen. Zu untersuchender Bereich sollte im Grafikfenster sichtbar sein.

------------------
Mit freundlichem Gruß

Udo Hübner

[Diese Nachricht wurde von CAD-Huebner am 20. Mai. 2006 editiert.]

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

---

Herzlichen Dank!
:-) Silke

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

---

Zitat:

---

Original erstellt von SilkeRS:
Und was ist nun daran falsch?
...
Geht das nicht?

---

Hallo Silke,

ergänzend zu dem bereits geschriebenen: Du scheinst nicht in der AutoLisp-Entwicklungsumgebung zu arbeiten .. bzw nutzt diese nicht vollständig aus.
Schau mal in die beiden Beiträge (1 - 2), da habe ich ein wenig das Debuggen und die Fehlersuche mit dem VL-Editor beschrieben.
Du kannst auch zusätzlich die Forensuche bemühen, es gibt noch einige Beiträge mehr zu diesem Thema.

Bei Fragen ...

Grüße Holger

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

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

---

Code:

---

;;Überprüfung ob 3 Punkte kollinear sind
(DEFUN PointOnLine (sp ep bp / winkel1 winkel2) ; Startpunkt, Endpunkt und (irgendein) Punkt
(SETQ winkel1 (ANGLE sp ep) ; Winkel zw. Startpunkt Endpunkt
      winkel2 (ANGLE sp bp) ; Winkel zw. Startpunkt Punkt
)
(IF (= winkel1 winkel2) ; Wenn beide Winkel gleich sind...
  bp ; ... wird der "Punkt" zurückgegeben, sonst ...
  nil ; Nix (nil)!
)
)

---

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

---

Zitat:

---

Original erstellt von Thomas Schnitzler:

Code:

---

;;Überprüfung ob 3 Punkte kollinear sind
(IF (= winkel1 winkel2) ; Wenn beide Winkel gleich

---

---

Vorsicht, das wird in den allermeisten Fällen schief gehen, weil dabei Realzahlen verglichen werden, die in solchen Fällen fast nie exakt gleich sind. Besser ist die Verwendung von EQUAL mit einem Fuzzy-Wert:

Code:

---

(defun pointonline (sp ep bp)
(if (equal (angle sp ep) (angle sp bp) 0.0001)
  bp
  )
)

---

Weil man den Punkt BP ja aber schon vor Aufruf der Funktion kennt, ist es sinnvoll, nur T oder NIL zurück geben zu lassen:

Code:

---

(defun pointonline (sp ep bp)
(equal (angle sp ep) (angle sp bp) 0.0001)
)

---

Und: die unnötigen SETQ fressen Speicher und Perfomance, also besser weglassen.

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

---

@TRhomas
nach 16 Jahren auf einen Beitrag zu antworten wird Silke vielleicht aktuell nicht mehr weiterhelfen.
Lustig finde ich es auf jedem Fall.

------------------
Mit freundlichem Gruß

Udo Hübner
www.CAD-Huebner.de

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

---

Danke für die Optimierungsvorschläge.
Die Aufgabe lautet: Breche alle Linien auf den sich ein "Insert" (bzw. dessen Einfügepunkt) befindet.
In so fern ist die Rückgabe eines Punktes anstatt T sinnvoll, da er ggf. als Bruchpunkt dient.
Zum Thema Genauigkeit: Wie soll ich unterscheiden ob der Punkt zufällig (=unsauber gezeichnet) oder absichtlich daneben sitzt?

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

---

Hallo Herr Hübner,
ja das ist schon komisch. Falls ich in Zukunft Erkenntnisse gewinnen sollte, die für das Forum interessant sein können, wo setze ich es ab?
Thomas Schnitzler

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

---

Bei der Ungenauigkeit kannst du das nicht wirklich festlegen,
aber das Maximum darf man bei ruhig bei 14 Stellen annehmen und
bei mehr als einer Vorstellen entsprechend weniger.

Es kommt halt darauf an in welchem Koordinatenbereich man arbeitet.
Für einige spezielle Aufgaben nutze ich ermittel ich dann auch die Rundung welche ich zum Vergleich nehme,
abhängig in welchen Größen/Längen gearbeitet wird.

Ein = oder equal ohne Fuzzi ist aber definitiv schlecht einzusetzen.

Wenn du ein paar Beispiele(Problemsituationen) zum spielen möchtest, sag bescheid.

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

---

Danke für den Tipp. Ich muss eh noch bisschen testen, bevor ich's produktiv einsetze.

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

---

Zitat:

---

Original erstellt von Thomas Schnitzler:
Danke für die Optimierungsvorschläge.
Die Aufgabe lautet: Breche alle Linien auf den sich ein "Insert" (bzw. dessen Einfügepunkt) befindet.
In so fern ist die Rückgabe eines Punktes anstatt T sinnvoll, da er ggf. als Bruchpunkt dient.
Zum Thema Genauigkeit: Wie soll ich unterscheiden ob der Punkt zufällig (=unsauber gezeichnet) oder absichtlich daneben sitzt?

---

Die Rückgabe eines Punktes, den man schon kennt, ist nie sinnvoll. Du musst die Funktion ja irgendwie aufrufen, und das machst Du dann eben so:

Code:

---

(if (pointonline sp ep bp)
  (dannmachwasmit bp)
  (andernfallsmachwasanderes)
)

---

Und Du kannst bei Realzahlen niemals wissen, ob ein um ein Fuzzy anderer Punkt absichtlich anders liegt, oder ob das nur infolge der üblichen Rechenungenauigkeit anders ist. Dabei ist es dann völlig irrelevant, woher der andere Punkt kommt, oder wie er berechnet wurde.
Realzahlen vergleicht man deshals niemals mit Gleichheitszeichen, weil der Vergleich nur bei absoluter Übereinstimmung T ergibt. Eben deshalb haben alle Programmiersprachen die Möglichkeit, Realzahlen mit EQUAL oder ähnlichen Operatoren zu vergleichen.

Wegen so 'nem Fehler ist übrigens die erste Ariane 5 abgestürzt.

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

---

Ja, ich denke ich werde es mit EQUAL machen, da die Linien rein konstruktiv mindestens 20 cm auseinander liegen müssen. Danke nochmal.

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