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

[求助]设置活动图层的问题

<p>在VB.NET2005中，执行以下代码设置当前图层时，如果引用了autocad则没问题，如果没引用的话，最后一句会出错，谁能帮我处理一下？</p><p>&nbsp;</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>

volution 发表于 2009-3-27 15:37:00

运行这个会提示：找不到成员。 (异常来自 HRESULT:0x80020003 (DISP_E_MEMBERNOTFOUND))<br/><br/>谁能解决？？？？？？？？？？<br/>
页: [1]
查看完整版本: [求助]设置活动图层的问题