색상선택 리습 편집

안녕하세요. 고수님 도움이 필요하여 글 올립니다.

게시판에 올려져 있는 색상선택 리습은 크게 4가지로 선택하여 사용할 수 있게 잘 짜여져 있는데 
그 중 원하는 색상번호을 입력하여 객체선택을 하는 방식을 사용하고자 합니다. 
여기서 한가지 색상을 (특정 색상130번) 지정해서 사용하고 싶은데 아래 리습에서
어디을 편집해야 하는 지 통 알 수가 없네요… 고정 칼라로 반복적으로 자주 사용이 필요해서
아예 칼라번호을 고정으로 넣어놓고 객체선택을 하고 싶습니다. 해서 도움 요청 해봅니다.

 (Defun c:ss3(/ colour layer layerlist layercolourlist layernamefilter strlayer strlayerlen filter)
 (setq colour (getint "nPls input the color number what you want select."))
 (setq layer (tblnext "layer" T))
 (while layer
  (setq layerlist (append layerlist (list layer)))
  (setq layer (tblnext "layer"))
 )
 (while layerlist
  (if
   (/= colour (cdr (assoc 62 (nth 0 layerlist))))
   (setq layerlist (cdr layerlist))
   (progn
    (setq layercolourlist (append (list (cdr (assoc 2 (nth 0 layerlist)))) layercolourlist))
    (setq layerlist (cdr layerlist))
   )
  )
 )
 (if (= layercolourlist nil)
  (setq filter (list (cons 62 colour) (cons -4 "")))
  (progn
   (setq strlayer "")
   (while (car layercolourlist)
    (setq strlayer (strcat strlayer (car layercolourlist) ","))
    (setq layercolourlist (cdr layercolourlist))
   )
   (setq strlayerlen (strlen strlayer))
   (setq layernamefilter (substr strlayer 1 (1- strlayerlen)))
   (setq filter (list (cons -4 "") (cons 62 colour) (cons -4 "or>") (cons -4 "")))
  )
 )
 (prompt "nPls select object.")
 (sssetfirst nil (ssget filter))
 (princ)
)