(defun C:vario ( / a b)
(setq a (ssget ))
(setq b (getpoint "\nBasispunkt zeigen:"))
(command "block" "tempor" b a "")
(command "_insert" "tempor" b pause pause pause)
(command "_explode" "_l")
(command "_purge" "_B" "tempor" "_n")(princ)
)