I've got this old Dim routine that puts dims on the dim layer. I've dusted it off, and I see that I had used the PAUSE PAUSE thing to determine user input. I'd like to just let the routine go and whenever the user is done is resets the original layer. I don't want the routine to repeat, just to let the user finish - but I can't seem to remember the method. Any help??
;;DIML=DIMLINEAR
(DEFUN C
IML
;simple error handler
(defun *error* (msg)
(princ "\n--->Back and forth, back and forth (sigh...) ") (setvar "clayer" l) (princ msg)
(princ) )
(SETQ L (GETVAR "CLAYER"))
(setvar "clayer" "05-DIMS")
(COMMAND "DIMLINEAR" PAUSE PAUSE PAUSE) ;; <=THIS IS THE PART I'D LIKE TO CHANGE (setvar "clayer" l)
(princ))
;;DIML=DIMLINEAR
(DEFUN C
IML;simple error handler
(defun *error* (msg)
(princ "\n--->Back and forth, back and forth (sigh...) ") (setvar "clayer" l) (princ msg)
(princ) )
(SETQ L (GETVAR "CLAYER"))
(setvar "clayer" "05-DIMS")
(COMMAND "DIMLINEAR" PAUSE PAUSE PAUSE) ;; <=THIS IS THE PART I'D LIKE TO CHANGE (setvar "clayer" l)
(princ))
