Tracciare una perpendicolare

Angelo2449 · 15 Febbraio 2018

Salve,
ho tentato di tracciare una perpendicolare dal punto PuntoX alla linea P1 P2 molto banalmente con :

Codice:

(command "_line" PuntoX "_per" P1 P2 "")

ma non funziona.
Ho provato altre soluzioni, niente.
Aiuto, grazie.

GP. · 16 Febbraio 2018

Devi prima trovare il punto perpendicolare e poi tracciare la linea.

Codice:

;------------------ (ClosestPointTo) -----------------------;
;      Restituisce il punto sulla retta definita dai        ;
;     punti p1 e p2 più vicino al punto specificato p3      ;
;           sintassi:  (setq p (cpt p1 p2 p3))              ;
;            24/03/2013 - Gian Paolo Cattaneo               ;
;-----------------------------------------------------------;

(defun cpt ( a b c / ang# p# d# p# )    
    (setq ang# (- (angle a c) (angle a b)))
    (if (equal (abs ang#) (/ pi 2) 1e-8)
        (setq p# a)
        (progn
            (setq d# (* (distance a c) (cos ang#)))
            (setq p# (polar a (angle a b) d#))
        )
    )
)

Tracciare una perpendicolare

Angelo2449

Utente Junior

GP.

Utente Senior

Discussioni simili

Statistiche forum

Pubbliredazionali

Utenti online