Can someone please help me combine this lisp to have multiple distances by the use of a list of distances
For example, if I wanted this lisp to offset 6" I type "OD" and a list of distance comes up and then select 6. instead of having a code for each one of the distances I need.
(defun C:OD (/ ss pt)
;;(prompt "Select object to offset: ")
(setq ss (ssget "+.:E:S" '((0 . "lwpolyline,line,spline,circle,ellipse"))))
(setq pt (getpoint "Specify point on side to offset: "))
(command "offset" "12" ss pt "")
(initget "Yes No")
(setq RO (getkword "\nDelete original? [Yes/No] <N>: "))
(if (= RO "Yes")
(command "erase" ss "")
)
Thanks,