VB调用MDT？

zytom

Public AcadApp As AcadApplication
* t! |" T5 M2 O& ^+ b! L5 I, ^Public Sub ConCad()
/ Z7 j' X5 J2 p* X# {: COn Error Resume Next
  o; V3 i3 O& [9 b0 k) wSet AcadApp = GetObject(, "AutoCAD.Application")
If Err Then
   Err.Clear
1 m3 f  |0 h; }+ _/ m   Set AcadApp = CreateObject("autocad.application")
   If Err Then
     MsgBox ("不能运行AUTOCAD，请检查是否安装了AUTOCAD")
  I# V) Y* r3 X& F  X8 i0 h     Exit Sub
   End If
End If
9 w5 P1 O, B. d" z# TAcadApp.Visible = True
End Sub
+ y0 C- |, E  U% a3 o( l, E& I　　
这是我找到的调用的方法，但是运行由它生成的exe文件时提示
“不能运行AUTOCAD，请检查是否安装了AUTOCAD”
3 E1 b1 @( Z: c, }" o在ＶＢ里试运行时显示第一句就出错“编译错误，找不到工程或库”
请各位大哥大姐帮忙解决一下！！

zytom

有人知道的吗？
: l: `% N4 x9 T不然问一下大家都是怎么用ＶＢ调用ＣＡＤ的？

sealive_leafage

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

gneful

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

woaishuijia

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

Dim A As AcadApplication
& a( @5 x: q% w3 hSet A = New AcadApplication
A.Visible = True
A.Quit
& w  h/ S) [  K, f# G
用F8逐语句运行一下就能看到结果

也可以用
1 s) d+ w) L1 b  P# z' IDim A As AcadDocument
& R; A% R# q2 b3 PSet A = New AcadDocument
$ A& D# z6 a5 `/ t- n; i' D
[ 本帖最后由 woaishuijia 于 2007-5-28 06:33 编辑 ]

zytom

已解决，谢谢各位！！

mzb007

学习，但没怎么看懂。

peke

请教,你是怎么解决的?