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

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

<p>在VB.NET2005中，执行以下代码设置当前图层时，如果引用了autocad则没问题，如果没引用的话，最后一句会出错，谁能帮我处理一下？</p><p></p><p>dim myc as object</p><p>dim mydwg as object</p><p>dim aclay as object</p><p>&nbsp;&nbsp; Myc = GetObject(, "AutoCAD.Application")<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If Err.Number &lt;&gt; 0 Then<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Myc = CreateObject("AutoCAD.application", )<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Err.Clear()<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End If<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Myc.Visible = True<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Mydwg = Myc.ActiveDocument<br/>&nbsp;<br/>&nbsp;&nbsp; <br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; For Each aclay In mydwg.layers<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If aclay.name = "table" Then<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Exit For<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End If<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Next<br/>&nbsp;&nbsp; <br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; mydwg.activelayer=aclay<br/></p>

mccad 发表于 2008-7-22 18:42:00

引用就行了。

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

<p>还不是为了在多种不同版本的CAD中都能执行吗？引用了就受限了。</p><p>不过在autodesk的讨论组中找到了唯一的解决办法，通过设置系统变量达到相同的效果。</p>
页: [1]
查看完整版本: [求助]关于指定当前活动图层的问题