i write easy lisp code that drawed 2 rectangle with selected 4 points but get error??

hi dear

:(i write lisp code that drawing 2 rectangle with 4 points, but get error, please check my code and tell me Where is the problem?

thanks

i solved in my code but cant modify lispp code in here , unfortunately Hang Up.

2rectangle.LSP

Firstly you need to know how can you draw one rectangle, then applied what you learn to 2 rectangle, this is a simple code to learn how to draw rectangle, try to study this code

(defun c:drawrec (/ LEN P1 P2 POINT WIDTH)
 (setq len (getdist "\nEnter Length: "))
 (setq Width (getdist "\nEnter Width: "))
 (setq point (getpoint "\nSpecify point: "))
 (setq p1 point
   p2 (list (+ (car point) len) (+ (cadr point) Width))
 )
 (command "rectang" p1 p2)
 (princ)
)

HTH

M Badran

thanks

my problem solved with use while function.

Perhaps the following will help:

(defun c:testr ( / i l p )
   (setq i 1)
   (while (and (< i 5) (setq p (getpoint (strcat "\nPoint " (itoa i) ": "))))
       (setq l (cons p l)
             i (1+ i)
       )
   )
   (if (= 5 i)
       (repeat 2
           (command "_.rectang" "_non" (car l) "_non" (cadr l))
           (setq l (cddr l))
       )
   )
   (princ)
)

dear lee mac

my goal exactly the same

very thanks for help me

You're most welcome hamidciv.