[求助]：怎样变层色？？？？急！

petertian

各位大虾及斑竹，我要用LISP编写一个程序，用于控制layer表中层的颜色，就是如果我总共有20层，1----10层用200号色，11---15层用156号色，16---20层用10号色，不想用手打开layer表改，用程序怎么改？？？急！！！

lsjjm

根据你的要求写了这个程序,AutoCAD2000i 下调试运行无问题.
(defun c:test ()
  (vl-load-com)
  (setq acadApp (vlax-get-acad-object))
  (setq acadDoc (vla-get-activedocument acadApp))
  (setq DocLayers (vla-get-layers acadDoc))
  (vlax-for itm doclayers
    (cond
      ((member (atoi (vla-get-name itm)) '(1 2 3 4 5 6 7 8 9 10))
        (vla-put-color itm '200))
      ((member (atoi (vla-get-name itm)) '(11 12 13 14 15))
        (vla-put-color itm '156))
      ((member (atoi (vla-get-name itm)) '(16 17 18 19 20))
        (vla-put-color itm '10))
    )
  )
  (princ)
)

petertian

谢谢楼上！有没有办法得到CPUID？？