[分享]：■层色传递 希望有用■

zhuquanmao

[PHP]
;;; 层色传递：可将目标实体所在层的颜色设为源实体所在层的颜色
(defun c:cscd (/ ent entname lay col doc layobj lay ssa n index entity)
  (command "_.undo" "_Group")
  (vl-load-com)
  (prompt "\n****选择源实体****")
  (setq ent nil)
  (while (= ent nil)
    (setq ent (car (entsel)))
  )
  (setq entname (vlax-ename->vla-object ent))
  (setq lay (vla-get-layer entname))
  (setq col (vla-get-color entname))
  (if (= col 256)
    (progn
      (setq doc (vla-get-activedocument (vlax-get-acad-object)))
      (setq layobj (vla-item (vla-get-layers doc) lay))
      (setq col (vla-get-color layobj))
    )
  )
  (setvar "cmdecho" 0)
  (prompt "\n****选择目标实体(可多选)****")
  (setq ssa (ssget))
  (setq n (sslength ssa))
  (setq index (- n 1))
  (repeat n
    (setq entity (ssname ssa index))
    (setq lay (cdr (assoc 8 (entget entity))))
    (command "-LAYER" "C" col lay "")
    (setq index (1- index))
  )
  (command "_.undo" "_end")
  (princ)
)
[/PHP]