VB调用MDT？

zytom

Public AcadApp As AcadApplication
. l4 j7 g9 A* a5 \Public Sub ConCad()
3 x5 `; Z* g  N7 QOn Error Resume Next
Set AcadApp = GetObject(, "AutoCAD.Application")
If Err Then
   Err.Clear
  c) e; N0 H, O4 A   Set AcadApp = CreateObject("autocad.application")
   If Err Then
     MsgBox ("不能运行AUTOCAD，请检查是否安装了AUTOCAD")
     Exit Sub
   End If
End If
$ z& w8 u- D$ [5 ?& EAcadApp.Visible = True
- \+ l+ M; q4 j: y End Sub
7 k7 V+ e& j. H& T# l& h　　
这是我找到的调用的方法，但是运行由它生成的exe文件时提示
“不能运行AUTOCAD，请检查是否安装了AUTOCAD”
在ＶＢ里试运行时显示第一句就出错“编译错误，找不到工程或库”
: E  L* }# R+ R+ H; o请各位大哥大姐帮忙解决一下！！

zytom

有人知道的吗？
. G5 i3 u& z5 Z) W不然问一下大家都是怎么用ＶＢ调用ＣＡＤ的？

sealive_leafage

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

gneful

试试把类名改成这样 “AutoCAD.Application.17”
" _7 k7 D% G$ O$ Z当然，版本不一样，后面数字也不一样

woaishuijia

按3楼所说选中CAD类型库后，程序中用如下代码：
6 F  H6 G9 A% `7 O! e% P
Dim A As AcadApplication
  }& g3 p1 G( P: _8 lSet A = New AcadApplication
A.Visible = True
A.Quit

7 H. J! X8 \; O9 y用F8逐语句运行一下就能看到结果

也可以用
Dim A As AcadDocument
* b' y' J3 g% U" uSet A = New AcadDocument
- j, c) ]: I9 q6 u  C: X1 F1 ^
4 O. w3 e0 e7 v" r4 h# @1 T1 D' \[ 本帖最后由 woaishuijia 于 2007-5-28 06:33 编辑 ]

zytom

已解决，谢谢各位！！

mzb007

学习，但没怎么看懂。

peke

请教,你是怎么解决的?