Can you repair this?

(command "-scalelistedit" "reset" "y" "e")
( / slist rlist drac csobj entlst entnm)
 (vl-load-com)
 (setvar "cmdecho" 0)
 (setq slist '("1:1" "1:20" "1:50" "1:100"))
 (setq csobj (vlax-ename->vla-object (cdar (dictsearch (namedobjdict) "ACAD_SCALELIST")))
   drac 0)
 (repeat (vla-get-count csobj)
   (if (not (member (cdr (assoc 300 (entget (setq entnm (vlax-vla-object->ename (vlax-invoke-method csobj 'item drac)))))) slist))
     (setq entlst (append (list entnm) entlst)))
   (setq drac (1+ drac)))
 (mapcar 'entdel entlst)
 (setvar "cmdecho" 1)
 (princ)

cant work out why it wont load :/ can someone help? might just be a very easy one :wink:

thanks in advance

Purhaps some thing like this?

Only simple, localised varibles moved & defun added

(defun c:tt ( / slist rlist drac csobj entlst entnm)
 (vl-load-com)
 (setvar "cmdecho" 0)
 (command "-scalelistedit" "reset" "y" "e")
 (setq slist '("1:1" "1:20" "1:50" "1:100"))
 (setq csobj (vlax-ename->vla-object (cdar (dictsearch (namedobjdict) "ACAD_SCALELIST")))
   drac 0)
 (repeat (vla-get-count csobj)
   (if (not (member (cdr (assoc 300 (entget (setq entnm (vlax-vla-object->ename (vlax-invoke-method csobj 'item drac)))))) slist))
     (setq entlst (append (list entnm) entlst)))
   (setq drac (1+ drac)))
 (mapcar 'entdel entlst)
 (setvar "cmdecho" 1)
 (princ)
)

I removed the defun orignally to have to excute on boot-up. Will the script need to be changed much for that?

Nah not at all

However i would keep it a defun & just add in Initializing for it,i find easyer to keep track of things later on. If not, just remove the first line & end line

(defun ScaleListCreater ( / slist rlist drac csobj entlst entnm)
 (vl-load-com)
 (setvar "cmdecho" 0)
 (command "-scalelistedit" "reset" "y" "e")
 (setq slist '("1:1" "1:20" "1:50" "1:100"))
 (setq csobj (vlax-ename->vla-object (cdar (dictsearch (namedobjdict) "ACAD_SCALELIST")))
   drac 0)
 (repeat (vla-get-count csobj)
   (if (not (member (cdr (assoc 300 (entget (setq entnm (vlax-vla-object->ename (vlax-invoke-method csobj 'item drac)))))) slist))
     (setq entlst (append (list entnm) entlst)))
   (setq drac (1+ drac)))
 (mapcar 'entdel entlst)
 (setvar "cmdecho" 1)
 (princ)
)
(ScaleListCreater)

Cheers dude!