VB调用MDT？

zytom

Public AcadApp As AcadApplication
Public Sub ConCad()
On Error Resume Next
$ u$ \2 l6 _" f2 [- ySet AcadApp = GetObject(, "AutoCAD.Application")
! f, T- G2 \; x5 e0 R! MIf Err Then
6 F3 Y$ |- O* b- a! ], Q5 V   Err.Clear
   Set AcadApp = CreateObject("autocad.application")
& Q0 Z) a- R, {4 J   If Err Then
     MsgBox ("不能运行AUTOCAD，请检查是否安装了AUTOCAD")
     Exit Sub
   End If
End If
AcadApp.Visible = True
End Sub
' s9 W# D! F3 Q4 Y6 Q1 Z0 V9 m　　
0 u8 }, A% b1 Z1 V; d( Q' M  N2 ]9 r这是我找到的调用的方法，但是运行由它生成的exe文件时提示
“不能运行AUTOCAD，请检查是否安装了AUTOCAD”
% V) q) Q/ e, D. G- Q( C% m在ＶＢ里试运行时显示第一句就出错“编译错误，找不到工程或库”
7 B9 ~1 f" g6 z7 m% e- e$ G请各位大哥大姐帮忙解决一下！！

zytom

有人知道的吗？
$ `  \5 L6 H9 F; D1 f不然问一下大家都是怎么用ＶＢ调用ＣＡＤ的？

sealive_leafage

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

gneful

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

woaishuijia

按3楼所说选中CAD类型库后，程序中用如下代码：
3 k5 z2 B' u% u4 @# w! o
8 j% q& G6 F% d9 U. t: @Dim A As AcadApplication
Set A = New AcadApplication
A.Visible = True
4 x4 I6 O+ C* }# AA.Quit
: ^! T: \. K1 _! G' y
9 o" f* v& u3 c6 E4 p' ?0 P7 d8 K用F8逐语句运行一下就能看到结果

也可以用
Dim A As AcadDocument
Set A = New AcadDocument
1 M9 m+ Y' R1 z9 T
[ 本帖最后由 woaishuijia 于 2007-5-28 06:33 编辑 ]

zytom

已解决，谢谢各位！！

mzb007

学习，但没怎么看懂。

peke

请教,你是怎么解决的?