VB调用MDT？

zytom

Public AcadApp As AcadApplication
6 e6 v- D) \6 Y, iPublic Sub ConCad()
On Error Resume Next
; u8 v5 g; J5 V- I' X$ |9 PSet AcadApp = GetObject(, "AutoCAD.Application")
If Err Then
   Err.Clear
   Set AcadApp = CreateObject("autocad.application")
( E" B. S+ j9 c- ^$ o& Q   If Err Then
7 P/ u' D; b& t+ @; w     MsgBox ("不能运行AUTOCAD，请检查是否安装了AUTOCAD")
, ]" {, A7 W  N0 n" n& J     Exit Sub
, H/ E/ [$ g7 P4 A9 M2 T   End If
, a9 E+ h& Y( b  @2 @8 l3 aEnd If
AcadApp.Visible = True
1 v2 J, p: C0 ^6 g3 D End Sub
, u7 h; U3 h- t: l7 S/ c  C　　
* g3 ?0 H7 T+ p' I这是我找到的调用的方法，但是运行由它生成的exe文件时提示
“不能运行AUTOCAD，请检查是否安装了AUTOCAD”
在ＶＢ里试运行时显示第一句就出错“编译错误，找不到工程或库”
! J9 `. V: D0 v5 J请各位大哥大姐帮忙解决一下！！

zytom

有人知道的吗？
% Z& r# s) o9 e* G0 |& W- |不然问一下大家都是怎么用ＶＢ调用ＣＡＤ的？

sealive_leafage

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

gneful

试试把类名改成这样 “AutoCAD.Application.17”
6 ~+ h1 W  }7 i/ w, e$ u3 S! V% M当然，版本不一样，后面数字也不一样

woaishuijia

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

9 I+ i' c% f! GDim A As AcadApplication
) D: |' B: P2 d9 p$ _8 BSet A = New AcadApplication
A.Visible = True
& r+ L) \# y: |9 I7 t) RA.Quit

用F8逐语句运行一下就能看到结果

也可以用
Dim A As AcadDocument
4 ?2 m0 h$ ^: a! Y( C0 e- N+ rSet A = New AcadDocument
3 }3 m* b. s& j; v
[ 本帖最后由 woaishuijia 于 2007-5-28 06:33 编辑 ]

zytom

已解决，谢谢各位！！

mzb007

学习，但没怎么看懂。

peke

请教,你是怎么解决的?