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

gzy

哪个大哥能告诉我这个问题啊？在VBA中，我新建一个图层后再设为当前层，代码如下：
Sub newlayer()
Dim newlayerobj As AcadLayer
Set newlayerobj = ThisDrawing.Layers.Add("我的图层")
ThisDrawing.ActiveLayer = "我的图层"
End Sub

结果系统报错说什么类型不匹配。
我都快崩溃了！救命啊！[em00]

mccad

怎么能这样写呢？
thisdrawing.activelayer = "我的图层"
应该这样：
thisdrawing.activelayer = newlayerobj

gzy

多谢多谢！真是太感激了！