VB调用MDT？

zytom

Public AcadApp As AcadApplication
2 O8 ^% c! t! Z( SPublic Sub ConCad()
On Error Resume Next
Set AcadApp = GetObject(, "AutoCAD.Application")
) N2 r( x4 k0 M7 k- c, ^If Err Then
   Err.Clear
2 u8 Z& k3 p! l. ^   Set AcadApp = CreateObject("autocad.application")
   If Err Then
! O( y5 H+ s0 [' [     MsgBox ("不能运行AUTOCAD，请检查是否安装了AUTOCAD")
     Exit Sub
# k2 s! }! t/ ~" X+ C- w' M   End If
End If
7 ]) D9 h8 v6 A7 m6 p+ M: R0 SAcadApp.Visible = True
End Sub
8 Q1 S; P9 e! q　　
这是我找到的调用的方法，但是运行由它生成的exe文件时提示
“不能运行AUTOCAD，请检查是否安装了AUTOCAD”
在ＶＢ里试运行时显示第一句就出错“编译错误，找不到工程或库”
2 t2 H1 L9 `' l; {7 B0 [: |请各位大哥大姐帮忙解决一下！！

zytom

有人知道的吗？
2 o  T, [/ o# W0 i1 }3 H不然问一下大家都是怎么用ＶＢ调用ＣＡＤ的？

sealive_leafage

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

gneful

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

woaishuijia

按3楼所说选中CAD类型库后，程序中用如下代码：
/ i2 U9 D  _" P& i
! e+ Q  o9 F: _8 ~" w% ]0 xDim A As AcadApplication
Set A = New AcadApplication
A.Visible = True
& @' `% h  R' Y( G4 v3 G" o. uA.Quit

! O$ d8 j+ V0 C% W/ E用F8逐语句运行一下就能看到结果

也可以用
Dim A As AcadDocument
, @2 x  l3 b6 T4 A6 RSet A = New AcadDocument
2 t# X2 u# r6 B
[ 本帖最后由 woaishuijia 于 2007-5-28 06:33 编辑 ]

zytom

已解决，谢谢各位！！

mzb007

学习，但没怎么看懂。

peke

请教,你是怎么解决的?