[求助]如何将新建的图层设成当前层啊？

gzy · 发表于 2003-9-15 20:37:00

哪个大哥能告诉我这个问题啊？在VBA中，我新建一个图层后再设为当前层，代码如下：
Sub newlayer()
Dim newlayerobj As AcadLayer
Set newlayerobj = ThisDrawing.Layers.Add("我的图层")
ThisDrawing.ActiveLayer = "我的图层"
End Sub
结果系统报错说什么类型不匹配。
我都快崩溃了！救命啊！[em00]