[求助]：lisp问题

fylinwater

(setq tb (tblnext "block" t ))＝>
((0 . "BLOCK") (2 . "A$C72CE4FB1") (70 . 0) (10 0.0 0.0 0.0) (-2 . <Entity
name: 31c0658>))
(setq bent (cdr (assoc -2 tb)))=>
<Entity name: 31c0658>
(setq bentlst (entget bent))=>
((-1 . <Entity name: 31c0658>) (0 . "CIRCLE") (5 . "73") (100 . "AcDbEntity")
(67 . 0) (8 . "0") (62 . 1) (100 . "AcDbCircle") (10 3.03038 1.41979 0.0) (40 .
0.983432) (210 0.0 0.0 1.0))
(entmod '((-1 . <Entity name: 31c0658>) (0 . "CIRCLE") (5 . "73") (100 . "AcDbEntity")
(67 . 0) (8 . "0")  (100 . "AcDbCircle") (10 3.03038 1.41979 0.0) (40 .
0.983432) (210 0.0 0.0 1.0)))
entmod中(62 . 1)项去掉了
可以调用成功但是 实际上没有修改图形数据库，图形没有发生变化
请教 到底问题出在哪里？

XDSoft

最初由 fylinwater 发布
[B](setq tb (tblnext "block" t ))＝>
((0 . "BLOCK") (2 . "A$C72CE4FB1") (70 . 0) (10 0.0 0.0 0.0) (-2 . <Entity
name: 31c0658>))
(setq bent (cdr (assoc -2 tb)))=>
<Entity name: 31c0658>
(setq bentl... [/B]

不知道你entmod后面的是自己手工输入的，还是为了模拟参数？

你应该：
(setq ed (subst new old ed))
(entmod ed)
这样的格式写。

如果象你那么直接在entmod后面写，肯定是不行的。因为他们虽然看起来相同，但是表使用的内存不同。

如果更新了块定义，那么INSERT实体要REGEN才能看到效果。

fylinwater

为了把(62 . 1)去掉 就不能用(setq ed (subst new old ed))
用它可以通过比如用(62 . 2)替代 可以把图形改为黄色
其实我是想把会这里的实体的颜色把本来的红色修改为随层
我用了 一个去掉表指定项的函数 表数据处理没问题
就是图形把改变

XDSoft

最初由 fylinwater 发布
[B]为了把(62 . 1)去掉 就不能用(setq ed (subst new old ed))
用它可以通过比如用(62 . 2)替代 可以把图形改为黄色
其实我是想把会这里的实体的颜色把本来的红色修改为随层
我用了 一个去掉表指定项的函数 表数据?.. [/B]

你没有明白我的意思，就是你始终要操作(setq ed (entget e))这样得到的数据表，别自己写，你自己写的，LISP和实体联系不上的。
始终要对变量ed进行操作。

替换有的，用subst，增加没有的，用cons 不用管位置，加入表里就可以。

fylinwater

对 我没有手写数据  现在的问题是我想去掉（62 。1)这个项
我现在有很多块被定义时被强制给了颜色
现在我想把它变为随层显示颜色
（setq bentls t (
*
(setq col

fylinwater

(setq colitem (assoc 62 bentlst))
(setq bentlst (append (reverse (cdr (member colitem (reverse  bentlst))))  (member colitem (cdr bentlst)) ))
(entmod bentlst)
语句是这样的

XDSoft

最初由 fylinwater 发布
[B](setq colitem (assoc 62 bentlst))
(setq bentlst (append (reverse (cdr (member colitem (reverse  bentlst))))  (member colitem (cdr bentlst)) ))
(entmod bentlst)
语句是这样的 [/B]

你的意思是想从一个表中删除一个子表，参见下面代码：

说明：

blist--表
old --子表
(append (reverse (cdr (member old (reverse blist)))) (cdr (member old blist)))

你的代码：
member colitem (cdr bentlst)) ))
这部分有问题，应该先求member,然后求cdr，来把OLD项删除。

fylinwater

不好意思
后面是笔误 我刚才现打的 打错了
程序里就是(append (reverse (cdr (member old (reverse blist)))) (cdr (member old blist)))
而且程序可以通过
entmod返回一个表 就是我们上面最后求得的表
但实际上图形没变

XDSoft

最初由 fylinwater 发布
[B]不好意思
后面是笔误 我刚才现打的 打错了
程序里就是(append (reverse (cdr (member old (reverse blist)))) (cdr (member old blist)))
而且程序可以通过
entmod返回一个表 就是我们上面最后求得的表
但实?.. [/B]

对于BLOCK,你再加上个 (entupd e)看看。e是那个实体名

cy956

色和线的bylayer的写法你可以：
(if (assoc 62 en)
        (setq en (subst '(62 . 256)(assoc 62 en) en)))
(if (assoc 6 en)
        (setq en (subst '(6 . "BYLAYER")(assoc 6 en) en)))
。
对于子实体的更新你要用entupd才能影响到他的“父”实体。

fylinwater

entupd不能能影响到他的“父”实体。需要直接entupd引用它的实例的实体