;;This lisp change the color of a group, this group have numbers
;;Is only type st as command!!
(defun c:st (/ getbestand nummer bestand read1 lijst wie waar)
 (setq getbestand (getstring "\nName of text file plus extension..."))
 (setq nummer 1)
 (repeat 10
  (setq nummer (+ nummer 1))
  (setq bestand (findfile getbestand))
  (if (null bestand)
   (print "File not found....")
   (progn
    (setq bestand (open getbestand "r"))
    (setq read1 (read-line bestand))
    (if (null read1)
     (print "File has no content...")
     (while read1
      (setq lijst (read (strcat "(" read1 ")")))
      (if (= (car lijst) nummer)
       (setq read1 nil)
       (progn
        (setq read1 (read-line bestand))
        (setq lijst nil)
       )
      )
     )
    )
    (close bestand)
    (if (null lijst)
     (print "File this value has not...")
     (progn
      (setq gr-r (cadr list))
      (command "change" "g" gr-r "" "p" "ltscale" "0.01" "")
      (command "change" "g" gr-r "" "p" "la" "kabelbanen" "")
     )
    )
   )
  )
 )
)
Note: "kabelbanen" = the name of a layer!! Thus, you should change the name
         "bestand"     = file
         "nummer"      = number