Multi offset - drawing stairs

[Emmanuel Delay]

Just sharing a simple script I just wrote, I don't have a question

 

When drawing the hidden lines of stairs steps (the overlap of the lower step hidden under the step above) I thought:

I would like to select all the steps; multi offset them; the offset lines should be selected and gripped, so that I can set them in a different layer (a layer with LType Hidden)

...

 

But feel free to comment, improve, ...

 

;; Multi Offset.  New objects get selected and gripped.
;; For example to make the hidden stairs steps... Select all 

(defun c:moff ( / sel ss pt3 i off_dst obj elast pickset1)
	(setq off_dst (getdist "\nOffset Distanct: "))
	(setq pt3 (getpoint "\nOffset point: "))
    (setq pickset1 (ssadd))
	(princ "\nSelect objects: ")
	(setq ss (ssget))
	
	(setq i 0)
	(repeat (sslength ss)
		(setq obj (ssname ss i))
		(command "offset" off_dst obj pt3 "")
		(setq elast (entlast))
		;;
		(ssadd elast pickset1)
		(setq i (+ i 1))
	)
	;; now grip the pickset (the newly made objects)
	(sssetfirst nil pickset1)
)

 

 

Edited 2 hours ago by Emmanuel Delay