@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 <---