cq4920 发表于 2022-12-14 12:09:59


图层数量不能超过256

(defun c:tt(/ ss i col aobj b e )
(vl-load-com)
(tblnext "layer" t )
(setqlaycol 1 ent (ssget))
(command "change" ent "" "p" "c" "bylayer" "")
(while
(setq enda (tblnext "layer" ))
(setq layer (cdadr ENDA))
      (N5-changelayercolor layer laycol )   
(setq    laycol (+ 1 laycol))
(princ )      
)
)

(DEFUN N5-changelayercolor(layer co)
    (vla-put-color (vla-Item (vla-get-Layers (vla-get-ActiveDocument (vlax-get-acad-object))) layer) co)
    )


llsheng_73 发表于 2022-12-15 13:35:55

cq4920 发表于 2022-12-13 21:45
对本身没有定义颜色的图元需要加一个判断，如果一般都没颜色定义，那就干脆直接在表中添加（62 . 颜色） ...

"对本身没有定义颜色的图元需要加一个判断"是不必要的，完全可以不管图元本来有没有62组，也不需要替换，直接append到后边就行了，但不是所有组都可以这么搞
(entmod(append(entgete)'((62 . 1))))

baby绑定命运线 发表于 2023-3-25 04:36:55

支持下不错:lol
页: 1 [2]
查看完整版本: 如何快速更改图形颜色（随机显示）？