LISP orientation avec le SCU

Bonjour,

je suis entrain de créer un programme qui dessine 2 ligne qui sont parallèle à 2 cotés d'un rectangle. les 4 points du rectangle sont pt0 pt1 pt2 le 4ème point du rectangle on en a pas besoin

je voudrai que le programme de dessine la ligne de p4 à p5 parallèle à la ligne pt0 pt1
et que la ligne p6 p7 soit parallèle à la ligne pt0 pt2
je dit bien parallèle et non de même distance
j'utilise la commande "SCU"

mais mon problème et lorsque le carré et de travers
la ligne p4 p5 et toujours horizontal et la ligne p6 p7 aussi
alors qu'il faudrait qu'elles soient parallèle aux cotés du rectangle


(defun c:TSINF()
(setvar "cmdecho"0)
(command "scu" "3" pt0 pt1 pt2)
(setq pt0 (getpoint "\nCliquer le point de début de la dalle de TS: "))
(setq pt1 (getpoint "\nCliquer le point extrémité de la dalle: "))
(setq pt2 (getpoint "\nCliquer le point de la ligne de départ des panneaux de TS:"))
(setq alfa(angle pt0 pt1))
(setq p0 (polar pt0 alfa 1))
(setq p1 (polar pt1 alfa 1))
(setq p2 (polar pt2 alfa 1))
(Setq xp0 (car p0))
(Setq yp0 (cadr p0))
(Setq xp1 (car p1))
(Setq yp1 (cadr p1))
(Setq xp2 (car p2))
(Setq yp2 (cadr p2))
(setq P4 (list xp0 yp2))
(setq P5 (list xp1 yp2))
(command "polylign" p4 "la" 0.2 0.2 p5 "")
;(setq p3 (getpoint "\nDonner le point d'insertion de la portée: "))
;(setq dp (getdist "Donner la portée ou deux points:"))
;(Setq xp3 (car p3))
;(Setq yp3 (cadr p3))
;(setq p6 (list (xp3 yp0 ))
;(setq p7 (list (xp3) (+ yp6 dp) ))

;(command "polylign" p6 "la" 0.5 0.5 p7 "")

(command "scu" "general")
)