Need Lisp : create rectangle between rectangle

Consider the Offset, and the Trim & Pedit, or the Pedit Commands.

Another way with lisp pick two diag corners xoff yoff can be different draws new rectang. 3pt answer if rectang on angle.

I would go 3pt you can bet if you make it square only you need an angle version.

Git_thailand, please re-read all off topic that you have posted. Please give more detail for what you want.

Need lisp for create rectangle (red colour) between rectangle (black colour)

Looks easy enough. The only existing entiy is the black pline? and youre wanting to create 5 more? or just 4 not including the inner rectangle?

and youre wanting to create 5 more? or just 4 not including the inner rectangle?

I guess there are only two , aren't they ?

I guess there are only two , aren't they ?

Oh yeah. ... but it could also be four depending on how you see it. 5 even if you include the middle one as a separate entity.

Oh well....

(defun c:BeatBox (/ _HiLow _Box _trans rec pts low high)
 (defun _HiLow (lev lst)
   (list
     (apply lev (mapcar 'car lst))
     (apply lev (mapcar 'cadr lst))
   )
 )
 (defun _Box (p1 p2)
   (command "_rectang" "_non" p1 "_non" p2)
 )
 (setq _trans (lambda (pt) (trans pt 0 1)))
 (if (and
   (setq dist (cond
                   (   (getdist
                           (strcat "\nOffset Distance"
                               (if dist (strcat " <" (rtos dist) ">: ") ": ")
                           )
                       )
                   )
                   (   dist   )
               )
           )
   (setq rec (ssget 
      '((0 . "LWPOLYLINE") (-4 . "&=") (70 . 1))
      )
   ))
   [color=blue](progn
[/color]    [color=blue](repeat  (setq i (sslength rec))
[/color]    (setq pts (mapcar 'cdr
       (vl-remove-if-not
         '(lambda (j)
     (= (car j) 10)
   )
         (entget (setq e (ssname rec [color=blue](setq i (1- i))))[/color])
       )
      )
  pts (mapcar '_trans pts)
   )
   (setq Low  (_HiLow 'min pts)
  High (_HiLow 'max pts)
   )
 (_Box (list (car low) (+ (cadr low) dist))
       (list (car high) (- (cadr high) dist))
 )
 (_Box (list (+ (car low) dist) (cadr low))
       (list (- (car high) dist) (cadr high))
 )
)
     )
 )
)

HTH

UPDATED:

create rectangle between two rectangle

You really need a lisp routine to do this? Really??

create rectangle between two rectangle

Geez. I was right the first time. It is indeed 4.

But then again...

You really need a lisp routine to do this? Really??

I am wondering myself.

You really need a lisp routine to do this? Really??

yes. i need a lisp really.

A simple AutoLISP routine that will draw a rectangle between two other (aligned) will be no gain in productivity - if you have Endpoint Osnap activated, then the use of RECTANGLE command require just two clicks to get the result, while a routine will require selection of two entities.

Presuming that you have a big bunch of rectangles to connect on horizontal and vertical, then a routine may increase speed by allowing you to select all and then filtering them and connecting in pairs - but I'm afraind this will be a quite complicated code since need to validate coordinates of pairs and also check for potential overlapps.

- but I'm afraind this will be a quite complicated code since need to validate coordinates of pairs and also check for potential overlapps.

I'll pass Mircea .

sorry i am stupid.

but i need lisp create rectangle real.

No one called you "stupid" and pBe gave you a lisp routine in post #7. If it does not suit your needs please explain where the routine falls short or try fixing it yourself.

see pic #8

see pic #8

Some members posts a somewhat "odd" requests but it doesnt mean it can't be done and "stupid" they're not. No offense git_thailand but what you're asking would redefine the word lackadaisicalness to a new level.

Plus the first image you posted can be interpreted in many ways other than what you need [hence my mis-interpreted routine]

If you badly need a code, you can start by explaining to us what that image really meant, I know that a picture is worth a thousand words but can you give us more information.

Maybe there's more to it than what we like to think.

Request like a boss ^^

Request like a boss ^^

Yeah, that works 99% of the time, but it doesnt mean you're going to get what you asked for ALL the time.

The result is only as good as the information you give us git_thailand.

sorry i no good english