Senkrecht verfolgen

[Angelo2449]

Hallo.
Ich versuchte, eine Senkrechten vom Punkt auf die p1 p2 Linie sehr trivial mit zu verfolgen:

(Befehl "_line" puntox "_per" p1 p2 ")

aber es funktioniert nicht.
Ich habe andere Lösungen versucht, nichts.
Danke.

 

[GP.]

Sie müssen zuerst den senkrechten Punkt finden und dann die Linie verfolgen.

...---------------------------------------------------------------------------------------------------------------------------------------------------------
; gibt den Punkt auf dem durch
; Punkte p1 und p2 näher an der angegebenen Stelle p3;
; Syntax: (setq p1 p2 p3)
; 24/03/2013 - gian paolo cattaneo;
---------------------------------------------------------------------------------------------------------------

(defun cpt (a b c / ang# p# d# p# )
(setq ang# (- (Winkel a c) (Winkel a b)))
(falls (gleich (ab Ang#) (/ Pi 2) 1e-8)
(setq p# a)
(Progn)
(setq d# (* Entfernung a c) (cos ang#))
(setq p# (polar a (angle a b) d#))
)
)
)