Offset Lisp

[Dspen]

I need a lisp where I can select multiple rectangles and run the command and select an offset distance and it will offset every rectangle and create a layer or add it to an existing layer that was made previously from the Autolisp

[devitg]

Please upload your DWG , and LSP if it is some LSP

[BIGAL]

You missed one answer inside or outside ?  Must be plines not lines.

; Multi offsets of plines
; By AlanH DEC 2019

(defun c:moff (/ ANG CO-ORD DIST LAY OBJ OFF OLDSNAP PLENT PT1 PT2 PT3 SS X)
  (setq oldsnap (getvar 'osmode))
  (setq obj (vlax-ename->vla-object (car (entsel "\nPick object for layer "))))
  (setvar 'osmode 0)
  (setq lay (vla-get-layer obj))
  (setq ss (ssget (list (cons 0 "LWPOLYLINE") (cons 8 lay))))
  (setq off (getreal "\nEnter offset"))
  (if (/= ss nil)
    (progn
      (repeat (setq x (sslength ss))
        (setq plent (ssname ss (setq x (- x 1))))
        (setq co-ord (mapcar 'cdr (vl-remove-if-not '(lambda (x) (= (car x) 10)) (entget plent))))
        (setq pt1 (nth 0 co-ord))
        (setq pt2 (nth 2 co-ord))
        (setq ang (angle pt1 pt2))
        (setq dist (/ (distance pt1 pt2) 2.0))
        (setq pt3 (polar pt1 ang dist))
        (command "offset" off plent pt3 "")
      )
    )
    (alert "No plines found")
  )
  (setvar 'osmode oldsnap)
  (princ)
)
(c:moff) 

 

Edited December 10, 2019 by BIGAL

[Manila Wolf]

I have this lisp in my library.

You have to type in the name of an existing layer. I just create a layer before I run it.

Will work on most closed polylines.

Not my own work I hasten to add.

 

OffsetMultiplePolylines_toNewLayer[OMPNL].lsp

[Dspen]

They both work perfectly! Thank yall