Rectangle offset with two different distance

[Juergen]

Hi,

 

a found some offset lisp, but is it possible to

offset e.g. the long side with a distance and the short side with an another distance.

 

Offset: Layer as current and exlode the of line.

 

Thanks for help.

 

 

[Steven P]

Is the rectangle drawn as a polyline? in which case yes you can:

- Ask user for offset values

- Select rectangle

- Use Entity details to get the corner points (entget and assoc value 10)

- calculation rotation of the rectangle (or angle)

- calculate long sides (distance)

- use polar calculation to work out new points

- entmod the original rectangle

 

 

Have a go and see how you do with that - am sure you can do some of this yourself, asking advice where you need it

[BIGAL]

This is get the co-ordinates.

 

(setq plent (entsel "\nPick rectang"))
(if plent (setq co-ord (mapcar 'cdr (vl-remove-if-not '(lambda (x) (= (car x) 10)) (entget (car plent))))))
(princ co-ord)