---

Habe ein Problem:
Ich habe ein Programm geschrieben was mir geschlossene
Polylinien miteinander vergleicht und den jeweils gleichen
eine jeweilige Nummer vergibt.
Meine Kontrollen beziehen sich auf 3 eigenheiten:
Umfang, Fläche und Anzahl der ecken.

Es funktioniert eigentlich sehr gut, da man jede Polylinie
beliebig zeichnen kann und alle Polylinien ob
geschlossenen, oder Endpunkt = Anfangspunkt erkannt werden.

Nur ein Problem habe ich:
Da sich diese Polylinien auf Werkstücke beziehen,
kann eine Spiegelverkehrte "Polylinie" oder Fläche
nicht die selbe Position haben.

Jetzt meine Frage:
Kennt irgendjemand eine Möglichkeit mit der man
Flächen, Regionen oder geschl. Polylinien auf Spiegelung
überprüfen kann ohne zu wissen wo der Anfangpunkt oder die
Richtung in der gezeichnet wurde ist und wie das Objekt verdreht wurde??

------------------
mfg
snowgun

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

---

Hi,
schick mal CADmium 'ne PrivateMail... Der hat 'ne Glaskugel.

Edit: Das wird nicht gehen, die von Dir genannten Objekt-Klassen enthalten keinerlei Infos darüber woher sie kommen (Kopie von, oder Gespiegelt bei/mit/von)

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

[Diese Nachricht wurde von marc.scherer am 15. Mrz. 2005 editiert.]

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

---

Hallo Snowgun,
ich bin nicht ganz sicher, aber würde es Dir nicht weiterhelfen, wenn Du die Drehrichtung der Polylinie hast???
Mit folgendem Code kannst Du, wenn Du eine Stützpunktliste übergibst, die Fläche berechnen (2*A). Da die Gauschß'sche Dreiecksformel verwendet wird ist das Vorzeichen der Fläche bei Drehrichtung im Uhrzeigersinn negativ, gegen den Uhrzeigersinn positiv.

;;;2A => Fläche der Polyline, wenn negativ, dann im Uhrzeigersinn
(defun JB_flaeche (liste / summe n)
  (setq n 0
summe 0.0
  )
  (repeat (length liste)
    (setq summe (+ summe
  (* (car (nth n liste))
      (- (cadr (nth (if (< (- n 1) 0)
      (- (length liste) 1)
      (- n 1)
    )
    liste
      )
)
(cadr (nth (if (> (+ n 1) (- (length liste) 1))
      0
      (+ n 1)
    )
    liste
      )
)
      )
  )
)
  n (+ n 1)
    )
  )
  summe
)

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

Jörn

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