[求助]:[0412]请问subst替换图层串列问题?

tctabc

[求助]:[0412]请问subst替换图层串列问题?
小弟想在绘图时,如果要绘製的图层关闭时,自动替换此串列,
好让此图层开启使用.

但以下的程序
(setq LL (tblsearch "LAYER" "AREA"))
(setq LL (subst (cons 70 0) (assoc 70 LL) LL ))
(entmod LL )

却无法顺利替换,并出现了
_$
nil

的回传值,请问该怎样处里呢?
烦请各位高手可以解答一下.
谢谢~

ll_j

可以这样：
(setq LL (entget (tblobjname "LAYER" "AREA")))
(setq LL (subst (cons 70 0) (assoc 70 LL) LL ))
(entmod LL )

entmode 必须对实体操作，tblsearch 得到的是“表”（tabel），无法操作，可以对用tblobjname得到的是“映像”实体进行操作。