cad如何用lisp或者宏批量实现图层颜色随层？

画图时有些图层在块里，不随层，蛮多的，想批量处理一下

2025-06-28 08:43:02

推荐回答（1个）

回答1：

;一键，所有图元颜色随层颜色
(defun c:tes ( / block e obj ss)
 (if (null vlax-dump-object) (vl-load-com) )
 (if (setq ss (ssget "X"))
  (progn
   (vla-startundomark (vla-get-activedocument (vlax-get-acad-object)))
   ;; 块定义内实体
   (vlax-for block (vla-get-blocks (vla-get-activedocument (vlax-get-acad-object)))
    (vlax-for obj block
     (vla-put-color obj 256)
    )
   )
   
   (while (setq e (ssname ss 0))
    (setq ss (ssdel e ss) obj (vlax-ename->vla-object e))
    (vla-put-color obj 256)
   )
  )
 )
 (princ)
)