Hello all! I have a need for a lisp routine that offsets a line and then changes its height a specified distance. I've attempted to create this routine as simply as possible and I'm absolutely stuck on one part... changing the "z" value.
Here is the routine I've written:
Code:
(defun C:OE()
(setq o1(getreal "\nEnter Offset Distance: ")) ;Gets offset distance
(setq e1(getreal "\nEnter Elevation Change: ")) ;Gets elevation change
(Command "offset" o1 pause pause "") ;Runs the offset command
(Command "move" "L" "" "0,0,0" "@0,0,e1") ;changes elevation of last object
(princ)
)
The second part of this is that I'd like to repeat the routine without re-entering information as you would with the offset (multiple) command. Can anyone help me?