怎么用lisp查询修改图层颜色？（已解决）

fxlt619

现在论坛里的图层改色只能修改但是不能显示原图层颜色，请问能不能修改的时候先显示原图层颜色然后再修改？请大神帮忙修改。;;AAS便捷式查看修改图层颜色
(defun c:AAS (/ e col lyr)
  (while (and (setq e (car (entsel "\nPick Entity: ")))
                                         (setq col (acad_truecolordlg '(62 . 255)))
         )
    (setq lyr (cdr (assoc 8 (entget e))))
    (vla-put-color
      (vla-item        (vla-get-layers
                                                                                                 (vla-get-activedocument (vlax-get-acad-object))
                                                                                         )
                                lyr
      )
      (cdr (assoc 62 col))
    )
  )
  (princ)
)

fxlt619

;;AAS便捷式查看修改图层颜色
(defun c:AAS (/ e col lyr)
  (setq objA (entsel"\n选图形: "))
  (setq en2 (entget (car objA)))
  (setq en3 (assoc 8 en2))  
  (setq en4 (cdr en3))
  (setq en5 (cdr (assoc 62 (entget (tblobjname "layer" en4)))))
  (prompt (strcat " 颜色为" (rtos en5 2 0)))
  (while (and (setq e (car (entsel "\nPick Entity: ")))
                                         (setq col (acad_truecolordlg '(62 . 255)))
         )
    (setq lyr (cdr (assoc 8 (entget e))))
    (vla-put-color
      (vla-item        (vla-get-layers
                                                                                                 (vla-get-activedocument (vlax-get-acad-object))
                                                                                         )
                                lyr
      )
      (cdr (assoc 62 col))
    )
  )
  (princ)
)