Topic: Why does my script continue?

[dubb]

Code: [Select]

(defun budim ( / )
  (setq usr (getint "Select scale: [5/10/20]")
)
(setq cur (list
     (cons "dimscale" (getvar "dimscale"))
     (cons "dimlfac" (getvar "dimlfac"))
     )
       )
(setq usr (list
    (cons "dimscale" 1)
    (cons "dimlfac" usr)
    )
      )
(mapcar '(lambda (x) (setvar (car x)(cdr x)))usr)
(command "._dimaligned")
(mapcar '(lambda (x) (setvar (car x)(cdr x)))cur)
  )
I would like finish this command

Code: [Select]

(command "._dimaligned")before I move on to this

Code: [Select]

(mapcar '(lambda (x) (setvar (car x)(cdr x)))cur)

[mhupp]

This should work better.

Code - Auto/Visual Lisp: [Select]

1. (defun budim (/ usr lst cur)
2.   (setq usr (list 1 (getint "Select scale: [5/10/20]"))
3.         lst (list "dimscale" "dimlfac")
4.         cur (mapcar 'getvar lst)
5.   )
6.   (mapcar 'setvar lst usr)
7.   (command "._dimaligned" pause pause pause)
8.   (mapcar 'setvar lst cur)
9.   (princ)
10. )

Made it even simpler

[dubb]

Thank you! That looks more simple.