Need Lisp : create rectangle between rectangle

[git_thailand]

Drawing1-Model.jpg

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

[BlackBox]

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

[BIGAL]

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.

[ketxu]

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

[pBe]

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?

[Tharwat]

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

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

[pBe]

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))
       )
    ))
    (progn
    (repeat  (setq i (sslength rec))
    (setq pts (mapcar 'cdr
        (vl-remove-if-not
          '(lambda (j)
      (= (car j) 10)
    )
          (entget (setq e (ssname rec (setq i (1- i)))))
        )
       )
   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:

[git_thailand]

create rectangle between two rectangle

before.jpgafter.jpg

[ReMark]

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

[pBe]

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.