|
|
我要修改图元的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”，而我打散后，发现其图层又是“道路层”，我该怎么办，请大家帮忙！！！ |
|
置顶卡
