【Col】按色分层

kucha007

下文没句号。 发表于 2022-10-22 09:22
有次一客户发来的室内图纸，里面的图层只有一个名字，就图层颜色不同，这个可以按颜色建图层吗？

是的，你就不能用一下再留言吗....

月下闲人

能否把下面这段代码和大佬的程序合二为一，颜色分层后特性颜色随层颜色？
(defun C:ccc (/ Obj blocklist block n)
  (vl-load-com)
  (setq *OBJ (vlax-get-acad-object))
  (setq *DOC (vla-get-activedocument *OBJ))
  (setq *MSP (vla-get-modelspace *DOC))
  (setq blocklist (vla-get-blocks *DOC));取得块集合
  (vlax-for block blocklist             ;遍历块集合
    (vlax-for n block                   ;遍历单个块
      (if (/= (vla-get-color n) 256)
        (vla-put-color n 256)
      )
    )
  )
  (princ "\n操作已经全部完成!")
  (princ)
)