yansike 发表于 2005-6-17 17:07:00

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

我要修改图元的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 发表于 2005-6-17 18:07:00

为什么没有人帮忙啊!!!
页: [1]
查看完整版本: 关于图元属性修改的问题!