ENJOY MULTIPLE OFFSET DISTANCE IN ONE TIME PICKED

[Anonymous]

(DEFUN C:OM()


(SETQ
SO(ENTSEL "\n SELECT OBJEECT")
OBJ1(ENTLAST)
P1(GETPOINT "\n PICK ON SIDE:")
CV 0
)
(REPEAT 100
(SETQ
EV(GETDIST "\n ENTER OFFSET DISTNACE:")

CV(+ EV CV)
)
(COMMAND "OFFSET" CV SO P1 "")
)
)

[pbejse]

---

@Anonymous wrote:

(DEFUN C:OM()


(SETQ
SO(ENTSEL "\n SELECT OBJEECT")
OBJ1(ENTLAST)
P1(GETPOINT "\n PICK ON SIDE:")
CV 0
)
(REPEAT 100
(SETQ
EV(GETDIST "\n ENTER OFFSET DISTNACE:")

CV(+ EV CV)
)
(COMMAND "OFFSET" CV SO P1 "")
)
)

---

Are you wanting the forum members to have a look-at your code for comments?

I dont see a question on your post, or are you just sharing the code for anyone whos' interested?  I noticed you also posted the same code on a different thread. -->  Offset Lisp <---