[求助]Autocad R14的问题

duwei1215

我在用Autocad R14进行二次开发遇到这样一个问题，在连接Cad文档层事件时出现类型不匹配错误<BR>请高手帮忙看看是什么原因<BR>我的开发环境是Windows XP ,VB6.0,代码如下：<BR>Public acadapp As AutoCAD.AcadApplication<BR>Public WithEvents acaddoc As AutoCAD.AcadDocument<BR>Private Sub Command1_Click()<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &#39;On Error Resume Next<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Set acadapp = GetObject(, &quot;AutoCAD.Application.14&quot;)&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If Err.Number Then<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Err.Clear<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Set acadapp = CreateObject(&quot;autocad.application.14&quot;)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End If<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Set acaddoc = acadapp.ActiveDocument<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; acadapp.Visible = True&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; AppActivate (acadapp.Caption)&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <BR>End Sub<BR>