[求助]关于指定当前活动图层的问题

dfgs

在VB.NET2005中，执行以下代码设置当前图层时，如果引用了AutoCAD则没问题，如果没引用的话，最后一句会出错，谁能帮我处理一下？

dim myc as object

dim mydwg as object

dim aclay as object

   Myc = GetObject(, "AutoCAD.Application")
        If Err.Number <> 0 Then
            Myc = CreateObject("AutoCAD.application", )
            Err.Clear()
        End If
        Myc.Visible = True
        Mydwg = Myc.ActiveDocument
 
  
        For Each aclay In mydwg.layers
            If aclay.name = "table" Then
                Exit For
            End If
        Next
  
        mydwg.activelayer=aclay

mccad

引用就行了。

dfgs

还不是为了在多种不同版本的CAD中都能执行吗？引用了就受限了。

不过在autodesk的讨论组中找到了唯一的解决办法，通过设置系统变量达到相同的效果。