CAD 图层颜色更换程序-VLISP源码（免开图层控制中心）

      CAD日常制图过程中常会涉及图层颜色的修改，常规做法是打开图层控制中心，选择应图层的颜色栏然后进行修改，这种需要打开和关闭图层控制中心，操作效率比较低。以下程序为直接选取对象，即可更换图层颜色。

附：程序源码

(defun c:XX();图层变色
(vl-load-com)(setq text_jud nil)
(prompt "\n 是否将所有图层设置为默认颜色！！如是请输入【空格键】！如否，请选择图层对象！！")
(setq text_jud(grread nil 4 2))
(setq text_jud_fir(car text_jud))
(setq text_jud_sec(cadr text_jud))
(if  (and (= text_jud_fir 2)(= text_jud_sec 32))  (sub_yh_tcbs_1)
(progn
(setq en_judge(nentselp text_jud_sec))
(cond ((= en_judge nil)
       (setq list_last nil)
       (command "line" text_jud_sec pause "")
       (setq lx_last(entlast))
       (setq lx_last_data(entget lx_last))
       (setq lx_str(trans (cdr (assoc 10 lx_last_data)) 0 1))
       (setq lx_end(trans (cdr (assoc 11 lx_last_data)) 0 1))
       (setq lx_ang(angle lx_str lx_end))
       (entdel lx_last)
       (setq ss_lx(ssget "F" (list lx_st