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

dfgs 发表于 2008-7-19 13:45:00

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

在VB.NET2005中，执行以下代码设置当前图层时，如果引用了则没问题，如果没引用的话，最后一句会出错，谁能帮我处理一下？
dim myc as object
dim mydwg as object
dim aclay as object
   Myc = GetObject(, "AutoCAD.Application")
      If Err.Number0 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 发表于 2008-7-22 18:42:00

引用就行了。

dfgs 发表于 2008-7-22 22:30:00

还不是为了在多种不同版本的CAD中都能执行吗？引用了就受限了。
不过在autodesk的讨论组中找到了唯一的解决办法，通过设置系统变量达到相同的效果。

查看完整版本: [求助]关于指定当前活动图层的问题