dimstyle "1XP" to "100XP"

Hi Gents,

I need to make a dimstyle from "1XP" to "100XP",

but sometimes the error appears.

(defun c:dset ()

(setvar "cmdecho" 0)

(setq st 0)

(while (

(setq st (+ st 1))

(setvar "dimscale" st)

(setq st1 (rtos st))

(setq st2 (strcat st1 "XP"))

(command "-dimstyle" "s" st2)

)

(princ)

)

;;; I want to be modified by you.

;;; Anyone requests the advice.

Try this:

(defun c:test (/ *error* OLDVARS ST SYSVARS)

 (defun *error* (msg)
   (and SysVars (mapcar (function setvar) SysVars OldVars))
   (or (wcmatch (strcase msg) "*BREAK,*CANCEL*,*EXIT*")
       (princ (strcat "\n** Error: " msg " **")))
   (princ))

 (setq SysVars '("CMDECHO" "DIMSCALE")
       OldVars  (mapcar (function getvar) SysVars))  
 (setvar "CMDECHO" 0)

 (setq st 0)
 (while (<= (setq st (1+ st)) 100)

   (setvar "DIMSCALE" st)
   (command "_.-dimstyle" "_S" (strcat (itoa st) "XP")))

 (mapcar (function setvar) SysVars OldVars)
 (princ))

Thank you so much.

Thank you so much.

You're welcome Ted