레이어 색상 번호를 알수 있는 리습이 있나요…??

(defun C:LCN (/ lay)
  (textscr)
  (setq lay (tblnext “layer” t))
  (princ
 (strcat “nLayer ”” (cdr (assoc 2 lay)) “” Color No. <” (itoa (abs (cdr (assoc 62 lay)))) “>”)
  )
  (while (setq lay (tblnext “layer”))
 (princ
   (strcat “nLayer ”” (cdr (assoc 2 lay)) “” Color No. <” (itoa (abs (cdr (assoc 62 lay)))) “>”)
 )
  )
  (princ)
)

이 내용 복사해서 리습 파일로 맹글어서 LCN 때려 보세요.
원하시는 결과 얻으시길…

(defun C:LCN ()
  (princ (strcat “nCurrent Layer ””
     (getvar “clayer”)
     “” – Color No.: “
     (itoa (cdr (assoc 62 (tblsearch “layer” (getvar “clayer”)))))
   )
  )
  (princ)