VB调用MDT？

zytom

Public AcadApp As AcadApplication
Public Sub ConCad()
On Error Resume Next
5 L1 r  w7 m2 ]% I& @0 v, l" ]Set AcadApp = GetObject(, "AutoCAD.Application")
1 x9 @0 s3 s* C: V, v5 |# F. j* N, tIf Err Then
6 [3 E* o5 o5 M, Q  b   Err.Clear
   Set AcadApp = CreateObject("autocad.application")
. Y1 @- W; N+ O$ u5 v   If Err Then
     MsgBox ("不能运行AUTOCAD，请检查是否安装了AUTOCAD")
: \  r& Y/ s3 ]+ v! H4 {     Exit Sub
   End If
End If
AcadApp.Visible = True
End Sub
# ~8 J8 @& C% G3 w　　
这是我找到的调用的方法，但是运行由它生成的exe文件时提示
1 p; p3 U' z* a) l, O7 [; ]! ~“不能运行AUTOCAD，请检查是否安装了AUTOCAD”
在ＶＢ里试运行时显示第一句就出错“编译错误，找不到工程或库”
* R( M2 ]# q7 @& u# ^$ M  B请各位大哥大姐帮忙解决一下！！

zytom

有人知道的吗？
( E2 v6 S' I4 R( a, t& b) \不然问一下大家都是怎么用ＶＢ调用ＣＡＤ的？

sealive_leafage

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

gneful

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

woaishuijia

按3楼所说选中CAD类型库后，程序中用如下代码：

1 ^7 H) t" P% ~* y+ wDim A As AcadApplication
  |1 ]2 D0 u- F- q* S( G4 W* G5 ?Set A = New AcadApplication
+ Q! m) W2 m$ M3 i! w5 EA.Visible = True
A.Quit
" B) X: o! Y' c* S$ {/ ]; t
" L5 y- L+ o$ _用F8逐语句运行一下就能看到结果

也可以用
" I* |6 \3 I9 J6 PDim A As AcadDocument
9 z% m& p* g* C% KSet A = New AcadDocument
$ Y' g3 R# O$ p& v
- n$ e( C1 l- b7 ~$ P: \[ 本帖最后由 woaishuijia 于 2007-5-28 06:33 编辑 ]

zytom

已解决，谢谢各位！！

mzb007

学习，但没怎么看懂。

peke

请教,你是怎么解决的?