psufngah 发表于 2010-9-2 23:21:00

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

<p><font face="Verdana">1,CAD中的图形不是随层颜色,比如2号色<br/>(setq a (entget(car(entsel))))<br/>(setq name (cdr(assoc -1 a)))<br/>(setq b (assoc 62 a))<br/>(setq a (subst (cons 8 "dxt")(assoc 8 a)a))&nbsp;&nbsp; ;;;图层转换,如果己建好的DXT层是1号色?<br/>(setq a (subst (cons 62 0)(assoc 62 a)a))&nbsp;&nbsp; ;;;颜色转换随块,现在要随层,怎么办?<br/>(vl-remove b a)&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ;;;删除DXF码中的颜色表<br/>(entmod a)&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <br/>(entupd name)</font></p>
<p>2,以上不能实现,请问如何实现颜色随层变化?</p>
<p>3,如果一开始选的图形是随层的色,DXF码里边没有62号码。但选的有色,为什么删除DXF码可以成功,但变不了随层?</p>

Source_Liu 发表于 2010-9-2 23:33:00

<font color="#ff0000">(256 "随层") </font>(0 "随块") (1 "红色") (2 "黄色") (3 "绿色") (4 "青色") (5 "蓝色") (6 "紫色") (7 "黑白")

psufngah 发表于 2010-9-2 23:42:00

非常感谢!

poople 发表于 2013-11-14 17:46:01

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

终于找到诀窍了,受教了!

poople 发表于 2013-11-15 09:43:37

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

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

ll_j 发表于 2013-11-15 10:17:35

poople 发表于 2013-11-15 09:43 static/image/common/back.gif
再想请教一下,线型和线宽怎样随层处理,谢谢!

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

poople 发表于 2013-11-15 12:39:11

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

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

待会上班再验证一下,谢谢!
页: [1]
查看完整版本: [讨论]如何变更DXF码,如何完成颜色随层?