offtolay.lsp

(defun c:offtolay ()
    (defun dxf (code elist) (cdr (assoc code (entget elist))))
    (setq cd (getvar "offsetdist")
          oc (getvar "cmdecho")
          cl (getvar "clayer")
    )
    (setq lay (getstring "Offset to which layer? "))
    (setvar "cmdecho" 0)
    (if (= -1 cd)
        (setq cd 0)
    )
    (setq text (strcat "\nEnter offset distance <" (rtos cd) "> "))
    (princ text)
    (setq od (getdist))
    (if (= nil od)
        (setq od cd)
    )
   (setq x 0)
   (while (< x 10000)
    (setq obj  (car (entsel "\nSelect object to offset: "))
          pt   (getpoint "\nSelect side to offset: ")
          la   (dxf 8 obj)
    )
    (command "_offset" od obj pt "")
    (setq ed (entget (entlast))
          ed (subst (cons 8 lay) (assoc 8 ed) ed)
    )
    (entmod ed)
      (setq x (1+ x))
      )
    (setvar "cmdecho" oc)
    (princ)
)