VB调用MDT？

zytom

Public AcadApp As AcadApplication
Public Sub ConCad()
- v( ^7 Q1 x0 `" WOn Error Resume Next
* I, ]! Z9 {, Y5 e# t$ I  U: \+ jSet AcadApp = GetObject(, "AutoCAD.Application")
, g/ l0 ]: g* T8 ^- Y+ M( Q, yIf Err Then
& j: @, I) e: M  X   Err.Clear
# U$ E* ~2 {$ d/ ~* l   Set AcadApp = CreateObject("autocad.application")
   If Err Then
. ^/ v; J1 K% N1 I7 q  v     MsgBox ("不能运行AUTOCAD，请检查是否安装了AUTOCAD")
" j% z1 x8 z& P0 N# b+ g     Exit Sub
0 n4 A! @* R  q' T6 O   End If
0 \3 `( q3 S* R; XEnd If
AcadApp.Visible = True
4 _$ j8 y+ c. |& D/ N End Sub
0 H# B' |9 y' K　　
这是我找到的调用的方法，但是运行由它生成的exe文件时提示
“不能运行AUTOCAD，请检查是否安装了AUTOCAD”
/ `2 H" R; m" O: H( h在ＶＢ里试运行时显示第一句就出错“编译错误，找不到工程或库”
# Q- m( S! ^7 H/ }9 V请各位大哥大姐帮忙解决一下！！

zytom

有人知道的吗？
: p) b# v9 ^3 O# o$ e不然问一下大家都是怎么用ＶＢ调用ＣＡＤ的？

sealive_leafage

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

gneful

试试把类名改成这样 “AutoCAD.Application.17”
* l! b4 {- T/ x' c: |( V1 G8 M- w. |* G当然，版本不一样，后面数字也不一样

woaishuijia

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

  L. B+ B: q8 ?9 ~" a8 H6 d) yDim A As AcadApplication
Set A = New AcadApplication
' X' d3 q) S$ t9 CA.Visible = True
3 S0 w9 p( Z- q) yA.Quit

" W$ r+ N* l5 {' M. l: r/ I: H用F8逐语句运行一下就能看到结果

也可以用
: S6 I5 N) m% X% n% v4 GDim A As AcadDocument
) ^2 R8 W6 a, h: ^& oSet A = New AcadDocument
' m' n4 r7 h! u/ ^7 I0 I) w
[ 本帖最后由 woaishuijia 于 2007-5-28 06:33 编辑 ]

zytom

已解决，谢谢各位！！

mzb007

学习，但没怎么看懂。

peke

请教,你是怎么解决的?