Help draw rectangle from 3 points

[tuantrinhdp]

Hello everyone. 
I have 3 points and i want to draw rectangle, can you help me get lisp ?  

draw house.dwg

[eldon]

Perhaps you can help yourself by searching.

 

Hint - look at Lee Mac's web site.

[eldon]

I see there are at least two solutions to your example. Which one do you want?

 

It might be more simple to draw the rectangle yourself.

 

 

[Grrr]

I've ended up drawing a rhomboid, not sure if thats desired but sharing the code anyways - 

; Draws rhomboid by specifying 3 points
(defun C:test ( / p1 p2 p3 p4 )
  (and 
    (setq p1 (getpoint "\nSpecify first point: "))
    (setq p2 (getpoint "\nSpecify second point: " p1))
    (progn (grdraw p1 p2 1) t)
    (setq p3 (getpoint "\nSpecify third point: " p2))
    (progn (grdraw p2 p3 1) t)
    (setq p4 
      (inters 
        p1 (mapcar '+ p1 (mapcar '- p2 p3))
        p3 (mapcar '+ p3 (mapcar '- p2 p1))
        nil
      )
    ); setq p4
    (entmakex 
      (append
        '((0 . "LWPOLYLINE")(100 . "AcDbEntity")(100 . "AcDbPolyline")(90 . 4)(70 . 1))
        (mapcar (function (lambda (p) (cons 10 p))) (list p1 p2 p3 p4))
      )
    )
  )
  (redraw) (princ)
); defun 

 

[tombu]

Using Civil 3D field codes 2 points and an offset distance is all you'd need. https://help.autodesk.com/view/CIV3D/2022/ENU/?guid=GUID-59F46AEC-0E42-4F98-A257-F864C31F0E37

To draw a Rectangle using 3 points try Lee Mac's 3-Point Rectangle lisp http://www.lee-mac.com/3pointrectangle.html

[tuantrinhdp]

11 hours ago, eldon said:

I see there are at least two solutions to your example. Which one do you want?

 

It might be more simple to draw the rectangle yourself.

 

 

Any solution is fine ^^ 
I've found lisp Lee-Mac. Thank you ^^

 

Edited September 20, 2021 by tuantrinhdp

[tuantrinhdp]

12 hours ago, eldon said:

Perhaps you can help yourself by searching.

 

Hint - look at Lee Mac's web site.

Wow, thank for your help. I will use lisp Lee-Mac.