---

Hallo,
kann mir jemand sagen wie ich am einfachsten die Distanz von einem Punkt lotrecht auf Linie bekomme?

------------------
Gruß
Hans-Peter
Der Wahnsinn in Sachen Musik.

  Das Saxregister
 

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

---

Hallo Hans-Peter,
man könnte den Lotrechten Abstand folgendermaßen bestimmen:

Code:

---

(defun c:test  (/)
  (setq pkt (getpoint "\nBitte geben Sie einen Punkt an:"))
  (setq obj (car (entsel "\nBitte wählen Sie ein Linienelement:")))
  (setq dist (distance pkt
      (vlax-curve-getPointAtDist
(vlax-ename->vla-object obj)
(vlax-curve-getDistAtPoint
  (vlax-ename->vla-object obj)
  (vlax-curve-getClosestPointTo
    (vlax-ename->vla-object obj)
    pkt))))))

---

Zu Bedenken: Sobald die Lotrechte über den Anfangs- oder Endpunkt der Linien hinaus geht wird nicht mehr die korrekte Distanz wiedergegeben.
Wenn es sich um korrekte 3D-Abstände handeln soll, dann muß die Höhe z des Linienelementes berücksichtigt werden, bei Horizontaldistanzen muß der Punkt auf Höhe Null gebracht werden.

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

Jörn

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

---

Danke, das werde ich gleich probieren.

------------------
Gruß
Hans-Peter
Der Wahnsinn in Sachen Musik.

  Das Saxregister
 

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

---

Ich hab den Code jetzt probiert.
Funktioniert im WKS einwandfrei, ist es auch möglich im aktuellen BKS zu messen?

------------------
Gruß
Hans-Peter
Der Wahnsinn in Sachen Musik.

  Das Saxregister
 

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

---

Hallo Hans-Peter,
wenn Du im BKS arbeitest mußt Du die Koordinaten des Punktes in das WKS transformieren, das geht mit der Funktion "trans"

(setq pkt (trans(getpoint "\nBitte geben Sie einen Punkt an:")1 0))

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

Jörn

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

---

Die gleiche Aufgabe hat MAPCAR hier schon vor Jahren gelöst und auch noch im seinen unvergleichlichen Stil beschrieben. Dieser Thread ist in jedem Falle lesenswert (in dankbarer Erinnerung). http://ww3.cad.de/foren/ubb/Forum145/HTML/000038.shtml#000008

Anonsten erwartet vlax-curve-getClosestPointTo einen Punkt im WCS/WKS. Getpoint hingegen bringt die Koordinate im aktuellen BKS.
Es muss also zur Allgemeinfunktionalität noch ein
SETQ Pkt (TRANS Pkt 1 0)) nach dem Getpoint hinzugefügt werden (TRANS transformatiert vom BKS = 1 zu WKS = 0).

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

Udo Hübner

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