关于图元属性修改的问题!
我要修改图元的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”,而我打散后,发现其图层又是“道路层”,我该怎么办,请大家帮忙!!! 为什么没有人帮忙啊!!!
页:
[1]