VB调用AUTOCAD问题（不简单）（UP有分)急！！！！！

Question

我在VB中想调用ACAD，可是定义不通过。
Dim mapp As Object
Set mapp = GetObject(, "Acad.application")
不能通过，提示“activex不能创建部件”什么的。以下同样，应该如何定义那？
Dim mapp As AcadApplication
set mapp=getobject(,"acad.application")或
dim mapp as acadapplication
dim Thisdrawing as acadapplication
Set mapp = Thisdrawing.Application.GetInterfaceObject("Acad.Application")
都报错，我在引用中已经引用了CAD库

Answer 1

on error resume nextdim acadapp as acadapplicationset acadapp = getobject(,"autocad.application.16")if err then
  err.clear
  set acadapp = createobject("autocad.application.16")
  if err then
    msgbox err.description
    exit sub
  end if end if

Answer 2

Dim mapp As New AcadApplication
set mapp=getobject(,"acad.application")没试，应该是这样.