[讨论]如何变更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)) ;;;图层转换,如果己建好的DXT层是1号色?<br/>(setq a (subst (cons 62 0)(assoc 62 a)a)) ;;;颜色转换随块,现在要随层,怎么办?<br/>(vl-remove b a) ;;;删除DXF码中的颜色表<br/>(entmod a) <br/>(entupd name)</font></p><p>2,以上不能实现,请问如何实现颜色随层变化?</p>
<p>3,如果一开始选的图形是随层的色,DXF码里边没有62号码。但选的有色,为什么删除DXF码可以成功,但变不了随层?</p> <font color="#ff0000">(256 "随层") </font>(0 "随块") (1 "红色") (2 "黄色") (3 "绿色") (4 "青色") (5 "蓝色") (6 "紫色") (7 "黑白") 非常感谢! Source_Liu 发表于 2010-9-2 23:33
(256 "随层") (0 "随块") (1 "红色") (2 "黄色") (3 "绿色") (4 "青色") (5 "蓝色") (6 "紫色") (7 "黑白")
终于找到诀窍了,受教了! Source_Liu 发表于 2010-9-2 23:33
(256 "随层") (0 "随块") (1 "红色") (2 "黄色") (3 "绿色") (4 "青色") (5 "蓝色") (6 "紫色") (7 "黑白")
再想请教一下,线型和线宽怎样随层处理,谢谢! poople 发表于 2013-11-15 09:43 static/image/common/back.gif
再想请教一下,线型和线宽怎样随层处理,谢谢!
线形组码是6,随层是“Bylayer”,随块是“Byblock”。
线宽组码是370,数值为mm×100,随层为-1,随块为-2,默认为-3。
ll_j 发表于 2013-11-15 10:17
线形组码是6,随层是“Bylayer”,随块是“Byblock”。
线宽组码是370,数值为mm×100,随层为-1,随块为 ...
你的意思是:(subst '(6 . "bylayer") (assoc 6 entlist) entlist) ?
假设entlist是一根一根线的组码表。
待会上班再验证一下,谢谢!
页:
[1]