kucha007 发表于 2022-10-22 09:25:15

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

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

月下闲人 发表于 2023-11-12 12:33:42

能否把下面这段代码和大佬的程序合二为一，颜色分层后特性颜色随层颜色？
(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)
)
页: 1 2 3 [4]
查看完整版本: 【Col】按色分层