VB模块中如下:
Public acadApp As Object
Public ThisDrawing As Object
类模块中如下:
Option Explicit
Public Function Start()
Set ThisDrawing = acadApp.ActiveDocument
Form1.Show
End Function
Private Sub Class_Initialize()
Set acadApp = GetObject(, "AutoCAD.Application")
End Sub
VBA调用DLL时出现以上问题是那里的原因?跪求高手帮忙解答一下,在此先谢过了,