[求助]：关于改变颜色问题

zhoufupeng

当图形对象随层时，属性列表中的（62 . ""）并不存在，我用cons和append命令加进列表，然后用
entmod 命令并不行，请问当图形对象随层时，要怎样加进列表才会OK？先谢谢了.

Underway

改变图形颜色对象随层时 （62 . xxx）==>（62 . 256）

zhoufupeng

可是列表中
((-1 . <图元名: 7cc94530>) (0 . "INSERT") (330 . <图元名: 7cc70cf8>)
(5 . "1416") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "DRAWING") (100
. "AcDbBlockReference") (66 . 1) (2 . "DP12") (10 1216.62 942.344 0.0) (41 .
1.0) (42 . 1.0) (43 . 1.0) (50 . 0.0) (70 . 0) (71 . 0) (44 . 0.0) (45 . 0.0)
(210 0.0 0.0 1.0))

没有(62  . XXX) ,我想说的是怎样加进去，用cons和append命令并不行的

Underway

(0 . "INSERT") ==> Block
这个随原定义,请参阅帮助

zhoufupeng

可是线条随层时也没有(62 . XXX)
((-1 . <图元名: 7c6297a0>) (0 . "LINE") (330 . <图元名: 7cc70cf8>) (5
. "1644") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "Die Insert") (100
. "AcDbLine") (10 1050.46 1152.98 0.0) (11 1275.77 1152.98 0.0) (210 0.0 0.0
1.0))

Underway

您要的是图形颜色对象随层
还是要指定颜色给图形对象?

zhoufupeng

我要指定颜色给图形对象，我想通过属性列表改变。

Underway 谢谢你一直关注

jdhszh

用 (tblsearch "layer" "图层") 得到其层表颜色，提取出来就是了

Underway

Command: (setq dat (entget ee))
((-1 . ＜Entity name: 7ef620b0＞) (0 . "CIRCLE") (330 . ＜Entity name: 7ef72c50＞)
(5 . "8E") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "0") (6 .
"Continuous") (370 . 0) (100 . "AcDbCircle") (10 40.6784 172.084 0.0) (40 .
8.0) (210 0.0 0.0 1.0))

Command: (entmod (append dat (list (cons 62  30))))
((-1 . ＜Entity name: 7ef620b0＞) (0 . "CIRCLE") (330 . ＜Entity name: 7ef72c50＞)
(5 . "8E") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "0") (6 .
"Continuous") (370 . 0) (100 . "AcDbCircle") (10 40.6784 172.084 0.0) (40 .
8.0) (210 0.0 0.0 1.0) (62 . 30))

Color=30

zhoufupeng

谢谢，真的是这样的呢，你真是太牛了，我搞了好久都没搞定。