VB调用MDT？

zytom

Public AcadApp As AcadApplication
0 m8 g$ U6 z3 |1 J$ r# ~' oPublic Sub ConCad()
# q! ?# k8 a, [+ p' GOn Error Resume Next
5 v+ ]2 s3 ^4 I  W1 XSet AcadApp = GetObject(, "AutoCAD.Application")
If Err Then
   Err.Clear
0 b8 E2 w; w7 X0 u; }7 m5 u+ Y" y   Set AcadApp = CreateObject("autocad.application")
) k2 p2 s% q. O1 Q' c. l   If Err Then
% @  x# Y+ h; G/ J/ e     MsgBox ("不能运行AUTOCAD，请检查是否安装了AUTOCAD")
4 Z/ d' F: {/ a) U# P) {1 [4 l3 ?     Exit Sub
% a" ~& \& y8 k8 G9 G8 J   End If
! l7 E3 O) S9 W. K  L; Z' g3 yEnd If
3 V9 [5 c9 S$ |9 }6 x: IAcadApp.Visible = True
End Sub
　　
这是我找到的调用的方法，但是运行由它生成的exe文件时提示
" ~) G! {9 M' J* @5 M  m5 `4 h6 V“不能运行AUTOCAD，请检查是否安装了AUTOCAD”
+ Z  d, a4 l+ S% l2 a  ^- @$ L1 K# W在ＶＢ里试运行时显示第一句就出错“编译错误，找不到工程或库”
请各位大哥大姐帮忙解决一下！！

peke

请教,你是怎么解决的?

mzb007

学习，但没怎么看懂。

zytom

已解决，谢谢各位！！

woaishuijia

按3楼所说选中CAD类型库后，程序中用如下代码：
8 {. G. e- X- `( [
Dim A As AcadApplication
2 e4 w. n# i$ O; }. o' f2 l% N% JSet A = New AcadApplication
A.Visible = True
A.Quit

) W! B" g, j/ Z# R5 o, `( X用F8逐语句运行一下就能看到结果
' Q4 H4 V) M: s
也可以用
Dim A As AcadDocument
; A- t2 m/ o  _3 SSet A = New AcadDocument

7 i9 U/ \3 n$ M# h" k, _[ 本帖最后由 woaishuijia 于 2007-5-28 06:33 编辑 ]

gneful

试试把类名改成这样 “AutoCAD.Application.17”
当然，版本不一样，后面数字也不一样

sealive_leafage

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

zytom

有人知道的吗？
+ j3 s% `4 ]0 N1 P1 b1 [不然问一下大家都是怎么用ＶＢ调用ＣＡＤ的？