[讨论]如何变更DXF码，如何完成颜色随层？

psufngah

1，CAD中的图形不是随层颜色,比如2号色
(setq a (entget(car(entsel))))
(setq name (cdr(assoc -1 a)))
(setq b (assoc 62 a))
(setq a (subst (cons 8 "dxt")(assoc 8 a)a))   ;;;图层转换，如果己建好的DXT层是1号色？
(setq a (subst (cons 62 0)(assoc 62 a)a))   ;;;颜色转换随块，现在要随层，怎么办？
(vl-remove b a)      ;;;删除DXF码中的颜色表
(entmod a)           
(entupd name)

2，以上不能实现，请问如何实现颜色随层变化？

3，如果一开始选的图形是随层的色，DXF码里边没有62号码。但选的有色，为什么删除DXF码可以成功，但变不了随层？

Source_Liu

(256 "随层") (0 "随块") (1 "红色") (2 "黄色") (3 "绿色") (4 "青色") (5 "蓝色") (6 "紫色") (7 "黑白")

psufngah

非常感谢！

poople

Source_Liu 发表于 2010-9-2 23:33
(256 "随层") (0 "随块") (1 "红色") (2 "黄色") (3 "绿色") (4 "青色") (5 "蓝色") (6 "紫色") (7 "黑白")

终于找到诀窍了，受教了！

poople

Source_Liu 发表于 2010-9-2 23:33
(256 "随层") (0 "随块") (1 "红色") (2 "黄色") (3 "绿色") (4 "青色") (5 "蓝色") (6 "紫色") (7 "黑白")

再想请教一下，线型和线宽怎样随层处理，谢谢！

ll_j

poople 发表于 2013-11-15 09:43
再想请教一下，线型和线宽怎样随层处理，谢谢！

线形组码是6，随层是“Bylayer”，随块是“Byblock”。
线宽组码是370，数值为mm×100，随层为-1，随块为-2，默认为-3。

poople

ll_j 发表于 2013-11-15 10:17
线形组码是6，随层是“Bylayer”，随块是“Byblock”。
线宽组码是370，数值为mm×100，随层为-1，随块为 ...

你的意思是:(subst '(6 . "bylayer") (assoc 6 entlist) entlist) ?
假设entlist是一根一根线的组码表。

待会上班再验证一下，谢谢！