Dessiner un rectangle avec 3 points

[Maxime85]

Bonjour,

 

j aimerais savoir s'il existe un code ou un astuce permettant de dessiner un rectangle par 3

 

points automatiquement sans passer par la commande ligne

 

Cordialement

[jalna]

Salut

 

(defun c:rct ()
(setq p1 (getpoint "\n 1er point d)u rectangle  "))
(setq p2 (getpoint "\n 2eme point du rectangle  "))
(setq p3 (getpoint "\n 3eme point du rectangle  "))
(setq x1 (car p1))
(setq y1 (cadr p1))
(setq x2 (car p2))
(setq y2 (cadr p2))
(setq xc (* (- x2 x1) (- x2 x1)))
(setq yc (* (- y2 y1) (- y2 y1)))
(setq d1 (sqrt (+ xc yc)))
(setq xv (/ (- y1 y2) d1))
(setq yv (/ (- x2 x1) d1))
(setq x3 (car p3))
(setq y3 (cadr p3))
(setq xx (* (- x3 x2) (- x3 x2)))
(setq yy (* (- y3 y2) (- y3 y2)))
(setq d2 (sqrt (+ xx yy)))
(setq xw (/ (- x3 x2) d2))
(setq yw (/ (- y3 y2) d2))
(setq d (* d2 (+ (* xv xw) (* yv yw))))
(setq x3p (+ x2 (* d xv)))
(setq y3p (+ y2 (* d yv)))
(setq p3b (list x3p y3p))
(setq x4 (+ x3p (- x1 x2)))
(setq y4 (+ y3p (- y1 y2)))
(setq p4 (list x4 y4))
(command "polylign" p1 p2 p3b p4 "c")

 )

 

[jeff66]

Bonjour,

 

C'est aussi possible avec l'option "cotes" de la commande "RECTANG", mais les côtés seront toujours parallèles aux axes du SCU courant.

Cordialement