rectangle?

[eric45]

Bonjour à tous,

 

Je commence tout juste à travailler avec Autocad, et je n'arrive pas à faire la chose suivante: placer un rectangle, mais pas de façon "orthogonale", en le faisant en trois points. C'est à dire que les deux premiers points ne sont pas forcément alignés selon l'écran, et le troisième point ne servirait qu'à l'écartement de ce rectangle.. Quelqu'un pourrait-il m'éclairer à ce sujet?

 

Merci par avance

 

Eric

[lili2006]

Bonsoir,

 

Utilises plutôt le SCU pour orienter ton rectangle ou bien rotation aprés l'avoir dessiné. Les options "aires" et "cotes" sont également disponibles. OPense à activer la dyn (touche F12) et ouvres avec la flèche vers le bas les différentes options.

 

Bon courage sur tes débuts sur AutoCAD,... :P

[eric45]

Merci Lili

 

Le problème, c'est que si j'ai plusieurs rectangles à dessiner, en reliant certains points, je devrais à chaque fois jouer avec le SCU? Ou alors les "rotater" après les avoir dessinés? Il n'existerait pas une fonction qui permettrait de dessiner un simple rectangle en reliant 3 points?

 

Merci

[jalna]

Salut

 

C'est possible via un petit lisp (regarde sur le forum si tu ne connais pas le lisp, on t'explique comment charger ect....)

 

(setq p1 (getpoint "\n 1er point du 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")

 

A enregistrer sous rct.lisp

Tapez rct dans AutoCad pour lancer la routine

[bonuscad]

Une solution parmi tant d'autre:

 

(defun c:rect_3pt ( / sv_snap sv_ortho p1 p2 p3 p4)
(setq
	sv_snap (getvar "SNAPANG")
	sv_ortho (getvar "ORTHOMODE")
)
(initget 1)
(setq p1 (getpoint "\n1er coin: "))
(initget 33)
(setq p2 (getpoint p1 "\n2ème coin adjacent: "))
(grdraw p1 p2 7)
(setvar "SNAPANG" (angle p1 p2))
(setvar "ORTHOMODE" 1)
(setvar "osmode" (+ 16384 (rem (getvar "osmode") 16384)))
(initget 33)
(setq
	p3 (getpoint p2 "\n3ème coin adjacent: ")
	p4 (polar p3 (angle p2 p1) (distance p2 p1))
)
(redraw)
(setvar "cmdecho" 0)
(command "_.PLINE" p1 p2 p3 p4 "_CLOSE")
(setvar "cmdecho" 1)
(setvar "osmode" (rem (getvar "osmode") 16384))
(setvar "SNAPANG" sv_snap)
(setvar "ORTHOMODE" sv_ortho)
(prin1)
)

[Eric]

Bonjour,

 

Je ne sais plus si cela existait déjà en 2005 mais depuis il y a l'option rotation dans la commande rectangle.