;CODING STARTS HERE
;This application will perform an Offset on multiple entities.
;Kenny Ramage - April 2000
;afralisp@mweb.com.na
;http://www.afralisp.com

(prompt "\nType MULTOFF to run....")

(defun c:multoff ( / off sel1 side n lng)

(setq off (getdist "\nOffset Distance : ")
sel1 (ssget)
side (getpoint "\nSelect Side to Offset: ")
n 0
lng (sslength sel1))

(repeat lng

(setq ent (ssname sel1 n))
(command "OFFSET" off ent side "")
(setq n (1+ n))

);repeat

(princ)

);defun

(princ)
;CODING ENDS HERE

Save this as "Multoff.lsp".