Ziehen Sie eine Linie von einem Punkt senkrecht zu einer Linie

[Angelo2449]

Hallo alle,
Ich versuche, eine Linie von einem zuvor definierten Punkt (getpoint) zu einer zuvor verfolgten Linie zu verfolgen.
Die Daten sind:
Ausgangspunkt : punktion
Linie, zu der die senkrechte Spur : erster Punktgrondauno, zweiter Punktgrondauno oder l (als Einheit)
Ich habe es versucht:

(Befehl "_line"-Zeichen "_per" erste Punktgrondaone zweite Punktgrondauno)

Aber nichts passiert.
Vielen Dank.

 

[Cristallo]

osnap in lisp funktionieren nicht.
Sie müssen den senkrechten Punkt um den absoluten Winkel der Linie berechnen, auf die er senkrecht sein muss(seq Winkel1 (der erste Punktgrondano zweite Punktgrondauno))die 90° hinzufügen(setq theolo2 (+ theolo1 (/ pi 2))Jetzt haben Sie den senkrechten Winkel. wenn der Punkt links der Linie liegt, ist der Winkel rechts, wenn der Punkt rechts ist, müssen Sie 180° (pi) hinzufügenDies gilt für Einheiten mit positiver Rechtsdrehung.
Sie erstellen eine p3 Unterstützung
(Setq p3 (polarer Zeigerwinkel 2 1.00))
und Sie suchen nach dem Schnittpunkt zwischen der Anfangslinie und der Stützlinie(setq p_perp (inters first pointgrondaone second pointgrondaone pointemanation p3 nil))il Nil letzte Funktion inters ermöglicht es Ihnen, Schnittpunkte zu haben, auch wenn sich die 2 Linien materialmäßig nicht schneiden (die beiden Linien als wären sie xlines)

nur an diesem Punkt können Sie Ihre senkrechte Linie durch die Punkte erstellen, die Sie aus den Berechnungen erhalten haben(Befehl "_line"

 

[Angelo2449]

Dank Kristall,
Tolle Lösung! Ich verstehe nicht, warum es nicht mit dem Osnap funktioniert, da der direkte Befehl funktioniert!
Boh!

 

[rpor66]

eine weitere Lösung für das Problem, vorgeschlagen von confutatis vor ein wenig Zeit:

(setq nomeobj (vlax-ename->vla-object nproiez))
(setq ptp (vlax-curve-getclosestpointto nomeobj pt1))

nproiez ist der Name der Linie und pt1 der Punkt, von dem die senkrechte Linie zu nproiez beginnen sollte.
vlax-curve-getclosestpointto berechnet den minimalen Abstand zwischen Objekt und Punkt.