VB调用MDT？

zytom

Public AcadApp As AcadApplication
Public Sub ConCad()
* X$ p) @1 q0 ^+ s% A& ^6 H! K6 AOn Error Resume Next
Set AcadApp = GetObject(, "AutoCAD.Application")
If Err Then
   Err.Clear
8 o4 U7 X- q$ \' H0 M' K: D   Set AcadApp = CreateObject("autocad.application")
   If Err Then
     MsgBox ("不能运行AUTOCAD，请检查是否安装了AUTOCAD")
- a" P. ?, v8 T( S     Exit Sub
6 t$ R; h8 B0 }   End If
End If
0 j# N% m$ m& \* vAcadApp.Visible = True
End Sub
　　
9 V9 \0 z  [) d" H. B这是我找到的调用的方法，但是运行由它生成的exe文件时提示
  ~" Z* b' W3 f“不能运行AUTOCAD，请检查是否安装了AUTOCAD”
. ?* B0 ^. z. Q, s; @. N在ＶＢ里试运行时显示第一句就出错“编译错误，找不到工程或库”
请各位大哥大姐帮忙解决一下！！

zytom

有人知道的吗？
不然问一下大家都是怎么用ＶＢ调用ＣＡＤ的？

sealive_leafage

在VB环境中选择 工程－引用 出现“引用”对话框，选中AutoCAD2000(或更高版本) Type Library 的复选框，试试看，如果还不行，问题可能出现类名AutoCAD.Application上。

gneful

试试把类名改成这样 “AutoCAD.Application.17”
) P5 |- V4 ?, A) \! c: H8 K当然，版本不一样，后面数字也不一样

woaishuijia

按3楼所说选中CAD类型库后，程序中用如下代码：
5 ]/ n; M0 |3 j! u3 @
' v% ~8 y3 O" Y8 w  X9 LDim A As AcadApplication
3 W) G% L$ u9 n5 gSet A = New AcadApplication
A.Visible = True
A.Quit
$ k$ i  t8 y0 r$ w
/ h) F+ B. x7 X' u0 c, a' w/ j用F8逐语句运行一下就能看到结果

: W. k. P7 [  C! y* D$ _2 m' {$ G也可以用
Dim A As AcadDocument
Set A = New AcadDocument

. f1 C; F( y* I: X! c[ 本帖最后由 woaishuijia 于 2007-5-28 06:33 编辑 ]

zytom

已解决，谢谢各位！！

mzb007

学习，但没怎么看懂。

peke

请教,你是怎么解决的?