关于图元属性修改的问题！

yansike

我要修改图元的layer属性，程序如下： Rs.Open "Select * from LayerInfo", Conn, adOpenKeyset, adLockReadOnly

For Each obj In NewAcaddoc.ModelSpace
Rs.MoveFirst
oldlayer = obj.Layer
Rs.Find ("RDLayer=#" & oldlayer & "#")
newlayer = Rs.Fields("CassLayer")
obj.Layer = newlayer
obj.Update
Next 发现BLOCK类型对象改不过来，我用list查看了该类型的属性，得到其layer属性为“0”，而我打散后，发现其图层又是“道路层”，我该怎么办，请大家帮忙！！！

yansike

为什么没有人帮忙啊！！！